[Windows] Scintillement à la mise à jour d'un TImage

Bonjour,

un problème résolu, un autre problème le suit...
Sur le web ça parle de LockWindowUpdate mais c'est inconnu sous Lazarus alors ça part dans les bidouilles, et ça devient compliqué : je "borde" la màj de l'image avec le couple classique Begin/EndUpdate mais cette fois on dirait qu'ils sont fâchés, en plein divorce :

Code:

---

1 2 3

img4result.Picture.Bitmap.BeginUpdate(); img4result.Picture.Assign(bmpDst); // mise à jour de l'image img4result.Picture.Bitmap.EndUpdate();

---

car je chope la jolie image suivante :
Pièce jointe 313592
:koi:

J'ai aussi tenté

Code:

---

1 2 3

img4result.Canvas.Lock; img4result.Picture.Assign(bmpDst); // mise à jour de l'image img4result.Canvas.UnLock;

---

et je gagne la même image, y a que le texte qui change, canvas not locked quand je passe sur la 3^e ligne.
Le mode pas-à-pas me fait découvrir un TryLock que j'utilise ainsi :

Code:

---

1 2 3

img4result.Canvas.TryLock; img4result.Picture.Assign(bmpDst); // mise à jour de l'image // img4result.Canvas.UnLock; // commenté pour éviter l'erreur

---

Pas d'erreur mais j'ai toujours mon scintillement à la mise à jour, à croire que le lock n'a pas fonctionné. Pourquoi ? Mystère...

Comment vous faites, vous, sous Windows ?
(puisque pour une fois je n'ai pas de souci sous Linux)
et je précise que j'ai DoubleBuffered := True dans le FormCreate.

Merci,

Salut JP.

Je n'ai pas vérifié, mais il est vraisemblable que le TImage utilise lock et unlock en interne.
D'où ton erreur lors du Unlock.
Tu peux écrire :

Code:

---

if img4result.Canvas.Locked then img4result.Canvas.Unlock;

---

Mais c'est amha sans intérêt pour le problème de scintillement.
Ta mise à jour du TImage est-elle fréquente (plusieurs fois par seconde) ?

Si ton image n'occupe qu'une partie de la fiche, tu pourrais essayer d'utiliser un TWinControl (p.ex. un tpanel) comme parent du TImage. Et tu ne double-bufférise que celui-ci.

Amicalement
Thierry

Salut essayes de rajouter :

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10

TForm1 = class(TForm) public procedure EraseBackground(DC: HDC); override;   Inmplementation   procedure TForm1.EraseBackground(DC: HDC); begin // Ne fait rien end;

---

---

Par contre il te faudra rafraichir le TImage à la mano, cad soit mettre "montimage.Invalidate" dans l'évènement "OnPaint" de la Form ou bien à la fin de tes traitements

Salut Thierry,

Citation:

---

Envoyé par ThWilliam

Je n'ai pas vérifié, mais il est vraisemblable que le TImage utilise lock et unlock en interne.
D'où ton erreur lors du Unlock.
Tu peux écrire :

Code:

---

if img4result.Canvas.Locked then img4result.Canvas.Unlock;

---

---

Pas sûr qu'on se soit bien compris, là : j'ai une erreur de Unlock parce qu'il n'y a pas eu de Lock (sans que cela ne me soit signalé...)

Bon, maintenant, si le TImage utilise ça en interne, z'auraient pas dû le publier, histoire de ne pas tenter les téméraires comme moi, :ptdr:

Citation:

---

Envoyé par ThWilliam

Ta mise à jour du TImage est-elle fréquente (plusieurs fois par seconde) ?

---

Pas du tout : l'utilisateur change des paramètres et clique sur "Appliquer" , il faudrait alors qu'il soit vraiment très rapide ! :mouarf:

Citation:

---

Envoyé par ThWilliam

Si ton image n'occupe qu'une partie de la fiche, tu pourrais essayer d'utiliser un TWinControl (p.ex. un tpanel) comme parent du TImage. Et tu ne double-bufférise que celui-ci.

---

Les petites images tiendront toutes entières sur la fiche, :aie:, et sinon, le TImage est déjà sur un TPanel, passé à DoubleBuffered sans effet, et avec Lock/Unlock de son canvas sans erreur et sans effet, de ses bounds sans effet non plus...

Citation:

---

Envoyé par BeanzMaster

Par contre il te faudra rafraichir le TImage à la mano, cad soit mettre "montimage.Invalidate" dans l'évènement "OnPaint" de la Form ou bien à la fin de tes traitements

---

Des traitements impactant le TImage il n'y en a qu'un (à la fois), et c'est lui qui fait scintiller, donc si je mets quelque chose après, c'est plus la peine. :P

Mais comme tu le disais dans l'autre fil,

Citation:

---

Envoyé par BeanzMaster

Comme quoi rester simple est ce qui paye le mieux 8-)

---

je la joue comme ça et là, la mise à jour est imperceptible :

Code:

---

1 2 3

// fin de la mise à jour du bitmap de travail bmpDst //img4result.Picture.Assign(bmpDst); // mise à jour de l'image --> scintillement img4result.Canvas.Draw(0,0, bmpDst);

---

Je crois que ça va rester comme ça, à moins que quelqu'un ait une idée fulgurante et lumineuse car, n'oublions pas, le mieux est l'ennemi du bien et là c'est bien.
:coucou:
On va dire que ça ira comme ça.

hello,
Jipité tu peux jeter un oeil (et même les deux) sur le paragraphe Graphiques en mouvement - Comment éviter le clignotement dans le wiki freepascal.org Developing_with_Graphics
Ami calmant, J.P (sans T)

En fait, il y avait tout un tas de petites raisons qui généraient une grosse pagaille brouillonne au niveau des TImage (source et cible avec les couleurs modifiées) qui sont portés chacun par un TPanel (avec procédures de centrage) lui-même porté par un TScrollbox.

L'astuce est donc de blinder les calculs de resize comme ça :

Code:

---

1 2 3

MainForm.BeginFormUpdate; FormResize(nil); // centre les panneaux MainForm.EndFormUpdate;

---

Et là, franchement, plus de soucis :ccool: !

:coucou: