Discussion :

[rtg57]

Bonjour,

je voudrais accélérer le traitement graphique de mon application.
Pour cela, je voudrais que lorsque je dessine un Bitmap sur le Canvas de la fiche principale, seule la partie concernée par le changement soit dessinée.
Or la procédure OnPaint efface tout le canvas avec la couleur de fond avant d'afficher mon Bitmap.
Ce qui fait qu'en finalité, seul le Bitmap est affiché.

Existe-til une solution à ce problème ?

[Gilbert Geyer]

... accélérer le traitement graphique ... je voudrais que lorsque je dessine un Bitmap sur le Canvas de la fiche principale, seule la partie concernée par le changement soit dessinée.

Possibilité 1 : Au lieu de dessiner les changements sur la Canvas du BitMap puis de dessiner ensuite le BitMap sur le canvas de la fiche (via un un Draw ou un StretchDraw = BitMap en entier) je commencerais par dessiner les changements directement sur le canvas de la fiche sans passer par l'intermédiaire d'un BitMap.

Possibilité 2 : Si "partie concernée par le changement" désigne le BitMap en entier, au lieu de dessiner ce BitMap sur le canvas de la fiche ont peut aussi le transférer directement dans un TImage posé sur la fiche (avec par exemple la combinaison de Image1.Stretch:=true; et Image1.Assign(BitMap); )

[rtg57]

Pour être plus précis, j'avais fait une version dans laquelle j'avais un bitmap, appelons-le ImageFond qui 'mémorisait' le canvas représentant le fond de la TForm principale.
Ensuite j'exécutais quelques dessins sur ce bitmap, puis dans la procédure OnPaint, j'affichais ImageFond intégralement dans le Canvas de la fiche.

Côté optimisation...ça craint. Réafficher un bitmap de 1024 x 768 pixels pour une petite modification de 32 x 32 pixels, c'est pas top !

Donc l'idée est d'afficher directement dans le Canvas de la fiche, un petit bitmap de 32 x 32 pixels. Le problème est que dans ce cas, OnPaint commence par remplir le Canvas par la couleur de fond (donc cela efface tout), puis affiche le motif de 32 x 32 pixels. Il doit bien y avoir un moyen de préserver dans le Canvas de la fiche, tout ce qui n'est pas touché par la modification !
__________________

[Gilbert Geyer]

C'est effectivement nettement plus rapide d'afficher un BitMap de 32x32 qu'un autre de 1024 x 768. Mais puisque l'affichage du BitMap-modifications déclenche via le onPaint le remplissage du Canvas de la fiche par la couleur de fond en effaçant tout moi j'essayerais de dessiner les modifications directement sur le canvas de la Form (sans passer par un bmp) en utilisant des Form1.canvas.LineTo() et autres routines de dessin placées directement dans le OnPaint.

Par hasard il ne traînerait pas le code une instruction du type canvas.Fillrect()ou autre chose qui causerait le remplissage de tout le Canvas par la couleur de fond ? Car il n'est pas normal qu'il se modifie des trucs qui n'ont pas été modifés ... car les pixels de ce qu'on dessine dans une fenêtre sont placés à l'écran et Windows ne mémorise que la partie d'écran détruite par un recouvrement ou un redimensionnement ou actions similaires ... et dès que cette partie est à nouveau visible Windows apelle OnPaint pour lui demander de rafraîchir la partie redevenue visible et rien d'autre.

[rtg57]

Merci de t'attacher à mon problème,

alors pour être encore plus précis, il s'agit de l'affichage d'images d'environ 150x100 pixels.
Il n'est pas possible de les créer à partir des fonctions LineTo() et compagnie.
J'envois donc directement ces bitmaps contenant les images, sur le canvas de la Form. Et là, j'enrage parce que pour un bitmap envoyer sur le canvas, OnPaint initialise tout le canvas de la Form.

Doit bien y avoir une astuce ...

[Gilbert Geyer]

C'est effectivement anormal qu'OnPaint ré-initialise tout le canvas de la Form alors qu'il lui est demandé uniquement de raffraîchir une lucarne de 150x100 pixels.

Je me demande s'il faut chercher du côté des astuces car je me demande s'il n'y a pas dans le code une subtilité qui cause le problème. Fais voir le bout de code de ce onPaint par la même occase je le testerai sur une installation différente de la tienne.

[rtg57]

Mille excuses,

Vous aviez raison. Il y avait dans ma procédure de dessin, du code qui provoquait l'exécution de 'OnPaint'.

En inhibant cette partie du code, maintenant lorsque je dessine sur le Canvas de la fiche, cela ne provoque pas l'appel à 'OnPaint'. Il n'y a donc pas de mystère.
Merci à tous pour votre collaboration.