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
LVL 1
Dazza051197Asked:
Who is Participating?
 
BoRiSConnect With a Mentor Commented:
Check out the SHGetFileInfo API call there is a flag under there that lets you return a small icon

I think it's called SHGF_SMALLICON (the flag) can't remember right now

any problems just ask I'll help

BoRiS
0
 
Dazza051197Author Commented:
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

0
 
williams2Commented:
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
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
BoRiSCommented:
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...
0
 
BoRiSCommented:
Dazza

Please grade this answer

Thank You

BoRiS
0
 
Dazza051197Author Commented:
Sorry for the delay, been tied up with other things.
Your answer works a treat, thanks.
Daz

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.