Schmeiss eine scrollbox, listbox, ein image (imgtemplate) und einen button auf deine Form... Hier der Code zum Laden der Bilder (in meinem Fall aus Dateien und alle mit gleichen Breiten).
Delphi-Quellcode:
implementation
uses
Windows;
{$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject);
var
i: Integer;
fn: string;
img: TImage;
begin
for i := 0 to listbox1.items.count - 1 do begin
fn := listbox1.items[i] ;
img := TImage.create (Self) ;
img.Parent := scrollbox1 ;
img.AutoSize := false ;
img.Stretch := false ;
img.Tag := i ;
img.Left := (i*32) + 8 ;
img.Top := 8 ;
img.Width := 24 ;
img.height := 24 ;
img.Picture.LoadFromFile(fn);
img.Cursor := crHandPoint ;
img.OnClick := imgTemplateClick ;
end;
end;
procedure TForm16.imgtemplateClick(Sender: TObject);
begin
caption := inttostr ((Sender as TImage).tag) ;
end;
end.