Forum: Multimedia
Delphi
by HannosG,
26. Mär 2007
Wenn nur ein Teil verschoben werden soll:
procedure TForm1.Verschieben;
var BildTemp: TBitmap;
begin
BildTemp:=TBitmap.Create;
BildTemp.Width:=DieBitmapBreite;
BildTemp.Heigth:=DieBitmapHoehe;
Forum: Multimedia
Delphi
by HannosG,
26. Mär 2007
Du hast Width und Heigth vom Bitmap BildTemp noch nicht eingestellt.
Willst du das gesamte Image verschieben, oder nur ein Teil davon?
Forum: Multimedia
Delphi
by HannosG,
26. Mär 2007
Einfach neu reinzeichnen:
Image1.CopyRect(Rect(x,y,x+BildTemp.Width,y+BildTemp.Heigth),BildTemp.Canvas,BildTemp.Canvas.ClipRect);
Gruß, Hanno