Changeset 85


Ignore:
Timestamp:
Jan 16, 2017, 7:27:36 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Fullscreen mode under Linux. Maximized form was not spanned over main task bar.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Back.pas

    r73 r85  
    55
    66uses
    7   LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms;
     7  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls;
    88
    99type
     
    4444      LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background.png');
    4545    end;
     46    BoundsRect := Screen.MonitorFromWindow(Handle).BoundsRect;
     47    FormStyle := fsStayOnTop;
    4648  end else begin
    4749    WindowState := wsNormal;
  • trunk/LocalPlayer/Term.pas

    r74 r85  
    33673367begin
    33683368  inherited;
    3369 
    3370   if FullScreen then
    3371   begin
     3369  if FullScreen then begin
    33723370    p.Style := $87000000;
    33733371    BorderStyle := bsNone;
     
    77687766  Left := 0;
    77697767  Top := 0;
     7768  if FullScreen then begin
     7769    BoundsRect := Screen.MonitorFromWindow(Handle).BoundsRect;
     7770    FormStyle := fsStayOnTop;
     7771  end;
    77707772end;
    77717773
Note: See TracChangeset for help on using the changeset viewer.