| ← Сентябрь 2004 → | ||||||
|
3
|
5
|
|||||
|---|---|---|---|---|---|---|
|
7
|
||||||
|
21
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Доброго времени суток, все!
Функция ShGetFileInfo безотказно получает иконки файлов. Но она делает
это ОЧЕНЬ медленно (к примеру, для отображения файлов
windows\system32\ требуется неколько минут). Может быть, есть какая-то
другая фукция?
Доброго времени суток, Томилов.
Вы писали 27 сентября 2004 г., 19:01:32
на тему "Получить иконки [2]"
У меня почему-то каталог Demos пустой! Кинь, если не трудно, исходники
этого примера.
Здравствуйте, Денис.
Вы писали 27 сентября 2004 г., 22:59:09:
Сначала нужно получить дикриптор списка иконок. Потом в этом списке
искать соответствие иконок типам файлов.
uses
ShellAPI;
procedure UpdateFiles;
var
sr: TSearchRec;
li: TListItem;
fi: TSHFileInfo;
ext: string;
IconIndex: word;
ic: TIcon;
begin
Form1.ListView1.Items.BeginUpdate;
Form1.ListView1.Items.Clear;
if FindFirst(Form1.DirectoryListBox1.Directory + '\*.*', faAnyFile, sr) = 0
then
repeat
if sr.Attr and faDirectory <> 0 then
continue;
li := Form1.ListView1.Items.Add;
li.Caption := sr.name;
ext := LowerCase(ExtractFileExt(li.Caption));
ShGetFileInfo(PChar('*' + ext), 0, fi, SizeOf(fi),
SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
li.ImageIndex := fi.iIcon;
if sr.Size < 1024 then
li.SubItems.Add(IntToStr(sr.Size) + ' byte')
else
if sr.Size < 1024 * 1024 then
li.SubItems.Add(IntToStr(round(sr.Size / 1024)) + ' KByte')
else
li.SubItems.Add(IntToStr(round(sr.Size / (1024 * 1024))) + ' MByte');
li.SubItems.Add(fi.szTypeName);
until
FindNext(sr) <> 0;
FindClose(sr);
Form1.ListView1.Items.EndUpdate;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
fi: TSHFileInfo;
lc: TListColumn;
begin
DriveComboBox1.DirList := DirectoryListBox1;
with ListView1 do
begin
SmallImages := TImageList.CreateSize(16,16);
SmallImages.Handle := ShGetFileInfo('*.*', 0, fi,
SizeOf(fi), SHGFI_SMALLICON or SHGFI_ICON
or SHGFI_SYSICONINDEX);
LargeImages := TImageList.Create(nil);
LargeImages.Handle := ShGetFileInfo('*.*', 0, fi,
SizeOf(fi), SHGFI_LARGEICON or SHGFI_ICON
or SHGFI_SYSICONINDEX);
lc := Columns.Add;
lc.Caption := 'Name';
lc := Columns.Add;
lc.Caption := 'Size';
ComboBox1.Items.Add('Icons');
ComboBox1.Items.Add('List');
ComboBox1.Items.Add('Table');
ComboBox1.Items.Add('SmallIcons');
ComboBox1.ItemIndex := 0;
end;
UpdateFiles;
end;
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
UpdateFiles;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: ListView1.ViewStyle := vsIcon;
1: ListView1.ViewStyle := vsList;
2: ListView1.ViewStyle := vsReport;
else
ListView1.ViewStyle := vsSmallIcon;
end;
end;
Доброго времени суток, Виталий.
Вы писали 28 сентября 2004 г., 19:13:38
на тему "Получить иконки [2]"
Опять же, используется функция ShGetFileInfo, которая в любом случае
работает очень медленно. Может быть, можно как-нибудь по-другому?
Здоровеньки булы, Денис!
27 сентября 2004 г., понедельник, 16:59:09 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "Получить иконки [2]",
в котором сообщалось следующее:
Не устаю отсылать к
c:\Program Files\Borland\Delphi5\Demos\Virtual Listview
Посмотри как там сделано.
Хинт:
SendMessage(ListView.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle);
Для Delphi, есс-но.
PS: Люди смотрите экзамплы помогает
PPS: Общий смысл - одинаковые иконки в Image не храняться.