[solved]Loading Icon at run time

[dbannon]

I want to load a (SystemTray) icon at runtime, someone has made me a nice set of icons for my app and diferent platforms/themes really require a different icon.

If I convert my PNG files to ICO, it all works but ICO files are big and as I will be shipping several I would rather ship PNG, they are a tenth of the size. I tried -

Code: Pascal  [Select][+][-]

1. procedure TForm1.LoadAltIcon();
2. var
3.     AImage : TImage;
4. begin
5.     AImage := TImage.Create(self);
6.     AImage.Picture.LoadFromFile('tomboy24Colour.png');
7.     TrayIcon1.Icon.Assign(AImage.Picture.Bitmap);
8. end;  

   

And, while it worked, it changed the colour of my icon, clearly I am not using the graphics as I should. How should I load a PNG into a Icon ?

Davo

[GAN]

Yes, I use PNG.

Code: Pascal  [Select][+][-]

1. TrayIcon1.Icon.LoadFromFile();

[dbannon]

Code: Pascal  [Select][+][-]

1. TrayIcon1.Icon.LoadFromFile();

Yes, thanks GAN, but I had tried that but get an exception :
EInvalidGraphic exception, "Stream is not a an Icon Type"

I have tried a couple of different PNG files too.....

The docs say an incorrect file format will raise an exception but does not tell us just what is an acceptable format.

Davo

[lainz]

Here is a lot of code with tray icons even with  animation
https://github.com/Arandusoft/fpcpaymowidget/blob/master/umain.pas

If I remember correctly we're using TImageList...

[dbannon]

While thanks are due to Gan and Iainz, I have just realized I am being quite silly.

The Lazarus icn file is big (137K) but my 24x24 system tray icon, converted to an ICO file, is tiny, some 2.5K so its not worth worrying about. I'll just ship a few ico files and stop fussing. 

Hmm, but some neat tricks in Iainz's link !   Worth some close study .....

Davo

[GAN]

Sorry @dbannon you are right, I can use a PNG only from the OI but at runtime get an exception:

Code: Pascal  [Select][+][-]

1. procedure TCustomIcon.ReadStream(AStream: TMemoryStream; ASize: Longint);
2. ...
3.   if (Header.idType <> 1) and (Header.idType <> 2)
4.   then raise EInvalidGraphic.Create('Stream is not an Icon type');    

Bug?

[dbannon]

I am not sure I'd label it a bug, its just that it does not do it.  In the ide there is extra code behind the 'Load' button. I guess if I am the first person to expect the same code at run time, its not really needed ....

Thanks,

Davo