Заполнить ListView иконками

[nefakt]

У меня есть код но иконки не появляются

const
  SectionName = 'Game';
var
  Keys: TStringList;
  Inifile: TMemIniFile;
  I: Integer;

  A: array [0..78] of Char;
  s:TIcon;
begin
  ListView1.ViewStyle := vsIcon;
  Inifile := TMemIniFile.Create('Settings.ini');
  Keys := TStringList.Create;
  Inifile.ReadSection(SectionName, Keys);
  for I := 0 to Keys.Count - 1 do
    with ListView1.Items.Add do
    begin
    ListView1.LargeImages := TImageList.Create(nil);
    ListView1.LargeImages := TImageList.CreateSize(32,32);

    StrPCopy(A, Inifile.ReadString(SectionName, Keys[I], ''));
    ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0);

    Caption := Keys[I];
    end;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);

Уверен что тут есть ошибка

Можете пример дать загрузки или показать где ошибка в коде выше.
То что в посте 4 там заполнение ListBox`а.

[Stilet]

Кмгм... Я так понял что ты мой пост читал сквозь спустя рукава...
Повторюсь: Пример получения иконки тут http://www.programmersforum.ru/showthread.php?t=20380
Попробуй его для начала, а уже потом будешь и назначать (а точнее рисовать) иконку в списке.

[nefakt]

Я уже написал вот код

procedure TForm1.FormCreate(Sender: TObject);
const
  SectionName = 'Game';
var
  Keys: TStringList;
  Inifile: TMemIniFile;
  I: Integer;
 
  A: array [0..78] of Char;
  s:TIcon;
begin
  ListView1.ViewStyle := vsIcon;
  Inifile := TMemIniFile.Create('Settings.ini');
  Keys := TStringList.Create;
  s:=tIcon.Create;
  Inifile.ReadSection(SectionName, Keys);
  ListView1.LargeImages:=TImageList.Create(self);
  for I := 0 to Keys.Count - 1 do
    with ListView1.Items.Add do
    begin
      Caption := Keys[i];
      StrPCopy(A, Inifile.ReadString(SectionName, Keys[i], ''));
      ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0);
 
    end;
       s:=nil;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);
end;

Он загружает ListView только иконки не отображает
ExtractIcon(HInstance, A,0); вот эта функция вытаскивает иконки из файла но не отрисовывает.

[Stilet]

Э-э-эх, пичалити... Ниче ты не понял. Как не хотел пытаться разбираться так и по сей день не хочешь.
Вот держи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ImageList1: TImageList;
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    procedure AddFileToList(FileName:String);
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 with ListView1 do begin
  SmallImages:=ImageList1;
  ViewStyle:=vsSmallIcon;
 end;
 AddFileToList('d:\eye.jpg');
 AddFileToList('d:\Словарь нихон.xls');
end;

procedure TForm1.AddFileToList(FileName: String);
var p:pchar;c:Cardinal;i:HICON;o:word;    ic:TIcon;
begin

o:=0;
GetMem(p,255);
c:=FindExecutable(pchar(FileName),
 pchar(ExtractFilePath(FileName)),p);

i:=ExtractAssociatedIcon(HInstance,p,@o);
ic:=TIcon.Create;
ic.Handle:=i;
with ListView1.Items.Add do begin
  Caption:=ExtractFileName(FileName);
  ImageIndex:=ImageList1.AddIcon(ic);
end;

end;

end.

Если и тут не разберешься то я умываю руки.

[Sibedir]

procedure TForm1.Button1Click(Sender: TObject);
var
  ic: TIcon;
  i: Integer;
  s: String;
begin
  if OpenDialog1.Execute then begin
    ic := TIcon.Create;
    ic.Handle := ExtractIcon (HInstance, PAnsiChar(OpenDialog1.FileName), 0);
    i := ImageList1.AddIcon (ic);
    ic.Free;

    s := ExtractFileName (OpenDialog1.FileName);
    with ListView1.Items.Add do begin
      Caption := s;
      ImageIndex := i;
     end;
  end;
end;

О-о-о! Stilet уже давно всё написал. И даже лучше.

// -------------------------------------------------------------------
2 вопроса Stilet
1. Почему у меня в uses нужно добавлять ShellAPI (и в D7 и в XE3), а у тебя его нет?
2. Почему не нужно удалять иконку (ic.Free)? Это потому что она потомок TInterfacedPersistent?

[Stilet]

i := ImageList1.AddIcon (ic);

Опля, несподиванка О_о
А этот метод че, копирует а не назначает? Тогда мой код фтопку.

[Sibedir]

М-м-м. Фиг знает. Я так понимаю, что именно копирует.

Сообщение от CommCtrl

function ImageList_ReplaceIcon; external cctrl name 'ImageList_ReplaceIcon';

Я нэ разумию эти ваши апи-механизмы. Так надо или нет?

// --------------------
А. Ну всё допёрло. Если после ic.Free всё работает - значит копирует.

// --------------------
Тут наверное всё дело в том, что сам TIcon получая хэндел иконки создаёт отдельный её экземпляр в памяти. А при добавлении в gui-шный ImageList передаёт ей хэндел. Так получается чё, все иконки (и не только) в памяти дублируются чёли?
Или я вообще не то говорю?

[Stilet]

Почему у меня в uses нужно добавлять ShellAPI (и в D7 и в XE3), а у тебя его нет?

Потому что это не Делфи )

Так получается чё, все иконки (и не только) в памяти дублируются чёли?

Хендлы скорее всего просто запоминаются... Я вообще-то не в курсе, в генофонд лезть не хочется. Пусть уж ТС потрудится это выяснить.

[Sibedir]

Сообщение от Stilet

Потому что это не Делфи )

Упс. Лазарус.
Это "{$mode objfpc}{$H+}" не понял
Это "{$R *.lfm}" не заметил

А. Да. Ну это. Спасибо, что-ли

[Stilet]

Ну это. Спасибо, что-ли

Ну ты... Это... Заходи... Если что.
i.jpg