1 files changed, 39 insertions, 2 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index 311a4fce..fec0c511 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -304,8 +304,6 @@ type
   end;
 
 
-  { TfpgGDITimer }
-
   TfpgGDITimer = class(TfpgBaseTimer)
   private
     FHandle: THandle;
@@ -316,6 +314,16 @@ type
   end;
 
 
+  TfpgGDISystemTrayIcon = class(TfpgComponent)
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure   Show;
+    procedure   Hide;
+    function    IsSystemTrayAvailable: boolean;
+    function    SupportsMessages: boolean;
+  end;
+
+
 implementation
 
 uses
@@ -3105,6 +3113,35 @@ begin
 end;
 
 
+{ TfpgGDISystemTrayIcon }
+
+constructor TfpgGDISystemTrayIcon.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+end;
+
+procedure TfpgGDISystemTrayIcon.Show;
+begin
+  //
+end;
+
+procedure TfpgGDISystemTrayIcon.Hide;
+begin
+  //
+end;
+
+function TfpgGDISystemTrayIcon.IsSystemTrayAvailable: boolean;
+begin
+  Result := False;
+end;
+
+function TfpgGDISystemTrayIcon.SupportsMessages: boolean;
+begin
+   Result := True;
+end;
+
+
+
 initialization
   wapplication   := nil;
   MouseFocusedWH := 0;