Ребят, как бы поэлегантнее представить пользователю выбор картинок из списка. Сами картинки bmp файлы лежащие в сгруппированных папках.
Использую devexpress компоненты:
Код:
procedure TForm1.FormShow(Sender: TObject);
var
Bitmap: TBitMap;
fs: TSearchRec;
i: integer;
begin
i := 0;
if FindFirst('D:\IconSet\*.bmp',
faAnyFile - faDirectory - faVolumeID, fs) = 0 then
repeat
Bitmap := TBitMap.Create;
Bitmap.LoadFromFile('D:\IconSet\'
+ fs.Name);
cxImageList1.AddMasked(Bitmap, clWhite);
dxImageListBox1.Items.Add(fs.Name);
dxImageListBox1.ImageIndexes[i] := i;
inc(i);
Bitmap.Free;
until FindNext(fs) <> 0;
end;
Может, подскажет кто, как лучше это сделать?