salut
je cherche a dessiner directement sur l ecran (fenetre windows) un motif
à l aide de ellipse/lineto etc..
mais je n arrive pas à effacer l image précedente qui reste à l écran
voici mon début de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 c := TCanvas.create;
 c.Handle := getDC(0);
 for aa:=1 to 100 do begin
   c.pen.color := clgreen;
   c.moveto(0,0);
   c.lineto(aa,aa+30);
 end;
merci de votre aide