Changeset 192


Ignore:
Timestamp:
May 17, 2019, 12:08:12 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Apply interface language to all forms.
Location:
branches/generator
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • branches/generator/Forms/UFormGrammer.lfm

    r190 r192  
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
     11  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  LCLVersion = '2.0.2.0'

  • branches/generator/Forms/UFormGrammer.pas

    r167 r192  
    2121    Label2: TLabel;
    2222    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     23    procedure FormCreate(Sender: TObject);
    2324    procedure FormShow(Sender: TObject);
    2425  private
    … …  
    5152begin
    5253  Core.PersistentForm1.Save(Self);
     54end;
     55
     56procedure TFormGrammer.FormCreate(Sender: TObject);
     57begin
     58  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    5359end;
    5460

  • branches/generator/Forms/UFormLookupTable.lfm

    r190 r192  
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
     11  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  LCLVersion = '2.0.2.0'

  • branches/generator/Forms/UFormLookupTable.pas

    r167 r192  
    1919    Label1: TLabel;
    2020    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     21    procedure FormCreate(Sender: TObject);
    2122    procedure FormShow(Sender: TObject);
    2223  private
    … …  
    4546end;
    4647
     48procedure TFormLookupTable.FormCreate(Sender: TObject);
     49begin
     50  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     51end;
     52
    4753procedure TFormLookupTable.FormShow(Sender: TObject);
    4854begin

  • branches/generator/Forms/UFormLookupTables.pas

    r137 r192  
    118118procedure TFormLookupTables.FormCreate(Sender: TObject);
    119119begin
     120  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    120121  LookupTables := nil;
    121122end;

  • branches/generator/Forms/UFormRule.pas

    r167 r192  
    8080  I: TRuleLevel;
    8181begin
     82  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    8283  FormRuleItems := TFormRuleItems.Create(nil);
    8384  FormRuleItems.ManualDock(TabSheet1);

  • branches/generator/Forms/UFormRuleItem.pas

    r137 r192  
    9494procedure TFormRuleItem.FormCreate(Sender: TObject);
    9595begin
     96  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    9697  FormRuleItems := TFormRuleItems.Create(nil);
    9798  FormRuleItems.ManualDock(TabSheetSubItems);

  • branches/generator/Forms/UFormRuleItems.pas

    r136 r192  
    6565implementation
    6666
    67 
    6867{$R *.lfm}
     68
     69uses
     70  UCore;
    6971
    7072{ TFormRuleItems }
    … …  
    151153procedure TFormRuleItems.FormCreate(Sender: TObject);
    152154begin
     155  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    153156  RuleItems := nil;
    154157end;

  • branches/generator/Forms/UFormRules.pas

    r137 r192  
    127127procedure TFormRules.FormCreate(Sender: TObject);
    128128begin
     129  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    129130  Rules := nil;
    130131end;

  • branches/generator/Languages/generator.cs.po

    r191 r192  
    2525msgctxt "tformgrammer.caption"
    2626msgid "Grammer settings"
    27 msgstr "Nastavení gramatiky:"
     27msgstr "Nastavení gramatiky"
    2828
    2929#: tformgrammer.label1.caption

  • branches/generator/Packages/CoolTranslator

    • Property svn:ignore set to
      lib

  • branches/generator/generator.lpr

    r191 r192  
    3333  Application.CreateForm(TFormMain, FormMain);
    3434  Application.CreateForm(TFormRules, FormRules);
    35   Application.CreateForm(TFormLookupTable, FormLookupTable);
    3635  Application.Run;
    3736end.
Note: See TracChangeset for help on using the changeset viewer.