Changeset 219 for trunk/Start.pas


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/Start.pas

    r209 r219  
    694694    Location := Point((Screen.Width - 800) * 3 div 8,
    695695      Screen.Height - Height - (Screen.Height - 600) div 3);
    696     Left := Location.X;
    697     Top := Location.Y;
     696    BoundsRect := Bounds(Location.X, Location.Y, Width, Height);
    698697
    699698    r0 := CreateRectRgn(0, 0, Width, Height);
     
    708707    DeleteObject(r0); // causes crash with Windows 95
    709708  end else begin
    710     Left := (Screen.Width - Width) div 2;
    711     Top := (Screen.Height - Height) div 2;
     709    BoundsRect := Bounds((Screen.Width - Width) div 2,
     710      (Screen.Height - Height) div 2, Width, Height)
    712711  end;
    713712end;
Note: See TracChangeset for help on using the changeset viewer.