|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
C Filelistbox1 на Listview1
Заранее благодарю! |
#2
|
|||
|
|||
У FileListBox1 ставим свойство DragMode=dmAutomatic и пишем событие OnEndDrag:
Код:
procedure TForm1.FileListBox1EndDrag(Sender, Target: TObject; X, Y: Integer); begin ListView1.AddItem(ExtractFileName((Sender as TFileListBox).FileName), nil); end; |
#3
|
||||
|
||||
Мне надо чтоб оно сама загрузила - а не ташить его
|
#4
|
||||
|
||||
Просто переделай немного:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin listview1.AddItem(FileListBox1.FileName,self); end; Кому я должен - всем прощаю!!!! |
#5
|
||||
|
||||
спасибо - а как можно сделать чтоб автоматически добавлялись все файлы а не по одиночке - а то в этом случае чтоб добавить надо сперва выделить обект - а нельзяли без выделения?
|
#6
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to filelistbox1.Items.Count-1 do begin listview1.AddItem(filelistbox1.Items[i],self); // или так listview1.AddItem(filelistbox1.Directory+filelistbox1.Items[i],self); end; end; Кому я должен - всем прощаю!!!! |
#7
|
||||
|
||||
СПАСИБО ОГРОМНОЕ!!!
Код:
var i:integer; li: TListItem; ind: string; size:real; b :byte; begin for i:=0 to filelistbox1.Items.Count-1 do begin getfilesize(filelistbox1.items[i]); size:=(getfilesize(filelistbox1.items[i])); b:=0; while (Size>=1024) and (b<3) do begin size:=size/1024; b:=b+1; end; if b=1 then ind:='Кб'; if b=2 then ind:='МБ'; if b=3 then ind:='ГБ'; if b=0 then ind:='байт'; li := ListView1.Items.Add; listview1.AddItem(filelistbox1.Items[i] ,self); li.SubItems.Add( floattostrf(Size,fffixed,5,2)+' '+ind); // end; SubItems добавляется после файла а не перед файлом как исправить?? |
#8
|
||||
|
||||
Если у тебя есть SubItems нужно сделать так:
Код:
with listview1.Items.Add do begin caption:=filelistbox1.Items[i]; SubItems.Add( floattostrf(Size,fffixed,5,2)+' '+ind); // end; Кому я должен - всем прощаю!!!! |
#9
|
||||
|
||||
Спасибо - еще один последний вопрос
а как сделать чтоб при включении чекбокса та строка приобретала зеленый цвет |
#10
|
||||
|
||||
Ну это уже рисованием на listview'e.
Закрашуешь нужную тебе строку, и сверху рисуешь текст, т.к. после рисования он не будет виден. Кому я должен - всем прощаю!!!! |
#11
|
||||
|
||||
Ясно - всеравно спасибо за помощь!
|