Changeset 673 for trunk/Start.pas

Timestamp:

Jul 25, 2025, 5:55:22 PM (27 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.

File:

• trunk/Start.pas (modified) (2 diffs)

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;