Forum > Beginners
[SOLVED] TTrayIcon assign icon from imagelist
(1/1)
torbente:
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 [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---MyTrayIcon.Icon := ImageList[0];
Thanks
Handoko:
Maybe something like this:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.FormCreate(Sender: TObject);var ABitmap: TBitmap;begin ABitmap := TBitmap.Create; ImageList1.GetBitmap(0, ABitmap); MyTrayIcon.Icon.Assign(ABitmap); ABitmap.Free;end;
torbente:
--- Quote from: Handoko on August 03, 2018, 06:57:34 pm ---Maybe something like this:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.FormCreate(Sender: TObject);var ABitmap: TBitmap;begin ABitmap := TBitmap.Create; ImageList1.GetBitmap(0, ABitmap); MyTrayIcon.Icon.Assign(ABitmap); ABitmap.Free;end;
--- End quote ---
It worked perfect. Thanks a lot.
Navigation
[0] Message Index