CitnAmor - Mi 06.08.03 13:09
Titel: image aufs image legen und dann die größe anpassen
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]
Visum - Mi 06.08.03 18:47
Hi,
funktioniert mit zwei Rechtecken TRect und CopyRect
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