Bild verschieben - Komponente belassen

[Flo.Hoe]

Wie ist es möglich, die Position einer Bitmap auf einem Image zu verändern, ohne aber die Komponente selbst zu verschieben?

[turboPASCAL]

Ja, natürlich ist das möglich.


Nur nicht so auf die Schnelle.

Den Bildteil den du verschieben willst musst du in ein temp. Bitmap kopieren.
Dann kannst du diesen an einer Pos. deiner Wahl auf das Hauptbitmap kopieren.

[Flo.Hoe]

Das wäre dann wohl folgendes:

Delphi-Quellcode:

procedure TForm1.verschieben;
var BildTemp: TBitmap;
begin
i:=i+1;
BildTemp:=image1.Picture.Bitmap;

//image1.Picture.Bitmap wird gelöscht
//BildTemp wird auf Position (i,0) gesetzt
end;

Aber wie erlange ich Zugriff auf die Position?

[HannosG]

Einfach neu reinzeichnen:
Image1.CopyRect(Rect(x,y,x+BildTemp.Width,y+BildTemp.Heigth),BildTemp.Canvas,BildTemp.Canvas.ClipRect); Gruß, Hanno

[turboPASCAL]

Zitat von Flo.Hoe:

Das wäre dann wohl folgendes:

Code:

procedure TForm1.verschieben;
var BildTemp: TBitmap;
begin
i:=i+1;
[color=#ff0000][b]BildTemp:=image1.Picture.Bitmap;[/b][/color]

//image1.Picture.Bitmap wird gelöscht
//BildTemp wird auf Position (i,0) gesetzt
end;

Autsch, nein. Ein Bitmap muss vorher Erstellt werden. Bei der Imagekompo macht dir das die VCL.

Also so:

BildTemp := TBitmap.Create; // ein neues leeres Bitmap (Object) erzeugen TBitmap

[Flo.Hoe]

Zusammenfassend sieht das dann so aus:

Delphi-Quellcode:

procedure TForm1.verschieben;
var BildTemp: TBitmap;
begin
BildTemp:=Tbitmap.Create;
BildTemp:=image1.Picture.Bitmap;
//image1.Picture.Bitmap wird gelöscht
image1.Picture.Bitmap.Canvas.CopyRect(rect(100,100,Bildtemp.Width+100,BildTemp.Height+100),BildTemp.Canvas,BildTemp.Canvas.ClipRect);
end;

Beim Aufruf dieser Prozedur passiert rein gar nichts.
Aber eigentlich müsste es doch funktionieren oder?

[HannosG]

Du hast Width und Heigth vom Bitmap BildTemp noch nicht eingestellt.

Willst du das gesamte Image verschieben, oder nur ein Teil davon?

[SirThornberry]

ein ganz böser Fehler bzw. speicherleck

Delphi-Quellcode:

//ein TBitmap wird erstellt und BildTemp zeigt auf diesen Speicher
BildTemp:=Tbitmap.Create; 
//BildTemp zeigt danach auf die Stelle Image1.Picture.Bitmap und nicht mehr auf die Stelle wo das neu erstellte Bitmap ist
BildTemp:=image1.Picture.Bitmap;

wenn dann so

Delphi-Quellcode:

BildTemp:=Tbitmap.Create; 
BildTemp.Assign(image1.Picture.Bitmap);

[HannosG]

Wenn nur ein Teil verschoben werden soll:

Delphi-Quellcode:

procedure TForm1.Verschieben;
var BildTemp: TBitmap;
begin
BildTemp:=TBitmap.Create;
BildTemp.Width:=DieBitmapBreite;
BildTemp.Heigth:=DieBitmapHoehe;


//Bitmap wird aus Image1.Canvas aus der Position (i,0) in BildTemp hineinkopiert
BildTemp.CopyRect(Rect(0,0,BildTemp.Width,BildTemp.Heigth),Image1.Canvas,Rect(i,0,i+BildTemp.Width,BildTemp.Heigth));

//Image1.Canvas wird mit einem Rectangle übermalt
Image1.Canvas.Rectangle(-1,-1,Image1.Width+1,Image1.Heigth+1);

inc(i);

//BildTemp wird auf Position (i,0) gesetzt
Image1.CopyRect(Rect(i,0,i+BildTemp.Width,BildTemp.Heigth),BildTemp.Canvas,BildTemp.Canvas.ClipRect);
end;

ansonsten:

Delphi-Quellcode:

procedure TForm1.Verschieben;
var BildTemp: TBitmap;
begin
BildTemp:=TBitmap.Create;

//Image1 wird in Bitmap kopiert
BildTemp.Assign(Image1.Picture.Bitmap);

//Image1.Canvas wird mit einem Rectangle übermalt
Image1.Canvas.Rectangle(-1,-1,Image1.Width+1,Image1.Heigth+1);

inc(i);

//BildTemp wird auf Position (i,0) gesetzt
Image1.CopyRect(Rect(i,0,i+BildTemp.Width,BildTemp.Heigth),BildTemp.Canvas,BildTemp.Canvas.ClipRect);
end;