Bitmap.Assign klappt nicht

[Yheeky]

Hi,

ich möchte mehrere Bilder zu einem großen zusammensetzen und es in eine andere Komponente kopieren. Dies wollte ich wiefolgt machen:

Delphi-Quellcode:

Temp := TBitmap.Create;
imgLinks := TBitmap.Create;

imgLinks.LoadFromFile('C:\imglinks.bmp');

In Image1 soll das Bild nun gezeichnet werden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Temp.Canvas.StretchDraw(Rect(0, 0, imgLinks.Width, imgLinks.Height), imgLinks);
Image1.Picture.Bitmap.Assign(Temp);

end;

Darin erscheint es aber nicht. Kann mir jemand sagen was ich falsch mache?

Danke!

[Bernhard Geyer]

Ist den in Image1.Picture.Bitmap schon ein Bitmap geladen?
Image1.Picture.Bitmap := Temp; sollte besser funktionieren. Das Bitmap ein Property ist wird imm Hintergrund schon das richtige gemacht (Hoffe ich doch da nicht getestet).

[Yheeky]

Nein es ist noch kein Image in Image1 geladen...deine Zeile funktioniert leider auch nicht.

[bitsetter]

Hi,

die Breite und die Höhe des Bildes hast du anscheinend noch nicht gesetzt.

Delphi-Quellcode:

 Temp := TBitmap.Create;
imgLinks := TBitmap.Create;

imgLinks.LoadFromFile('C:\bild.bmp');

Temp.Width:= imgLinks.Width;
Temp.Height:= imgLinks.Height;

[Yheeky]

Super, das war´s! Danke schön!

[Muetze1]

Zitat von Bernhard Geyer:

Ist den in Image1.Picture.Bitmap schon ein Bitmap geladen?
Image1.Picture.Bitmap := Temp; sollte besser funktionieren. Das Bitmap ein Property ist wird imm Hintergrund schon das richtige gemacht (Hoffe ich doch da nicht getestet).

Das kann nicht besser funktionieren, da es das Gleiche ist wie

Image1.Picture.Bitmap.Assign(Temp); Die Bitmap Property hat ihre eigene Instanz intern und lässt sich diese nicht einfach mal so mit einer fremden überschreiben sondern ruft intern nur ein Assign() auf. Von daher sind beide Zeilen identisch.