|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Интерфейс с выбором картинки
Ребят, как бы поэлегантнее представить пользователю выбор картинок из списка. Сами картинки 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; Может, подскажет кто, как лучше это сделать? |
#2
|
||||
|
||||
Ну можете например воспользоваться гридом из девок, там можно определить поле для колонки как Image и будет вам галерея картинок.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |