Discussion :

[anapurna]

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

[avogadro]

sinon on peut virer tous les cancas et tous les redéssiner aussi mais ça risque de tout ralentir comme ça le fait en live :s :s alalal pas évident !