Changeset 317 for trunk/Forms/FormCharts.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Use TFormEx for all forms for code simplification.

File:

• trunk/Forms/FormCharts.pas (moved) (moved from trunk/Forms/UFormCharts.pas ) (8 diffs)

trunk/Forms/FormCharts.pas

@@ -1 @@
-unit UFormCharts;
+unit FormCharts;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
-  Dialogs, StdCtrls;
+  Dialogs, StdCtrls, FormEx;
 
 type
@@ -11 +11 @@
   { TFormCharts }
 
-  TFormCharts = class(TForm)
+  TFormCharts = class(TFormEx)
     Chart1: TChart;
     ComboBox1: TComboBox;
     procedure ComboBox1Change(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
   public
@@ -21 +20 @@
     procedure Translate;
   end;
-
-var
-  FormCharts: TFormCharts;
 
 
@@ -31 +27 @@
 
 uses
-  UCore, UGame, UPlayer;
+  Core, Game, Player;
 
 resourcestring
@@ -48 +44 @@
 end;
 
-procedure TFormCharts.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
-end;
-
 procedure TFormCharts.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
   Redraw;
   Translate;
@@ -70 +59 @@
 begin
   Chart1.Series.Clear;
-  for I := 0 to Core.Game.Players.Count - 1 do
-  with TPlayer(Core.Game.Players[I]) do begin
+  for I := 0 to Core.Core.Game.Players.Count - 1 do
+  with TPlayer(Core.Core.Game.Players[I]) do begin
     NewSeries := TLineSeries.Create(nil);
     NewSeries.LinePen.Color := Color;
@@ -89 +78 @@
   LastIndex: Integer;
 begin
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Core.Core.Translator1.TranslateComponentRecursive(Self);
   with ComboBox1 do begin
     LastIndex := ItemIndex;