mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 06:52:32 +02:00
97 lines
1.8 KiB
ObjectPascal
97 lines
1.8 KiB
ObjectPascal
{
|
|
wstrayicon.pas
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* See the file COPYING.modifiedLGPL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* 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. *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
Authors: Felipe Monteiro de Carvalho and Andrew Haines
|
|
|
|
Special thanks for: Danny Milosavljevic and the Lazarus Team
|
|
|
|
This unit calls the appropriate widgetset code.
|
|
}
|
|
unit wstrayicon;
|
|
|
|
{$ifdef FPC}
|
|
{$mode delphi}{$H+}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
{*******************************************************************
|
|
* Compatibility code for Delphi for Windows.
|
|
*******************************************************************}
|
|
{$ifndef FPC}
|
|
{$define Windows}
|
|
{$endif}
|
|
|
|
uses
|
|
|
|
{$ifdef Windows}
|
|
|
|
{$ifdef WinCE}
|
|
|
|
wswincetrayicon,
|
|
|
|
{$else}
|
|
|
|
wswin32trayicon,
|
|
|
|
{$endif}
|
|
|
|
{$endif}
|
|
{$ifdef UNIX}
|
|
|
|
{$ifdef DARWIN}
|
|
|
|
wscarbontrayicon,
|
|
|
|
{$else}
|
|
|
|
{$ifdef LCLGtk}
|
|
wsgtktrayicon,
|
|
{$endif}
|
|
|
|
{$ifdef LCLGnome}
|
|
wsgtktrayicon,
|
|
{$endif}
|
|
|
|
{$ifdef LCLGtk2}
|
|
wsgtk2trayicon,
|
|
{$endif}
|
|
|
|
{$ifdef LCLQt}
|
|
wsx11trayicon,
|
|
{$endif}
|
|
|
|
{$endif}
|
|
|
|
{$endif}
|
|
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TWSTrayIcon }
|
|
|
|
TWSTrayIcon = class(TWidgetTrayIcon)
|
|
private
|
|
protected
|
|
public
|
|
published
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|
|
|