GoldenEye4ever
Programmer
I just found: TCoolTrayIcon.
I like quite-a-few of it's features; hide app from taskbar when minimized, etc...
However, I can't seem to get the icon animation to work.
I have a series of *.ico files that I'd like it to rotate through.
Since I'm using Turbo Delphi, I cannot install the visual component, I have to create and initialize it from code
I need to know how to load the icon files into the TCoolTrayIcon object (either via LoadFromFile or preferably, from an embedded resource)
This is what I'm doing:
I tried adding the ico files to a TImageList object, and then assigning it, but that failed. (that's commented out above)
As the code is above, the TCoolTrayIcon displays the main application icon, and does not cycle/animate the tray icon.
Any help would be greatly appreciated
I like quite-a-few of it's features; hide app from taskbar when minimized, etc...
However, I can't seem to get the icon animation to work.
I have a series of *.ico files that I'd like it to rotate through.
Since I'm using Turbo Delphi, I cannot install the visual component, I have to create and initialize it from code
I need to know how to load the icon files into the TCoolTrayIcon object (either via LoadFromFile or preferably, from an embedded resource)
This is what I'm doing:
Code:
uses
...
CoolTrayIcon;
...
var
trayicon : TCoolTrayIcon;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
...
Trayicon := TCoolTrayIcon.create(self);
with trayicon do
begin
// IconList.Assign( ImageList );
// CycleInterval := 100;
// CycleIcons := true;
Hint := Application.Title;
minimizetotray := true; {sets action if user clicks sysmenu minimize icon}
ShowFormOnTrayIconClick := true;
persistentTrayIcon := true;
PopupMenu := TrayIconPopup;
end;
...
end;
I tried adding the ico files to a TImageList object, and then assigning it, but that failed. (that's commented out above)
As the code is above, the TCoolTrayIcon displays the main application icon, and does not cycle/animate the tray icon.
Any help would be greatly appreciated