image aufs image legen und dann die größe anpassen

CitnAmor · Beiträge: 19

wenn ich jetzt ein image auf ein anderes image lege

Quelltext

1:	Image6.canvas.Draw(20,20,image12.picture.bitmap);

kann ich das so zusammen ausdrucken.
nur leider wird das bild dann zu groß(original größe), wenns ich das aufs canvas lege.
wie kann ich das bild denn kleinder machen, hab bissel mit StrechDraw rumprobiert, aber hab da probleme mit der typedeclarierung. weiß da jemand wie ich das machen muss? mfg citn[/code]

_________________
yEaH..cAll..mE...tHe..wAndArA...

Visum · Beiträge: 106

Hi,
funktioniert mit zwei Rechtecken TRect und CopyRect

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var ZielRect, QuellRect:tRect;
begin
 ZielRect:=Rect(x1,y1,x2,y2);
 QuellRect:=Rect(0,0,image12.width,image12.height);

 image6.canvas.CopyRect(ZielRect,image12.canvas,QuellRect);
end;

... code nicht getestet, sollte aber so funktionieren ...
mfg v!sum

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme