Mehrere Hundert Images (Seitenminiaturen)

[Uwe Raabe]

Kannst du nicht einfach ein Standard TDrawGrid nehmen, ColCount auf 1, RowCount auf Anzahl der Bilder, DefaultRowHeight und DefaultColWidth auf die Bildgröße. Im OnDrawCell-Event dann einfach das Bild auf den TDrawGrid.Canvas malen, in etwa so (angenommen FViewer.Thumb ist ein TGraphic):

Delphi-Quellcode:

procedure TForm137.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  FViewer.LoadThumbFromFile(ARow);
  (Sender as TDrawGrid).Canvas.Draw(Rect.Left, rect.Top, FViewer.Thumb);
end;