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

examples: fix trayicon example

Browse Source 
git-svn-id: trunk@16292 -
This commit is contained in:
paul 2008-08-29 11:14:33 +00:00
parent b3f5caf27e
commit 85defd7610
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/trayicon/frmtest.pas
View File

@ -136,26 +136,17 @@ end;
procedure TfrmTrayTest.FormPaint(Sender: TObject);
var
BaseImage, SecondImage: TIcon;
BaseImage: TIcon;
begin
if chkOnPaintDrawing.Checked then
begin
BaseImage := TIcon.Create;
SecondImage := TIcon.Create;
try
// Loads the icon
BaseImage.LoadFromFile(pathMedia + 'icon.ico');
// SecondImage.Add(pf32bit, 22, 22);
SecondImage.Height := 22;
SecondImage.Width := 22;
{$IFDEF FPC}
SecondImage.Canvas.Draw(0, 0, BaseImage);
{$ENDIF}
Canvas.Draw(0, 0, SecondImage);
Canvas.Draw(0, 0, BaseImage);
finally
BaseImage.Free;
SecondImage.Free;
end;
end;
end;