Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stOrM,
15. Sep 2008
Kein Thema schön wenn ich auch mal helfen konnte :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stOrM,
15. Sep 2008
Hmm hoffentlich ist das richtig, ich geh grad die alten sourcen durch von mir:
procedure TForm1.LoadImageLists;
var
sfi : TSHFileInfo;
SysIL : uint;
LargeImages, SmallImages : TImageList;
begin
LargeImages := TImageList.Create(Form1);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stOrM,
13. Sep 2008
Hmm bin mir nicht sicher ob es das ist was du suchst, aber ich hab das mal so in etwa gemacht:
function GetIconIndex(Name: string; Flags: Cardinal): Integer;
// Returns the index of the system icon for the given file object.
var
SFI : TSHFileInfo;
Tmp : String;
ResPath : String;