Discussion :

[Jipété]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



J'ai aussi tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[ThWilliam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BeanzMaster]

Salut essayes de rajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jipété]

Salut Thierry,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

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 !

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, , 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...

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.

Mais comme tu le disais dans l'autre fil,

Comme quoi rester simple est ce qui paye le mieux

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

On va dire que ça ira comme ça.

[jurassic pork]

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)

[Jipé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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et là, franchement, plus de soucis !