cs_carpiste
Messages postés13Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 7 octobre 2012
-
27 déc. 2010 à 17:47
cs_carpiste
Messages postés13Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 7 octobre 2012
-
28 déc. 2010 à 16:00
Bonjour,
Petit problème, Je crée une image de taille 300x200 dans
Je dessine dedans, pas de problème) mais quand je sauvegarde mon image la taille change soit 600X600 mais je veux garder 300x200, avant mon saveToFile, je redonne les tailles mais rien ne change. comment faire?
cs_carpiste
Messages postés13Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 7 octobre 2012 28 déc. 2010 à 11:18
Bonjour,
J'explique :
j'ai un composant Timage nom=Image6 , Haut=300, large=200, Transparent=true
Je dessine dedans des petits ronds ou autres formes (Mon image est superposée à
une autre Image contenant une carte.
Ne sachant sauvegarder en une seul image les deux (ce serait l'idéal) donc je sauvegarde
uniquement mon image Image6
Code :
procedure ....Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Drawing:=true;
Image6.Canvas.MoveTo(X,Y);
Origin:=Point(X,Y);
MovePt := Origin;
Image6.Canvas.Pen.mode:=PmCopy;
if efface = 1 then
sender:=ClearBrush
else
sender:=cpmstyle;
Image6.Canvas.Brush.Color := couleur;
label10.color:=couleur;
with Image6.Canvas.Brush do
begin
if Sender = SolidBrush then Style := bsSolid
else if Sender = ClearBrush then
begin
Style := bsClear;
Image6.Canvas.Brush.Color := clwhite;
Image6.Canvas.Pen.Color:= clwhite;
label10.color:=clwhite;
end
else if Sender = HorizontalBrush then Style := bsHorizontal
else if Sender = VerticalBrush then Style := bsVertical
else if Sender = FDiagonalBrush then Style := bsFDiagonal
else if Sender = BDiagonalBrush then Style := bsBDiagonal
else if Sender = CrossBrush then Style := bsCross
else if Sender = DiagCrossBrush then Style := bsDiagCross;
end;
procedure ....SpeedButton13Click(Sender: TObject);
var
jp: TJpegImage;
begin
...............traitement autre
D'autre part, fais attention de ne pas confondre tes Canvas. En effet, un TImage a deux Canvas :
Image6.Canvas;
Image6.Picture.Bitmap.Canvas
Si tu dessines sur Image6.Picture.Bitmap.Canvas, tu dessineras sur ton Bitmap et tu pourras tout sauvegarder.
Si tu desssines sur Image6.Canvas, ce dessin sera perdu lors de la sauvegarde du Bitmap.
_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr