Default Icon (100x100) | 256x256 | 128x128 | 64x64 | 48x48 | 32x32 | 24x24 | 16x16 |
The basic idea is to place the application in some directory and just try and see which icon is displayed under various conditions.
Basically, running the application places
This zip file contains both the exe and the associated ico file.
I have additional pages on icons, Creating icons with GIMP, and Application branding.
| Press F1 to see the AboutBox. |
Code
procedure setIcon(Image: Timage; size: integer); begin Image.Picture.Icon.Handle := LoadImage(MainInstance, 'MAINICON', IMAGE_ICON, size, size, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin setIcon(Image16, 16); setIcon(Image24, 24); setIcon(Image32, 32); setIcon(Image48, 48); setIcon(Image64, 64); setIcon(Image128, 128); setIcon(Image256, 256); setIcon(ImageDefault, 0); end; |