Hallo Leute
Wo liegt mein Fehler
Ich hab drei Images, 1 und 2 liegen auf Image3 nun möchte Ich das um alle drei Images
ein Rahmen gezeichnet wird und in jedes Image ein weißes Bild geladen wird, das klappt auch
so
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
{ImageList1.GetBitmap(0, Image3.Picture.Bitmap); Hier klappts dann nicht mehr }
ImageList1.GetBitmap(0, Image2.Picture.Bitmap);
ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlack;
Canvas.Rectangle(Image3.Left-1,Image3.Top-1,
Image3.Left+Image3.Width+1,Image3.Top+Image3.Height+1);
Canvas.Rectangle(Image1.Left-1,Image1.Top-1,
Image1.Left+Image1.Width+1,Image1.Top+Image1.Height+1);
Canvas.Rectangle(Image2.Left-1,Image2.Top-1,
Image2.Left+Image2.Width+1,Image2.Top+Image2.Height+1);
end;