Discussion :

[Charly910]

Bonjour,

j'ai crée un TrackBar personnalisé :

Code :

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

TMyTracker = class(TGraphicControl)

Je voudrais récupérer la couleur de la Form sur laquelle je le créé. Dans le Create j'ai :

Code :

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

1
2
3
4
5
6
 
constructor Create(aOwner :TComponent);   
Begin
  inherited Create(aOwner);
  CouleurduFond := ...
...

Est ce possible de le faire dans le Create?
(je fais ça car je voudrais effacer TMyTracker en dessinant un rectangle de la couleur du fond sur son Canvas)

A+
Charly

[Charly910]

Je crois avoir trouvé. Pour effacer mon control, je fais :

Code :

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

1
2
3
4
5
6
7
{ ====================================================================== }
Procedure TMyTracker.Clear ;
begin
  Canvas.Brush.Style := bsSolid ;
  Canvas.Brush.Color := self.Color ;
  Canvas.FillRect(ClientRect) ;
end;

ça efface bien ma TrackBar dans ma Form. Mais je ne suis pas sûr que ça marche si je change Canvas.Brush.Color dans le Onpaint de ma TrackBar ?

A+
Charly