Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как добавлять в ListView полноцветные иконки?

Delphi , Компоненты и Классы , TListView

Как добавлять в ListView полноцветные иконки?

Code:
procedure TForm1.FormCreate(Sender: TObject);
var
SysIL   : THandle;
SysSIL  : THandle;
SFI     : TSHFileInfo;
begin
SysImageList1 := TImageList.Create(self);
with SysImageList1 do begin
     Width  := 16;
     Height := 16;
     SysSIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
       SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
     if SysSIL <> 0 then begin
       SysImageList1.Handle := SysSIL;
       ShareImages := True;
     end;
   end;
SysImageList2 := TImageList.Create(self);
with SysImageList2 do begin
     Width := 32;
     Height := 32;
     SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
       SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
     if SysIL <> 0 then begin
       SysImageList2.Handle := SysIL;
       ShareImages := True;
     end;
   end;
end;
 
function GetIconIndex(const AFile: string; Attrs: DWORD): integer;
var
SFI: TSHFileInfo;
begin
SHGetFileInfo(PChar(AFile), Attrs, SFI, SizeOf(TSHFileInfo),
   SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
Result := SFI.iIcon;
end;
....
with ListView.Items.Add do begin
Caption := FName;
ImageIndex := GetIconIndex(Caption, FILE_ATTRIBUTE_NORMAL);
SubItems.Add(FSize); 
SubItems.Add(FType);
SubItems.Add(FDateTime);
end;
Взято из http://forum.sources.ru

Автор: alexanderm

Статья Как добавлять в ListView полноцветные иконки? раздела Компоненты и Классы TListView может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TListView ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.01.2022 14:04:47/0.0012869834899902/0