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;