mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
Small fix in trayicon example to make sure the correct icon is loaded in Win32
git-svn-id: trunk@16281 -
This commit is contained in:
parent
7a7e45b610
commit
54842c85d5
@ -120,6 +120,13 @@ begin
|
|||||||
pathMedia := pathStr + BundleResourceFolder;
|
pathMedia := pathStr + BundleResourceFolder;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
// Under Windows we get the path of the executable
|
||||||
|
{$IFDEF Windows}
|
||||||
|
pathMedia := ExtractFilePath(Application.ExeName);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
IncludeTrailingBackslash(pathMedia);
|
||||||
|
|
||||||
SystrayIcon.Hint := 'my tool tip';
|
SystrayIcon.Hint := 'my tool tip';
|
||||||
|
|
||||||
SystrayIcon.OnClick := HandleClick;
|
SystrayIcon.OnClick := HandleClick;
|
||||||
@ -139,6 +146,7 @@ begin
|
|||||||
// Loads the icon
|
// Loads the icon
|
||||||
BaseImage.LoadFromFile(pathMedia + 'icon.ico');
|
BaseImage.LoadFromFile(pathMedia + 'icon.ico');
|
||||||
|
|
||||||
|
// SecondImage.Add(pf32bit, 22, 22);
|
||||||
SecondImage.Height := 22;
|
SecondImage.Height := 22;
|
||||||
SecondImage.Width := 22;
|
SecondImage.Width := 22;
|
||||||
{$IFDEF FPC}
|
{$IFDEF FPC}
|
||||||
|
Loading…
Reference in New Issue
Block a user