Changeset 401 for tags/1.4.0/Forms

Timestamp:

Jan 6, 2025, 11:12:12 AM (15 months ago)

Author:

chronos

Message:

Merged revision(s) 396-400 from trunk:

• Fixed: Charts form chart was not drawn on the initial show.
• Fixed: Run Randomize only once at startup.
• Fixed: Store current state of RandSeed to game save.
• Fixed: Load/store RandSeed as its Cardinal type instead of Integer.
• Modified: Maximum number of player set to 12.
• Fixed: Standard yellow color is too bright and not readable with white text. Used darker yellow instead.
• Fixed: Integrity checks for id references loaded from game file.
• Fixed: Wrong players and units id recalculation during game save causing bad references.
• Modified: Set new created players as computer.
• Fixed: Scale charts line width.
• Fixed: Item form made bigger to avoid showing scrollbars.
• Fixed: Item form string control made shorter.

Location:

tags/1.4.0

Files:

• . (modified) (1 prop)
• Forms/FormCharts.pas (modified) (2 diffs)
• Forms/FormNew.pas (modified) (2 diffs)

tags/1.4.0/Forms/FormCharts.pas

@@ -55 +55 @@
 procedure TFormCharts.FormShow(Sender: TObject);
 begin
-  Redraw;
   Translate;
   if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
     ComboBox1.ItemIndex := 0;
   Chart1.BackColor := ThemeManager.ActualTheme.ColorWindow;
+  Redraw;
 end;
 
@@ -73 +73 @@
     NewSeries := TLineSeries.Create(nil);
     NewSeries.LinePen.Color := Color;
+    NewSeries.LinePen.Width := Scale96ToScreen(1);
     for X := 0 to TurnStats.Count - 1 do begin
       if ComboBox1.ItemIndex = 0 then NewSeries.AddXY(X, TurnStats[X].OccupiedCells)

tags/1.4.0/Forms/FormNew.pas

@@ -498 +498 @@
 procedure TFormNew.FormShow(Sender: TObject);
 begin
-  Randomize;
   NewRandSeed := RandSeed;
   ReloadView;
@@ -659 +658 @@
 procedure TFormNew.ButtonRandomizeClick(Sender: TObject);
 begin
-  Randomize;
   NewRandSeed := RandSeed;
   MapPreviewRedraw;