From e98eebf9c9745228b76319d615ca6ee4a62a0f6f Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 7 Mar 2008 12:54:40 +0000
Subject: * TfpgForm now has a FullScreen property. Currently only implemented
 in X11. * TfpgForm also has a new method SetFullscreen(boolean) which allows
 you to switch fullscreen mode at any time.

---
 src/gui/gui_form.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/gui')

diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index 173ea714..b38cee83 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -34,6 +34,7 @@ type
 
   TfpgForm = class(TfpgWidget)
   private
+    FFullScreen: boolean;
     FOnActivate: TNotifyEvent;
     FOnClose: TNotifyEvent;
     FOnCreate: TNotifyEvent;
@@ -69,6 +70,7 @@ type
     procedure   Close;
     property    Sizeable: boolean read FSizeable write FSizeable;
     property    ModalResult: integer read FModalResult write FModalResult;
+    property    FullScreen: boolean read FFullScreen write FFullScreen default False;
   published
     {$Note Refactor this to a TfpgCustomForm and only surface it here }
     property    BackgroundColor;
@@ -182,6 +184,11 @@ begin
     Include(FWindowAttributes, waSizeable)
   else
     Exclude(FWindowAttributes, waSizeable);
+    
+  if FFullScreen then
+    Include(FWindowAttributes, waFullScreen)
+  else
+    Exclude(FWindowAttributes, waFullScreen);
 end;
 
 procedure TfpgForm.SetWindowParameters;
@@ -202,6 +209,7 @@ begin
   FMinWidth        := 32;
   FMinHeight       := 32;
   FModalResult     := 0;
+  FFullScreen := False;
 
   AfterCreate;
 end;
-- 
cgit v1.2.3-70-g09d2