Changeset 673

Timestamp:

Jul 25, 2025, 5:55:22 PM (18 hours ago)

Author:

chronos

Message:

• Fixed: Black strip on the bottom of Draft dialog.
• Fixed: Make selected book or map visible in the list on application start.

Location:

trunk

Files:

• LocalPlayer/Draft.pas (modified) (3 diffs)
• Packages/DpiControls/Dpi.StdCtrls.pas (modified) (2 diffs)
• Start.lfm (modified) (1 diff)
• Start.pas (modified) (2 diffs)

trunk/LocalPlayer/Draft.pas

@@ -234 +234 @@
   UnshareBitmap(Back);
 
-  ClientHeight := Template.Height - Cut;
-  if ClientHeight > MainTexture.Height then
+  Height := Template.Height - Cut;
+  if Height > MainTexture.Height then
   // assemble background from 2 texture tiles
   begin
-    BitBltBitmap(Back, 0, 0, ClientWidth, 64,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
+    BitBltBitmap(Back, 0, 0, Width, 64,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
       MainTexture.Height - 64);
-    BitBltBitmap(Back, 0, 64, ClientWidth, ClientHeight - 64,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
+    BitBltBitmap(Back, 0, 64, Width, Height - 64,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
       0);
   end
   else
-    BitBltBitmap(Back, 0, 0, ClientWidth, ClientHeight,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
-      (MainTexture.Height - ClientHeight) div 2);
+    BitBltBitmap(Back, 0, 0, Width, Height,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
+      (MainTexture.Height - Height) div 2);
   ImageOp_B(Back, Template, 0, 0, 0, 0, Template.Width, 64);
   ImageOp_B(Back, Template, 0, 64, 0, 64 + Cut, Template.Width,
     Template.Height - 64 - Cut);
 
-  BitBltBitmap(Offscreen, 0, 0, ClientWidth, ClientHeight, Back, 0, 0);
+  BitBltBitmap(Offscreen, 0, 0, Width, Height, Back, 0, 0);
 
   Offscreen.Canvas.Font.Assign(UniFont[ftCaption]);
@@ -400 +400 @@
       pix div 10 * 49 + 1);
   end;
-  MarkUsedOffscreen(ClientWidth, ClientHeight);
+  MarkUsedOffscreen(Width, Height);
 end;
 
@@ -525 +525 @@
     begin
       I := (Y - yFeature) div LinePitch;
-      if (X >= xFeature - 21) and (X < ClientWidth) and (ssShift in Shift) then
+      if (X >= xFeature - 21) and (X < Width) and (ssShift in Shift) then
         MainScreen.HelpDlg.ShowNewContent(WindowModeMakePersistent(FWindowMode), hkFeature, Code[I])
       else if not (Code[I] in AutoFeature) then

trunk/Packages/DpiControls/Dpi.StdCtrls.pas

@@ -147 +147 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure MakeCurrentVisible;
     property ItemIndex: Integer read GetItemIndex write SetItemIndex;
     property Items: TStrings read GetItems write SetItems;
@@ -645 +646 @@
 end;
 
+procedure TListBox.MakeCurrentVisible;
+begin
+  GetNativeListBox.MakeCurrentVisible;
+end;
+
 
 initialization

trunk/Start.lfm

@@ -15 +15 @@
   Font.Name = 'MS Sans Serif'
   FormStyle = fsStayOnTop
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate

trunk/Start.pas

@@ -59 +59 @@
     AutoEnemyDownBtn: TButtonC;
     ReplayBtn: TButtonB;
+    procedure FormActivate(Sender: TObject);
     procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure ListKeyPress(Sender: TObject; var Key: Char);
@@ -1101 +1102 @@
   if Key = DelKey then DeleteBtnClick(Sender)
     else FormKeyDown(Sender, Key, Shift);
+end;
+
+procedure TStartDlg.FormActivate(Sender: TObject);
+begin
+  if List.Count > 0 then begin
+    List.MakeCurrentVisible;
+  end;
 end;