Текущий архив: 2005.12.11;
Скачать: CL | DM;
Вниз
Помогите! Какой компонент подходит??? Найти похожие ветки
← →
Officeman (2005-11-17 15:47) [0]В цикле Получаю строку с разделителями
Разбиваю строку, получаю:
Части строки: part1,part2,part3,part4,part5;
где: part1 - путь к файлу картинки. картинки размером (75x75)
Теперь надо загрузить это в какойнить список, чтобы получилось.
примерно так, и чтобы можно было выбирать любой из ПОЗИЦИЙ и использовать его дальше:
--------------------------------
__________ | part1
| здесь | | part2
|картинка | | part3
|________| | part4
| part5
--------------------------------
__________ | part1
| здесь | | part2
|картинка | | part3
|________| | part4
| part5
--------------------------------
__________ | part1
| здесь | | part2
|картинка | | part3
|________| | part4
| part5
--------------------------------
я думал что может LISTVIEW, или LISTBOX (поддерживает картинки) ???
← →
SergGG (2005-11-17 16:47) [1]Почему LISTVIEW не поддерживает картинки!!!!
Имеется Property - LargeImages
создай component ImegeList вставь туда картинку (75х75)
и присвой LargeImages - ImegeList
← →
Officeman (2005-11-24 00:37) [2]В продолжение! с Самого начала. Как видно из первого ПОСТА. имеет список(таблица) с картинками. НАпример в таблицу загружены данные об автомобилях. тогда:
В данный момент TListView имеет вид "стиль Table"
image company model obiem
a8.gif audio a8 2,8 (фотки в GIF формате)
c10.gif BMW c10 3,2
Я хочу сдеалать так, у TListView имеет вид "стиль Icon"
чтобы выводилась маленькая картинка, под ним "audio a8",
а если наводишь то появляется HINT с данными из остальных полей.
ЭТО ВОЗМОЖНО ?????
как указать чтобы под картинкой выводилась не первая колонка(с именем файла) а например вторая + третья ( название + модель)
ЭТО РЕАЛЬНО ????
подскажите как:
как указать чтобы под картинкой выводилась не первая колонка(с именем файла) а например вторая + третья ( название + модель)
с Уважением, Officeman
← →
SergGG © (2005-11-24 16:55) [3]Всё возможно, только пока в BMP формате:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to ListView1.Items.Count-1 do
ListView1.Items.Item[i].Caption:=ListView1.Items.Item[i].SubItems.Strings[0]+" "+
ListView1.Items.Item[i].SubItems.Strings[1];
end;
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
Application.CancelHint;
ListView1.Hint:=ListView1.Columns.Items[0].Caption+": "+
item.SubItems.Strings[0]+#10#13+
ListView1.Columns.Items[1].Caption+": "+
item.SubItems.Strings[1]+#10#13+
ListView1.Columns.Items[2].Caption+": "+
item.SubItems.Strings[2];
end;
Страницы: 1 вся ветка
Текущий архив: 2005.12.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.031 c
