lazarus/components/trayicon/wstrayicon.pas
vincents 2ced4c37b6 trayicon: added support for qt
git-svn-id: trunk@10602 -
2007-02-07 12:23:52 +00:00

105 lines
2.0 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}
{$ifdef LCLQt}
wsqttrayicon,
{$else}
wscarbontrayicon,
{$endif}
{$else}
{$ifdef LCLGtk}
wsgtktrayicon,
{$endif}
{$ifdef LCLGnome}
wsgtktrayicon,
{$endif}
{$ifdef LCLGtk2}
wsgtk2trayicon,
{$endif}
{$ifdef LCLQt}
wsqttrayicon,
{$endif}
{$ifdef LCLFPGUI}
wsx11trayicon,
{$endif}
{$endif}
{$endif}
Classes, SysUtils;
type
{ TWSTrayIcon }
TWSTrayIcon = class(TWidgetTrayIcon)
private
protected
public
published
end;
implementation
end.