Accueil > Manip’s > Delphi > Ardoise Magique > ATELIER : Paint with DELPHI (maitriser le Dessin en Delphi) > 7- Dupliquer un dessin

7- Dupliquer un dessin

dimanche 16 novembre 2008, par bluegyn_spip

RECOPIER UN DESSIN

Dans le projet SENO

On commence par dessiner le sein droit

Ensuite on encadre ce dessin

Et on le recopie simplement à l’identique à côté pour dessiner le sein gauche avec une seule instruction :

CopyRect

procedure SENO;

var l,t,w,h : integer;

source, cible : Trect;

Begin



with form1.Image1.Canvas do begin



pen.Width := 3;

pen.Color := clBlue;



l := 100;

t := 100;

w := 300;

h := w;



Source := Rect(l,t,l+w,t+h);                           

Ellipse( Source );                           



l := L +(w div 2);

t := T + (h div 2);

w := 20;

h := w;

Ellipse(l,t,l+w,t+h);                           



l := 450;

t := 100;

w := 300;

h := w;

Cible := Rect(l,t,l+w,t+h);                           



form1.Image1.Canvas.CopyRect(Cible, form1.image1.canvas, source);



end;

L’instruction clef est celle la :

Image1.Canvas.CopyRect(

Cible,
Image1.Canvas,
Source

) ;

Le dessin est recopié sur la même image, donc sur le même Objet Canevas.

SOURCE

C’est le rectangle Original à recopier

var Source : TRect ;

Si L correspond à la coordonnée X1 (LEFT)

T correspond à Y1 (TOP)

W est la largeur du rectangle (WIDTH) (X2 = L+W)

H sa hauteur (HEIGHT) (Y2 = T + H )

Je définis ma zone rectangulaire de travail de base

Source := Rect ( l,t,l+w,t+h ) ;

Et j’y dessine un grand cercle cercle

Ellipse( Source ) ;

Et tout ce que je veux d’autre

Ensuite je définis un rectangle CIBLE

L := 450 ;

T := 100 ;

W := 300 ;

H := w ;

Cible := Rect( l, t, l+w, t+h ) ;

Et dans l’IMAGE_1, je recopie Source vers Cible

Image1.Canvas.CopyRect( Rectangle_Cible, Image1.Canvas, rectangle_Source) ;

Il est possible de recopier un dessin d’une image vers une autre en changeant de canevas

Image_Cible.Canvas.CopyRect(

Rectangle_Cible,

Image_Source.Canvas,

Rectangle_Source

) ;