salut
a priorie
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 procedure Clear(ACanvas : Tcanvas;Arect :Trect;Acolor:TColor); begin ACanvas.Brush.Color := Acolo; ACanvas.FillRect(Arect); end; Procedure DessineElement(ACanvas : Tcanvas) var Arect : Trect; begin ACanvas.Lock; if GetRgnBox(ACanvas.handle,ARect,)>0 Then clear(ACanvas,Arect,ClWhite) else clear(ACanvas,rect(0,0,800,600),ClWhite); PlaceEntitees(ACanvas); //dessinne tes elements grap Placeliens(ACanvas);//dessinne les liens reliant les different elements Canvas.Unlock;
@+ Phil
Partager