VPF::Пример работы с FileListBox - Форум программистов

6urunduk

Дата 26.4.2010, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

нашёл вот такой пример

Код


with TDirectoryListBox(FileListBox1) do
begin
Columns := 2;
SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWWWWWWWWWWWWWW.WWW'),0);
end;

, но не могу понять как его правильно применить! smile

Мне нужно, что бы в первом "столбце" , который получается, отображалось имя файла, а во втором -- информация о нём.Конкретно речь идёт о картинках, но с отображением высоты и ширыны я как-нибудь разберусь)) Если возможно, покажите конкретный рабочий пример))

~FoX~

Дата 26.4.2010, 21:34 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

6urunduk, Это не тот пример... Если у тебя количество файлов больше чем может поместится в боксе, то появляется не скролбар, а в два столбца умещаются....
Проще использовать Shell объекты или самому написать на основе ListView-а

--------------------

…множественность никогда не следует полагать без необходимости…

6urunduk

Дата 27.4.2010, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

~FoX~, обьясни пожалуйста популярно)) что проще: использовать Шелл ил написать новый компонент?! Если писать компонент, то какая лит-ра для этого лучше подходит, если использовать Шелл, то какая для этого?!

~FoX~

Дата 27.4.2010, 15:45 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

6urunduk, Ну примерно так:

Кладешь на форму ListView, ставишь у него стиль vsReport, устанавливаешь columns какие тебе нужны, и пишешь что нить в этом роде:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFile('C:\TEMP\', '*.*', ListView1);
end;


procedure GetFile(Dir: string; ras: string; List: TListView);
var
  f : TSearchRec;
  i : integer;
  s : string;
    ListItem: TListItem;
begin
  i := FindFirst(Dir+ras, faAnyFile, f);
  while (i=0) do
    begin
     s := Dir+'\'+f.Name;
     ListItem := List.Items.Add;
     ListItem.Caption := f.Name;
     ListItem.SubItems.Add('Сюда кладешь то что тебе нужно');
     i := FindNext(f);
     Application.ProcessMessages;
    end;
  FindClose

Если надо могу дать пример заполнения листа с ассоциированными иконками и фильтром только по картинкам... Писан на РАД 2к9

Это сообщение отредактировал(а) ~FoX~ - 27.4.2010, 15:53

--------------------

…множественность никогда не следует полагать без необходимости…

6urunduk

Дата 27.4.2010, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

~FoX~, кароч смотри :мне в моём приложении нужно отображать в каком то компоненте список файлов(картинок в частности), но что бы в одной колонке отображались их имена, а в другой -- длина и ширина этих картинок, т.е. мне нужно что бы компонент считывал инфу не с файла, а папки.Это возможно?!

~FoX~

Дата 27.4.2010, 16:05 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

6urunduk, Нет, размеры картинок можно найти либо открыв файл и померить - bmp, dib, gif, etc.... или из инфы файла - jpg\jpeg
Чем мой пример не устроил?

--------------------

…множественность никогда не следует полагать без необходимости…

6urunduk

Дата 27.4.2010, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

~FoX~, просто я Василий -- до меня доходит, когда глупый вопрос по теме зада smile

6urunduk

Дата 27.4.2010, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

~FoX~, а как и где нужно обьявить оператор GetFile ?

~FoX~

Дата 27.4.2010, 16:31 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

6urunduk, Эгм, это процедура.... Объявляется перед implementation или в привате или в паблике формы, но тогда нужно в исполнении добавить procedure Form1.GetFile(Dir: string; ras: string; List: TListView);

Код


privat
//.......
public
//.......
end;
//.......
  procedure GetFile(Dir: string; ras: string; List: TListView);
//.......
implementation

Это сообщение отредактировал(а) ~FoX~ - 27.4.2010, 16:31

--------------------

…множественность никогда не следует полагать без необходимости…

6urunduk

Дата 27.4.2010, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

~FoX~, спасибо, пошёл разбераться

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »