Changeset 717 for branches/zoom/Start.pas

Timestamp:

Jan 10, 2026, 12:15:35 PM (4 weeks ago)

Author:

chronos

Message:

Merged revision(s) 705-716 from trunk:

• Fixed: Subversion properties.
• Fixed: Better start screen location calculation for lower than 800x600 resolutions to make visible entire window.
• Fixed: Memory overflow in minimap drawing with some higher DPI settings.
• Fixed: Crashes with mini map drawing in Start screen with some DPI resolutions.
• Added: Enter key confirms battle dialog window.
• Fixed: Potential battle dialog drawing issue.
• Modified: Code cleanup.
• Fixed: Disable auto selection of input text in message dialog.
• Fixed: Edit boxes to have black background and blue selection.
• Fixed: Automatically create Saved and Maps user data directories if they don't exist yet.
• Modified: Code cleanup.
• Fixed: Wrong unit models opened after click on Military report foreign units.
• Modified: Do not store .png file extension in graphics names in book files. This is for compatibility with older C-evo versions.
• Fixed: Support both books with graphics name with and without .png file extensions.

Location:

branches/zoom

Files:

• . (modified) (1 prop)
• Start.pas (modified) (2 diffs)

branches/zoom/Start.pas

@@ -5 +5 @@
 
 uses
-  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
-  LCLIntf, LCLType, SysUtils, Classes, BaseWin, ListBoxEx, LazFileUtils,
+  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
+  LCLIntf, LCLType, SysUtils, Classes, BaseWin, ListBoxEx, LazFileUtils, Math,
   Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator,
   {$IFDEF DPI}System.UITypes, Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls,
@@ -520 +520 @@
   r0, r1: HRgn;
   Location: TPoint;
+  Shift: TPoint;
 begin
   if FullScreen then begin
-    Location := Point(Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - 800) * 3 div 8,
-      Screen.PrimaryMonitor.Top + Screen.PrimaryMonitor.Height - Height - (Screen.PrimaryMonitor.Height - 600) div 3);
+    Shift := Point(((Screen.PrimaryMonitor.Width - Min(Screen.PrimaryMonitor.Width, 800)) * 3 div 8),
+      (Screen.PrimaryMonitor.Height - Min(Screen.PrimaryMonitor.Height, 600)) div 3);
+    Location := Point(Screen.PrimaryMonitor.Left + Shift.X,
+      Screen.PrimaryMonitor.Top + Screen.PrimaryMonitor.Height - Height - Shift.Y);
     BoundsRect := Bounds(Location.X, Location.Y, Width, Height);