Using Imagelist1.Handle?
lazarus / 34-Windows

----------------------------------------------------------------------
Timewarp · 2012-09-05 08:29

I'm getting Error: No member is provided to access property

How should I do this, something like this works in Delphi
Code: [Select]uses Windows, Shellapi, Shlobj;

procedure TForm1.Button1Click(Sender: TObject);
var FileInfo: TSHFileInfo;
    Pidl: PItemIDList;
begin
 SHGetSpecialFolderLocation(form1.Handle, CSIDL_FAVORITES, Pidl);
 imagelist1.ShareImages:=True;
 imagelist1.Handle:=SHGetFileInfo(Pchar(Pidl), 0, FileInfo,
SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or
SHGFI_SMALLICON);
 popupmenu1.Images:=imagelist1;
 popupmenu1.Items[0].ImageIndex:=0;
 popupmenu1.Items[1].ImageIndex:=1;
 popupmenu1.Popup(200,200);
end;