VPF::ListView и Icon - Форум программистов

Дата 9.1.2005, 22:50 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Я думал ты сам додумаешься, что нужно сделать.

А делать нужно следущее: Два компонента ListImage

Оба оброботать как в примере в событии OnFormcreate.

один из них обработать с SHGFI_SMALLICON другой с SHGFI_LARGEICON

Один компонент в В LargeImages Другой в SmalLImages.

Вот и всё.

Sentynel

Дата 9.1.2005, 23:34 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 20.12.2004
Где: Deutschland, Cell e

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

RAdmin

огромное тебе спасибо, всё работает отлично, с этой проблемой полностью разобрался и всё понял.
Приятно было с тобой общаться. Ещё раз спасибо. Пока !!! smile

pwl38

Дата 26.1.2005, 19:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Попробуй для получения иконок и загрузки их ImageList использовать функции ExtractIcon & ExtractAssociateIcon. smile

Antony41

Дата 8.1.2009, 10:41 (ссылка)

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

Загрузка ...

Опытный

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

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

ТОЖЕ долго мучался, сначала тоже не отображались, потом нашёл решение, работая с большими списками файлов до 10000 итемов возникали ошибки, вот самый верный и быстрый способ, не тормозящий процесс поиска

Код


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls,     ActiveX, shlobj;

type
 TForm1 = class(TForm)
   ListView: TListView;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation
uses ShellAPI;

{$R *.dfm}

procedure  FilesIcon;
var 
Fil: TSHFileInfo;
Ser: TSearchRec;
Lis: TListItem;
begin
Form1.ListView.Items.BeginUpdate;
Form1.ListView.Items.Clear;
if  FindFirst(ExtractFilePath(Application.EXEName) + '*.*', faAnyFile, Ser) = 0  then repeat 
  if  Ser.Attr and faDirectory <> 0  then  continue;
  Lis := Form1.ListView.Items.Add;
  Lis.Caption := Ser.Name;
  ShGetFileInfo(PAnsiChar(SerName), 0, FileInfo, SizeOf(Fil), SHGFI_LARGEICON or SHGFI_SYSICONINDEX);
  Lis.ImageIndex := Fil.iIcon;
 until  FindNext(Ser) <> 0;
FindClose(Ser);
Form1.ListView.Items.EndUpdate;
end;


procedure  TForm1.FormCreate(Sender: TObject);
var 
 Fileinfo: TSHFileInfo;
 TmpIcon:TIcon;
 Allocator:IMalloc;
begin 
 SysImages.Handle := SHGetFileInfo('',0, Fileinfo, sizeof(TSHFileInfo),SHGFI_SMALLICON or SHGFI_SYSICONINDEX );
 SysImages.ShareImages := True;
 TmpIcon:=TIcon.Create;
 SysImages.GetIcon(FileInfo.iIcon,TmpIcon);
 SHGetMalloc(Allocator);
 SysImages.GetIcon(FileInfo.iIcon,TmpIcon);
 Allocator._Release;
 FolderH := Fileinfo.IIcon;
 SysImages.GetIcon(FileInfo.iIcon,TmpIcon);
 SysImages.GetIcon(FolderH,TmpIcon);
 TmpIcon.Free;
 ListView1.SmallImages:=SysImages;
end;

end.

вроде так накидал половину без компилятора

M
Rrader

Antony41, зачем темы четырехлетней давности поднимать?!

Это сообщение отредактировал(а) Rrader - 8.1.2009, 15:12

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