Bildervorschau programmieren.

[smart]

Hi Luke!

Wie rufst Du das ganze auf? Bei mir futzt es nicht Es kommt auch keine Fehlermeldung!

Zitat von DGL-luke:

was hältst du davon?

Gruß
Heike

[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.