Forum: Sonstige Fragen zu Delphi
Delphi
by DGL-luke,
11. Apr 2007
Aufrufen würd ich das so:
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.
Forum: Sonstige Fragen zu Delphi
Delphi
by DGL-luke,
10. Apr 2007
Hallo,
was hältst du davon?
//Dim = Dimensions = Abmessungen
procedure DrawPictures(Canvas: TCanvas; Columns, Dim, Spacing: Cardinal; Pictures: TObjectList);
var
row,col,pic,rows,x,y: Integer;
begin