cs_lucien
Messages postés82Date d'inscriptionvendredi 27 décembre 2002StatutMembreDernière intervention 3 juin 2007
-
9 avril 2003 à 10:52
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
9 avril 2003 à 23:35
Bonjour à chacun,
je ne parviens pas à afficher une PaintBox avec une couleur définie.
Quelqu'un va gentiment me tirer de mon ignorance... :)
[procedure TForm1.FormActivate(Sender: TObject);
begin
With PaintBox1 Do
begin
color:=clblue;//white;
Refresh;
end;
end
Amicalement,
Lucien
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 9 avril 2003 à 23:35
Ma précédente réponse étant incomplète, voici la suite.
C'est dans l'évènement OnPaint du composant TPaintBox que tout se joue :
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1, Canvas do
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
FillRect(ClientRect);
end;
end;
Ce code peint en couleur blanche unie la surface de dessin, en remplissant la totalité de la surface du composant PaintBox1 .
May Delphi be with you