Recent

Author Topic: [SOLVED] TTrayIcon assign icon from imagelist  (Read 1747 times)

torbente

  • Sr. Member
  • ****
  • Posts: 325
    • Noso Main Page
[SOLVED] TTrayIcon assign icon from imagelist
« on: August 03, 2018, 06:19:35 pm »
Hi everyone (again  :) )

I have a Imagelist1 with 1 image, and i want use it as icon for my TTrayIcon component. It is possible?

Something like ...

Code: Pascal  [Select][+][-]
  1. MyTrayIcon.Icon := ImageList[0];

Thanks
« Last Edit: August 03, 2018, 07:44:17 pm by torbente »
Noso Cryptocurrency Main Developer
https://github.com/DevTeamNoso/NosoWallet

Handoko

  • Hero Member
  • *****
  • Posts: 5131
  • My goal: build my own game engine using Lazarus
Re: TTrayIcon assign icon from imagelist
« Reply #1 on: August 03, 2018, 06:57:34 pm »
Maybe something like this:

Code: Pascal  [Select][+][-]
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.   ABitmap: TBitmap;
  4. begin
  5.   ABitmap := TBitmap.Create;
  6.   ImageList1.GetBitmap(0, ABitmap);
  7.   MyTrayIcon.Icon.Assign(ABitmap);
  8.   ABitmap.Free;
  9. end;

torbente

  • Sr. Member
  • ****
  • Posts: 325
    • Noso Main Page
Re: TTrayIcon assign icon from imagelist
« Reply #2 on: August 03, 2018, 07:44:43 pm »
Maybe something like this:

Code: Pascal  [Select][+][-]
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.   ABitmap: TBitmap;
  4. begin
  5.   ABitmap := TBitmap.Create;
  6.   ImageList1.GetBitmap(0, ABitmap);
  7.   MyTrayIcon.Icon.Assign(ABitmap);
  8.   ABitmap.Free;
  9. end;

It worked perfect. Thanks a lot.
Noso Cryptocurrency Main Developer
https://github.com/DevTeamNoso/NosoWallet

 

TinyPortal © 2005-2018