* 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.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index 94c86a88..65533570 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -147,6 +147,7 @@ type
     constructor Create(AOwner: TComponent); override;
     procedure   CaptureMouse; override;
     procedure   ReleaseMouse; override;
+    procedure   SetFullscreen(AValue: Boolean); override;
   end;
 
 
@@ -1346,6 +1347,9 @@ begin
       AllocateWindowHandle;
     XMapWindow(xapplication.Display, FWinHandle);
     Include(FWinFlags, xwsfMapped);
+    // Fullscreen can only be set visible (mapped) windows.
+    if waFullScreen in FWindowAttributes then
+      fpgApplication.netlayer.WindowSetFullscreen(FWinHandle, True);
   end
   else
   begin
@@ -1473,6 +1477,12 @@ begin
   XUngrabPointer(xapplication.display, CurrentTime);
 end;
 
+procedure TfpgWindowImpl.SetFullscreen(AValue: Boolean);
+begin
+  inherited SetFullscreen(AValue);
+  fpgApplication.netlayer.WindowSetFullscreen(FWinHandle, AValue);
+end;
+
 { TfpgFontResourceImpl }
 
 constructor TfpgFontResourceImpl.Create(const afontdesc: string);