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
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
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
) ;