Ignore:
Timestamp:
May 11, 2020, 10:06:08 PM (19 months ago)
Author:
chronos
Message:
  • Fixed: Apply correctly fullscreen mode to MainScreen.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.pas

    r207 r219  
    287287    Offscreen: TBitmap;
    288288    OffscreenUser: TForm;
    289     procedure CreateParams(var p: TCreateParams); override;
    290289    procedure Client(Command, NewPlayer: integer; var Data);
    291290    procedure SetAIName(p: integer; Name: string);
     
    33983397
    33993398{ *** main part *** }
    3400 
    3401 procedure TMainScreen.CreateParams(var p: TCreateParams);
    3402 begin
    3403   inherited;
    3404   if FullScreen then begin
    3405     p.Style := $87000000;
    3406     BorderStyle := bsNone;
    3407     BorderIcons := [];
    3408   end;
    3409 end;
    34103399
    34113400procedure TMainScreen.FormCreate(Sender: TObject);
     
    78057794procedure TMainScreen.FormShow(Sender: TObject);
    78067795begin
    7807   Timer1.Enabled := true;
    7808   Left := 0;
    7809   Top := 0;
     7796  if FullScreen then begin
     7797    WindowState := wsMaximized;
     7798    BorderStyle := bsNone;
     7799    BorderIcons := [];
     7800  end else begin
     7801    WindowState := wsMaximized;
     7802    BorderStyle := bsSizeable;
     7803    BorderIcons := [biSystemMenu, biMinimize, biMaximize];
     7804  end;
     7805  Timer1.Enabled := True;
    78107806end;
    78117807
Note: See TracChangeset for help on using the changeset viewer.