System Image List kopieren

[oki]

Hi,

Dank euch beiden.
Folgender Code klappt bei mir:

Delphi-Quellcode:

procedure TOTFListView.CreateWnd;
var SML, ML : PLongWord;
begin
  inherited;
  FFileImageList16 := TImageList.Create(self);
  FFileImageList16.Height := 16;
  FFileImageList16.Width := 16;
  self.SmallImages := FFileImageList16;

  FFileImageList32 := TImageList.Create(self);
  FFileImageList32.Height := 32;
  FFileImageList32.Width := 32;
  self.LargeImages := FFileImageList32;

  GetMem(ML, Sizeof(LongWord));
  ML^ := 0;
  GetMem(SML, Sizeof(LongWord));
  SML^ := 0;
  Shell_GetImageLists(ML, SML);
  if SML^ > 0 then
    FFileImageList16.Handle := SML^;
  if ML^ > 0 then
    FFileImageList32.Handle := ML^;
  FreeMem(ML);
  FreeMem(SML);
end;

In den Anhang habe ich auch noch einen Screenshot gelegt.

Jetzt stellt sich nur noch die Frage mit der Sackgasse.

Gruß oki

[Apollonius]

Es ist unnötig, hier auf den Speichermanager zurückzugreifen. Deklariere SML und ML als LongWord bzw. HIMAGELIST. Dann kannst du dir die Aufrufe von GetMem und FreeMem sparen. Der Funktion kannst du einfach @SML und @ML übergeben.

[oki]

Klar, mit den Zeigern. Eine Deklaration mittels var in der Funktion tut es sicher auch. Ist beim Probieren entstanden. Ich wollte auch erst HIMAGELIST benutzen, hab aber nicht rausbekommen wo das deklariert ist.

Gruß oki

[oki]

Hi Luckie.

Ich stell mich wohl grad etwas blöd an, aber ich kann das Demo nicht finden. Ich hab im Forum gesucht und auf deiner HomePage. Kannst du bitte mal so nett sein und mir den direkten Link posten?

Auch wenn mein Code aktuell funzt möchte ich ihn trotzdem noch mal prüfen. Ich bin mir nicht sicher, ob ich wirklich alles richtig mache in der Verwendung.

Schon mal Dank und Gruß

oki