paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:36:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

Small fix in trayicon example to make sure the correct icon is loaded in Win32

Browse Source 
git-svn-id: trunk@16281 -
This commit is contained in:
sekelsenmat 2008-08-28 11:59:38 +00:00
parent 7a7e45b610
commit 54842c85d5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/trayicon/frmtest.pas
View File

@ -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}