Changeset 85 for trunk/LocalPlayer/Term.pas

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.

File:

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

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;