mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-30 17:56:13 +02:00
42 lines
1.2 KiB
ObjectPascal
42 lines
1.2 KiB
ObjectPascal
{
|
|
wndtray.dpr
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This demonstration program is public domain, witch means no copyright, *
|
|
* but also no warranty! *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
Author: Felipe Monteiro de Carvalho
|
|
}
|
|
program wndtray;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}{$H+}
|
|
{$endif}
|
|
|
|
uses
|
|
{$ifdef fpc}
|
|
Interfaces,
|
|
{$endif}
|
|
Forms,
|
|
frmtest in 'frmtest.pas';
|
|
|
|
{ add your units here }
|
|
|
|
{$ifdef Windows}
|
|
{$R magnifier.res}
|
|
{$endif}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TfrmTrayTest, frmTrayTest);
|
|
Application.Run;
|
|
end.
|
|
|