Changeset 401 for tags/1.4.0/Packages


Ignore:
Timestamp:
Jan 6, 2025, 11:12:12 AM (2 weeks 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:
4 edited

Legend:

Unmodified
Added
Removed

  • tags/1.4.0

  • tags/1.4.0/Packages/Common/Forms/FormItem.lfm

    r365 r401  
    11object FormItem: TFormItem
    2   Left = 1040
    3   Height = 397
    4   Top = 540
    5   Width = 469
     2  Left = 441
     3  Height = 446
     4  Top = 395
     5  Width = 577
    66  Caption = 'Item'
    7   ClientHeight = 397
    8   ClientWidth = 469
     7  ClientHeight = 446
     8  ClientWidth = 577
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    … …  
    1212  LCLVersion = '3.6.0.0'
    1313  object ButtonOk: TButton
    14     Left = 224
     14    Left = 332
    1515    Height = 38
    16     Top = 353
     16    Top = 402
    1717    Width = 113
    1818    Anchors = [akRight, akBottom]
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 348
     26    Left = 456
    2727    Height = 38
    28     Top = 353
     28    Top = 402
    2929    Width = 113
    3030    Anchors = [akRight, akBottom]
    … …  
    3636  object ScrollBox1: TScrollBox
    3737    Left = 8
    38     Height = 334
     38    Height = 383
    3939    Top = 8
    40     Width = 453
     40    Width = 561
    4141    HorzScrollBar.Page = 1
    4242    VertScrollBar.Page = 1

  • tags/1.4.0/Packages/Common/Forms/FormItem.pas

    r355 r401  
    176176    if DataType = dtString then begin
    177177      NewControl := TEdit.Create(nil);
    178       NewControl.Width := Scale96ToScreen(300);
     178      NewControl.Width := Scale96ToScreen(200);
    179179    end else
    180180    if DataType = dtColor then begin

  • tags/1.4.0/Packages/Common/ItemList.pas

    r394 r401  
    133133    FBaseItemList: TBaseItemList;
    134134    procedure RecalculateNewId(Reset: Boolean);
    135     procedure RecalculateItemsId;
    136135    function BaseGetItem(Index: SizeInt): TItem;
    137136    procedure BaseSetItem(Index: SizeInt; AValue: TItem);
    … …  
    145144  public
    146145    NewId: Integer;
     146    procedure RecalculateItemsId;
    147147    function CreateItem(Name: string = ''): T; virtual;
    148148    function IncrementName(Name: string): string;
    … …  
    265265  NewNode2: TDOMNode;
    266266begin
    267   RecalculateItemsId;
    268267  for I := 0 to Count - 1 do
    269268  with TItem(Items[I]) do begin
Note: See TracChangeset for help on using the changeset viewer.