Changeset 568 for trunk/Start.pas

Timestamp:

May 13, 2024, 6:00:06 PM (3 weeks ago)

Author:

chronos

Message:

• Fixed: Custom draw ListBox items to keep consistent style on Linux.
• Fixed: Last game name index error if no saved games.

File:

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

trunk/Start.pas

@@ -6 +6 @@
 uses
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
-  LCLIntf, LCLType, SysUtils, Classes, BaseWin,
+  LCLIntf, LCLType, SysUtils, Classes, BaseWin, ListBoxEx,
   Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator,
   {$IFDEF DPI}System.UITypes, Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls,
@@ -47 +47 @@
     Down1Btn: TButtonC;
     Up1Btn: TButtonC;
-    List: TListBox;
+    List: TListBoxEx;
     RenameBtn: TButtonB;
     DeleteBtn: TButtonB;
@@ -1799 +1799 @@
   ShowTab := Tab;
   Background.Enabled := True;
-  LastGame := FormerGames[ListIndex[tbPrevious]];
+  if (ListIndex[tbPrevious] >= 0) and (ListIndex[tbPrevious] < FormerGames.Count) then
+    LastGame := FormerGames[ListIndex[tbPrevious]]
+    else LastGame := '';
 end;