Bildervorschau programmieren.

[DGL-luke]

Aufrufen würd ich das so:

Delphi-Quellcode:

procedure TForm1.ImagePanelOnPaint(Sender: TObject);
begin
  DrawPictures((Sender as TPanel).Canvas, 5, 32, 3, Pictures);
end;

In Pictures müssen natürlich lauter TPicture-Objekte sein. TPicture ist ein generischer Bild-Container, in den du standardmäßig bmp, wmf und ico laden kannst, mit z.B. GraphicEx dann auch jpeg, gif, png etc.