Changeset 316 for trunk/Forms


Ignore:
Timestamp:
Jun 19, 2024, 11:53:06 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk/Forms
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCharts.pas

    r243 r316  
    11unit UFormCharts;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    1917    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2018    procedure FormShow(Sender: TObject);
    21   private
    22     { private declarations }
    2319  public
    2420    procedure Redraw;
    … …  
    2824var
    2925  FormCharts: TFormCharts;
     26
    3027
    3128implementation

  • trunk/Forms/UFormChat.pas

    r243 r316  
    11unit UFormChat;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormClient.pas

    r315 r316  
    11unit UFormClient;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    … …  
    109107  MapBackgroundColor = $404040;
    110108
     109
    111110implementation
    112111

  • trunk/Forms/UFormGameSystem.pas

    r291 r316  
    11unit UFormGameSystem;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormGameSystems.pas

    r278 r316  
    11unit UFormGameSystems;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    4745    FGameSystems: TGameSystems;
    4846    procedure SetGameSystems(AValue: TGameSystems);
    49 
    5047  public
    5148    procedure UpdateInterface;

  • trunk/Forms/UFormHelp.pas

    r245 r316  
    11unit UFormHelp;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    1715    procedure FormCreate(Sender: TObject);
    1816    procedure FormShow(Sender: TObject);
    19   private
    20     { private declarations }
    21   public
    22     { public declarations }
    2317  end;
    2418

  • trunk/Forms/UFormItem.pas

    r300 r316  
    11unit UFormItem;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    75uses
    86  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UItemList,
    9   ExtCtrls, ColorBox, Spin, fgl;
     7  ExtCtrls, ColorBox, Spin, Generics.Collections;
    108
    119type
    … …  
    2321  private
    2422    FItem: TItem;
    25     DataControls: TFPGObjectList<TControl>;
    26     DataLabels: TFPGObjectList<TLabel>;
     23    DataControls: TObjectList<TControl>;
     24    DataLabels: TObjectList<TLabel>;
    2725    procedure ControlChangeExecute(Sender: TObject);
    2826    procedure SetItem(AValue: TItem);
    … …  
    6260  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    6361  Core.ThemeManager1.UseTheme(Self);
    64   DataControls := TFPGObjectList<TControl>.Create;
    65   DataLabels := TFPGObjectList<TLabel>.Create;
     62  DataControls := TObjectList<TControl>.Create;
     63  DataLabels := TObjectList<TLabel>.Create;
    6664end;
    6765

  • trunk/Forms/UFormKeyShortcuts.pas

    r243 r316  
    11unit UFormKeyShortcuts;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2119    procedure FormShow(Sender: TObject);
    2220    procedure MenuItem1Click(Sender: TObject);
    23   private
    2421  public
    2522    procedure LoadFromComponent(C: TComponent);
    … …  
    2825var
    2926  FormKeyShortcuts: TFormKeyShortcuts;
     27
    3028
    3129implementation

  • trunk/Forms/UFormList.pas

    r301 r316  
    11unit UFormList;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    75uses
    86  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   ActnList, Menus, fgl, UItemList;
     7  ActnList, Menus, UItemList;
    108
    119type

  • trunk/Forms/UFormMain.pas

    r310 r316  
    11unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    … …  
    103101  FormMain: TFormMain;
    104102
     103
    105104implementation
    106105

  • trunk/Forms/UFormMove.pas

    r274 r316  
    11unit UFormMove;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    4240    procedure TrackBarOnceChange(Sender: TObject);
    4341    procedure TrackBarRepeatChange(Sender: TObject);
    44   private
    45     { private declarations }
    4642  public
    4743    DefendCount: Integer;
    … …  
    5450var
    5551  FormMove: TFormMove;
     52
    5653
    5754implementation

  • trunk/Forms/UFormNew.pas

    r304 r316  
    11unit UFormNew;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormPlayersStats.pas

    r315 r316  
    11unit UFormPlayersStats;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2624    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
    2725    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
    28   private
    29 
    3026  public
    3127    procedure ReloadList;

  • trunk/Forms/UFormServer.pas

    r288 r316  
    11unit UFormServer;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    3533var
    3634  FormServer: TFormServer;
     35
    3736
    3837implementation

  • trunk/Forms/UFormSettings.pas

    r315 r316  
    11unit UFormSettings;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    4038    procedure FormCreate(Sender: TObject);
    4139    procedure FormShow(Sender: TObject);
    42   private
    43     { private declarations }
    4440  public
    4541    procedure Load;
    … …  
    4945var
    5046  FormSettings: TFormSettings;
     47
    5148
    5249implementation

  • trunk/Forms/UFormUnitMoves.pas

    r243 r316  
    11unit UFormUnitMoves;
    2 
    3 {$mode delphi}
    42
    53interface
Note: See TracChangeset for help on using the changeset viewer.