Changeset 85 for trunk/Back.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/Back.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;