VPF::Насчет отрисовки иконок в стандартных компонентах

Ak47black

Дата 7.5.2007, 19:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Snowy, ну ,а как сделать сделать нормально не сеточкой ,а сплошным я так и непонял smile

TechBee

Дата 20.8.2007, 00:10 (ссылка)

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

Загрузка ...

Новичок

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

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

хз, взял DRKB, нашел статью, кое чо вырезал лишнее (как мне показалось).
за 100% работоспособность не отвечаю, но визуально получилось как ты хотел...

Код


procedure TForm1.FormCreate(Sender: TObject);
var
 SysIL   : THandle;
 SysSIL  : THandle;
 SFI     : TSHFileInfo;
 SmallImages: TImageList;
begin
 SmallImages := TImageList.Create(self);
 with SmallImages do begin
     Width  := 16;
     Height := 16;
     SysSIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
       SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
     if SysSIL <> 0 then begin
       SmallImages.Handle := SysSIL;
       ShareImages := True;
     end;
   end;
 Listview1.SmallImages:=SmallImages;
 Listview1.ViewStyle:=vsReport;
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ListView1.Items.Add do begin
    Caption := 'Item'+inttostr(random(255)); //сам подставишь что надо    
    ImageIndex := GetIconIndex(extractfilepath(paramstr(0))+'1.ico', FILE_ATTRIBUTE_NORMAL);
 end;
end;

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