asked on

Small Icons

I've seen Windows 95 show the icons as 18x18, how do I stretch my icons in Delphi 2 to this size ? They have to be icons because I'm extracting them from exe's, but I want them smaller on my buttons.

Darren

ASKER CERTIFIED SOLUTION

BoRiS

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Dazza051197

ASKER

How do I get the handle to the icon though ? I looked up the SHGetFileInfo routine in the Windows API and it tells me it's going to give me a handle to the system image list ?
I'll increase to 300 points if you can provide a Delphi 2 example to return a small TIcon from a filename provided.
Daz

williams2

Not that I'm going to interfear with BoRiS's excellent answer (Thanks), I have been looking for that API myself. Anyway, When you get the handle to an Imagelist, you can pass it to severel other API's (Try look up ImageList_GetIcon in Delphi help) It's not that difficult at all. I f you just know the index value, one more call should do it.

Afterwards do like:
Icon:= TIcon.Create;
Icon.Handle:= hICON;
..And that's it

Regards
Williams

BoRiS

try this....

uses
..., ShellApi;

procedure TForm .........
var
SmallIco: TIcon;
shfi: TShFileInfo;
begin
SmallIco := TIcon.Create;
ZeroMemory(@shfi, SizeOf(shfi));
ShGetFileInfo('C:\MyFile.exe', 0, shfi, SizeOf(shfi), SHGFI_SMALLICON);
SmallIco.Handle := shfi.hIcon;
... {rest of coding}
SmallIco.Free;
end;

got this from a good friend, maybe you know him...

BoRiS

Dazza

Please grade this answer

Thank You

BoRiS

Dazza051197

ASKER

Sorry for the delay, been tied up with other things.
Your answer works a treat, thanks.
Daz