Changeset 15 for trunk


Ignore:
Timestamp:
Oct 5, 2019, 11:50:27 AM (5 years ago)
Author:
chronos
Message:
  • Fixed: New and Settings forms were not translated in runtime.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormNew.lfm

    r13 r15  
    88  ClientWidth = 487
    99  DesignTimePPI = 144
     10  OnCreate = FormCreate
    1011  LCLVersion = '2.0.2.0'
    1112  object Label1: TLabel
  • trunk/Forms/UFormNew.pas

    r13 r15  
    1818    ComboBoxSize: TComboBox;
    1919    Label1: TLabel;
     20    procedure FormCreate(Sender: TObject);
    2021  private
    2122
     
    3233{$R *.lfm}
    3334
     35uses
     36  UCore;
     37
    3438{ TFormNew }
     39
     40procedure TFormNew.FormCreate(Sender: TObject);
     41begin
     42  Core.Translator1.TranslateComponentRecursive(Self);
     43end;
    3544
    3645procedure TFormNew.Load(Game: TGame);
  • trunk/Forms/UFormSettings.pas

    r13 r15  
    7373procedure TFormSettings.FormCreate(Sender: TObject);
    7474begin
     75  Core.Translator1.TranslateComponentRecursive(Self);
    7576  Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
    7677end;
Note: See TracChangeset for help on using the changeset viewer.