Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Bildervorschau programmieren.

    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

  Re: Bildervorschau programmieren.

    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