Discussion :

[Charly910]

Bonjour,
j'ai créé un petit composant TrackBar, à partir de TCustomControl. Voici le source :

Track1.zip

Pour le moment, je l'utilise comme une simple unité par exemple comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Uses Track1 ;
Var
  Trk     : TMyTracker ;
{ ====================================================================== }
procedure TF_Princ.FormCreate(Sender: TObject);
begin
  Trk := TMyTracker.Create(Self);
  Trk.Parent := Self ;
  Trk.Left := 10 ;
  Trk.Top := 20 ;
  Trk.Largeur := 300 ;
  Trk.Maxi := 100 ;
  Trk.Mini := -100 ;
  Trk.PosLabel  := 1 ;  // 1 Label à droite  0 en dessous
  Trk.Epaisseur := 8 ;
  Trk.Place(50);
  Trk.Curseur := gdTrait ;  // gdSans, gdTriangle, ...
  Trk.ShowTicks := True ;
  Trk.setTicks(-50) ;
  Trk.setTicks(50) ;
  Trk.ShowValTicks := True ;
  ...

Tout fonctionne bien, mais quand je bouge le curseur avec la souris, j'ai un assez gros scintillement.

J'ai essayé Doublebuffered sur la form Principale sans succès.

Y a t il un moyen d’atténuer ou mieux de supprimer ce scintillement ?

je dessine dans un Bitmap temporaire avant d'afficher dans le TCustomControl avec BitBlt.

A+
Charly

[Charly910]

bonjour,
pour agrémenter mon post, voici une image de ma trackbar :



A+
Charly

[Andnotor]

Dans ton composant, intercepte WM_ERASEBKGND et retourne 1 pour empêcher l'effacement avant repeinture.

[Charly910]

Merci AndnotOr
je vais essayer
A+
Charly

[Charly910]

Bonjour Andnotor,

j'ai ajouté :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private
  ...
  procedure WMERASEBKGND(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
 
Implementation
...
procedure TMyTracker.WMERASEBKGND(var Message: TWMEraseBkgnd);
begin
  Message.Result := 1;
end;

Mais j'ai toujours un scintillement.
Est ce qu'il faut ajouter autre chose ?

A+
Charly

[ShaiLeTroll]

Et le dessin ne devrait-il pas être effectué dans une redéfinition de Paint() plutôt que depuis PaintWindow() surtout que inherited Paint; avec TCustomControl car sa méthode est vide et donc cela ne sert à rien !

Paint est justement une simplification POO de PaintWindow.
Comme tu contournes le PaintWindow hérité de TCustomControl, cela ne verrouille pas le Canvas durant sa modification, j'ignore sur une application mono-thread si cela peut avoir un impact mais autant bénéficier de cela, sinon inutile d'hériter du TCustomControl, autant le faire directement depuis un TWinControl et géré manuellement le messages.

Ta méthode Clear() et ton BitBlt sont séparé par un long calcul, cela doit avoir le temps de clignoter, je dirais ce que c'est inutile d'effacer si tu remplace tout à la fin.

Tu peux aussi optimiser ton dessin en utilisant ClipRect

Code :

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

1
2
3
4
5
6
7
8
procedure TMyTracker.Paint(); // override, supprime PaintSlider et PaintWindow
var
  Bool: Boolean;
...
begin
  inherited Paint;
  // Clear ; // contre productif avec le BitBlt final
  Bool:= ...