Changeset 85

Timestamp:

Jan 16, 2017, 7:27:36 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Fullscreen mode under Linux. Maximized form was not spanned over main task bar.

Location:

trunk

Files:

• Back.pas (modified) (2 diffs)
• LocalPlayer/Term.pas (modified) (2 diffs)

trunk/Back.pas

@@ -5 +5 @@
 
 uses
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms;
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls;
 
 type
@@ -44 +44 @@
       LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background.png');
     end;
+    BoundsRect := Screen.MonitorFromWindow(Handle).BoundsRect;
+    FormStyle := fsStayOnTop;
   end else begin
     WindowState := wsNormal;

trunk/LocalPlayer/Term.pas

@@ -3367 +3367 @@
 begin
   inherited;
-
-  if FullScreen then
-  begin
+  if FullScreen then begin
     p.Style := $87000000;
     BorderStyle := bsNone;
@@ -7768 +7766 @@
   Left := 0;
   Top := 0;
+  if FullScreen then begin
+    BoundsRect := Screen.MonitorFromWindow(Handle).BoundsRect;
+    FormStyle := fsStayOnTop;
+  end;
 end;