Changeset 96


Ignore:
Timestamp:
Aug 22, 2016, 9:31:44 AM (8 years ago)
Author:
chronos
Message:
  • Fixed: Dynamically created forms were not translated.
Location:
trunk
Files:
24 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAbout.pas

    r22 r96  
    3636{$R *.lfm}
    3737
     38uses
     39  UCore;
     40
    3841resourcestring
    3942  SVersion = 'Version';
    … …  
    5861procedure TFormAbout.FormCreate(Sender: TObject);
    5962begin
    60 
     63  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    6164end;
    6265

  • trunk/Forms/UFormAcronym.pas

    r95 r96  
    5656
    5757uses
    58   UFormMain, UFormCategorySelect;
     58  UCore, UFormCategorySelect;
    5959
    6060{ TFormAcronym }
    … …  
    6363  );
    6464begin
    65   FormMain.PersistentForm1.Save(Self);
     65  Core.PersistentForm1.Save(Self);
    6666end;
    6767
    6868procedure TFormAcronym.FormCreate(Sender: TObject);
    6969begin
    70 
     70  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    7171end;
    7272
    … …  
    110110procedure TFormAcronym.FormShow(Sender: TObject);
    111111begin
    112   FormMain.PersistentForm1.Load(Self);
     112  Core.PersistentForm1.Load(Self);
    113113  UpdateInterface;
    114114end;

  • trunk/Forms/UFormAcronyms.pas

    r95 r96  
    217217  I: Integer;
    218218begin
     219  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    219220  for I := 0 to ToolBar1.ButtonCount - 1 do
    220221    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormCategories.pas

    r89 r96  
    118118  I: Integer;
    119119begin
     120  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    120121  for I := 0 to ToolBar1.ButtonCount - 1 do
    121122    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormCategorySelect.lfm

    r69 r96  
    77  ClientHeight = 602
    88  ClientWidth = 794
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  Position = poScreenCenter

  • trunk/Forms/UFormCategorySelect.pas

    r86 r96  
    1717    ButtonCancel: TButton;
    1818    ListBox1: TListBox;
     19    procedure FormCreate(Sender: TObject);
    1920    procedure FormShow(Sender: TObject);
    2021    procedure ListBox1DblClick(Sender: TObject);
    … …  
    4546procedure TFormCategorySelect.FormShow(Sender: TObject);
    4647begin
     48end;
     49
     50procedure TFormCategorySelect.FormCreate(Sender: TObject);
     51begin
     52  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    4753end;
    4854

  • trunk/Forms/UFormExport.lfm

    r95 r96  
    77  ClientHeight = 654
    88  ClientWidth = 850
     9  OnCreate = FormCreate
    910  Position = poScreenCenter
    1011  LCLVersion = '1.6.0.4'

  • trunk/Forms/UFormExport.pas

    r90 r96  
    2020    procedure ButtonProcessClick(Sender: TObject);
    2121    procedure ButtonSaveToFileClick(Sender: TObject);
     22    procedure FormCreate(Sender: TObject);
    2223  private
    2324    procedure ExportCSV;
    … …  
    5152    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
    5253  end;
     54end;
     55
     56procedure TFormExport.FormCreate(Sender: TObject);
     57begin
     58  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    5359end;
    5460

  • trunk/Forms/UFormImport.lfm

    r90 r96  
    77  ClientHeight = 507
    88  ClientWidth = 652
     9  OnCreate = FormCreate
    910  Position = poScreenCenter
    1011  LCLVersion = '1.6.0.4'
    … …  
    2930  object ComboBoxDataFormat: TComboBox
    3031    Left = 264
    31     Height = 34
     32    Height = 28
    3233    Top = 5
    3334    Width = 140
    34     ItemHeight = 0
     35    ItemHeight = 20
    3536    ItemIndex = 0
    3637    Items.Strings = (
    … …  
    4445  object Label1: TLabel
    4546    Left = 153
    46     Height = 24
     47    Height = 20
    4748    Top = 9
    48     Width = 108
     49    Width = 84
    4950    Caption = 'Data format:'
    5051    ParentColor = False

  • trunk/Forms/UFormImport.pas

    r90 r96  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   UAcronym;
     9  UAcronym, Types;
    1010
    1111type
    … …  
    2222    procedure ButtonProcessClick(Sender: TObject);
    2323    procedure ButtonLoadFromFileClick(Sender: TObject);
     24    procedure FormCreate(Sender: TObject);
    2425  private
    2526    procedure ImportMediaWiki;
    … …  
    5758  if OpenDialog1.Execute then
    5859    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
     60end;
     61
     62procedure TFormImport.FormCreate(Sender: TObject);
     63begin
     64  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    5965end;
    6066

  • trunk/Forms/UFormImportFormat.lfm

    r95 r96  
    151151    object MenuItem1: TMenuItem
    152152      Action = AAdd
     153      Bitmap.Data = {
     154        36040000424D3604000000000000360000002800000010000000100000000100
     155        2000000000000004000064000000640000000000000000000000000000000000
     156        0000000000000000000000000000000000000000000000000000000000000000
     157        0000000000000000000000000000000000000000000000000000000000000000
     158        000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
     159        D4FF000000000000000000000000000000000000000000000000000000000000
     160        0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
     161        B2FF000000000000000000000000000000000000000000000000000000000000
     162        0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
     163        B2FF000000000000000000000000000000000000000000000000000000000000
     164        0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
     165        B2FF000000000000000000000000000000000000000000000000000000000000
     166        0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
     167        B2FF00000000000000000000000000000000000000000000000000000000D4D4
     168        D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
     169        B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
     170        00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
     171        00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
     172        8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
     173        00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
     174        ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
     175        00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
     176        00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
     177        00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
     178        0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
     179        B2FF000000000000000000000000000000000000000000000000000000000000
     180        0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
     181        B2FF000000000000000000000000000000000000000000000000000000000000
     182        0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
     183        B2FF000000000000000000000000000000000000000000000000000000000000
     184        0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
     185        D4FF000000000000000000000000000000000000000000000000000000000000
     186        000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
     187        0000000000000000000000000000000000000000000000000000
     188      }
    153189    end
    154190    object MenuItem2: TMenuItem
    155191      Action = AModify
     192      Bitmap.Data = {
     193        36040000424D3604000000000000360000002800000010000000100000000100
     194        2000000000000004000064000000640000000000000000000000986B37FF976A
     195        36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
     196        2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
     197        F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
     198        F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
     199        F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
     200        F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
     201        F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
     202        70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
     203        F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
     204        F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
     205        F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
     206        F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
     207        FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
     208        F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
     209        FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
     210        71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
     211        FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
     212        F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
     213        FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
     214        F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
     215        FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
     216        F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
     217        FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
     218        72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
     219        FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
     220        F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
     221        FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
     222        FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
     223        7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
     224        79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
     225        48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
     226        40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
     227      }
    156228    end
    157229    object MenuItem3: TMenuItem
    158230      Action = ARemove
     231      Bitmap.Data = {
     232        36040000424D3604000000000000360000002800000010000000100000000100
     233        2000000000000004000064000000640000000000000000000000000000000000
     234        0000000000000000000000000000000000000000000000000000000000000000
     235        0000000000000000000000000000000000000000000000000000000000000000
     236        000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
     237        000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
     238        00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000
     239        00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
     240        BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979
     241        A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000
     242        72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000
     243        59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C
     244        BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023
     245        FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000
     246        00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027
     247        FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000
     248        0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B
     249        FFFF000061FF7979A8FF00000000000000000000000000000000000000000000
     250        000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000
     251        68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000
     252        0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035
     253        FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000
     254        00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A
     255        FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
     256        BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B
     257        FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000
     258        88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000
     259        75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C
     260        BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C
     261        BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000
     262        00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000
     263        00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000
     264        0000000000000000000000000000000000000000000000000000000000000000
     265        0000000000000000000000000000000000000000000000000000
     266      }
    159267    end
    160268    object MenuItem4: TMenuItem

  • trunk/Forms/UFormImportFormat.pas

    r95 r96  
    6363
    6464uses
    65   UFormImportPattern;
     65  UCore, UFormImportPattern;
    6666
    6767{$R *.lfm}
    … …  
    153153procedure TFormImportFormat.FormCreate(Sender: TObject);
    154154begin
     155  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    155156  YesNoString[False] := SNo;
    156157  YesNoString[True] := SYes;

  • trunk/Forms/UFormImportFormats.pas

    r95 r96  
    180180  I: Integer;
    181181begin
     182  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    182183  for I := 0 to ToolBar1.ButtonCount - 1 do
    183184    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormImportPattern.pas

    r45 r96  
    4141{$R *.lfm}
    4242
     43uses
     44  UCore;
     45
    4346{ TFormImportPattern }
    4447
    … …  
    5053procedure TFormImportPattern.FormCreate(Sender: TObject);
    5154begin
     55  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    5256  InitControls;
    5357end;

  • trunk/Forms/UFormImportSource.lfm

    r84 r96  
    77  ClientHeight = 444
    88  ClientWidth = 630
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  Position = poScreenCenter

  • trunk/Forms/UFormImportSource.pas

    r95 r96  
    4444    procedure ButtonOpenURLClick(Sender: TObject);
    4545    procedure ButtonShowFormatClick(Sender: TObject);
     46    procedure FormCreate(Sender: TObject);
    4647    procedure FormShow(Sender: TObject);
    4748  private
    … …  
    8687    end;
    8788  end;
     89end;
     90
     91procedure TFormImportSource.FormCreate(Sender: TObject);
     92begin
     93  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    8894end;
    8995

  • trunk/Forms/UFormImportSources.pas

    r95 r96  
    324324  I: Integer;
    325325begin
     326  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    326327  for I := 0 to ToolBar1.ButtonCount - 1 do
    327328    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormMain.lfm

    r95 r96  
    871871      OnExecute = AExportExecute
    872872    end
    873   end
    874   object PersistentForm1: TPersistentForm
    875     MinVisiblePart = 50
    876     EntireVisible = False
    877     left = 264
    878     top = 128
    879873  end
    880874  object MainMenu1: TMainMenu
    … …  
    14351429    top = 240
    14361430  end
    1437   object CoolTranslator1: TCoolTranslator
    1438     POFilesFolder = 'Languages'
    1439     OnTranslate = CoolTranslator1Translate
    1440     left = 264
    1441     top = 176
    1442   end
    14431431  object ListViewSort1: TListViewSort
    14441432    ListView = ListViewAcronyms

  • trunk/Forms/UFormMain.pas

    r95 r96  
    3434    ActionList1: TActionList;
    3535    CheckBoxExactMath: TCheckBox;
    36     CoolTranslator1: TCoolTranslator;
    3736    ImageList1: TImageList;
    3837    JobProgressView1: TJobProgressView;
    … …  
    7170    OpenDialog1: TOpenDialog;
    7271    Panel1: TPanel;
    73     PersistentForm1: TPersistentForm;
    7472    PopupMenuOpenRecent: TPopupMenu;
    7573    PopupMenuTryIcon: TPopupMenu;
    … …  
    184182procedure TFormMain.FormHide(Sender: TObject);
    185183begin
    186   if Core.InitializeFinished then PersistentForm1.Save(Self);
     184  if Core.InitializeFinished then Core.PersistentForm1.Save(Self);
    187185end;
    188186
    189187procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    190188begin
    191   PersistentForm1.Save(Self);
     189  Core.PersistentForm1.Save(Self);
    192190  Core.SaveConfig;
    193191end;
    … …  
    421419
    422420  if Visible then begin
    423     PersistentForm1.Load(Self);
     421    Core.PersistentForm1.Load(Self);
    424422    UpdateInterface;
    425423    ListViewFilter1.StringGrid.Col := 1;
    … …  
    612610begin
    613611  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
    614   PersistentForm1.RegistryContext := RegistryContext;
     612  Core.PersistentForm1.RegistryContext := RegistryContext;
    615613  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
    616614  LastOpenedList1.LoadFromRegistry(RegistryContext);
    … …  
    627625    OpenKey(DefaultRegKey, True);
    628626    if ValueExists('LanguageCode') then
    629       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
    630       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
     627      Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
     628      else Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('');
    631629    Core.AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
    632630    Core.StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
    … …  
    656654    RootKey := HKEY_CURRENT_USER;
    657655    OpenKey(DefaultRegKey, True);
    658     if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
    659       WriteString('LanguageCode', CoolTranslator1.Language.Code)
     656    if Assigned(Core.CoolTranslator1.Language) and (Core.CoolTranslator1.Language.Code <> '') then
     657      WriteString('LanguageCode', Core.CoolTranslator1.Language.Code)
    660658      else DeleteValue('LanguageCode');
    661659    WriteBool('AlwaysOnTop', Core.AlwaysOnTop);

  • trunk/Forms/UFormSettings.lfm

    r75 r96  
    77  ClientHeight = 491
    88  ClientWidth = 689
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  Position = poScreenCenter

  • trunk/Forms/UFormSettings.pas

    r86 r96  
    2323    procedure ButtonOkClick(Sender: TObject);
    2424    procedure CheckBoxStartOnLogonChange(Sender: TObject);
     25    procedure FormCreate(Sender: TObject);
    2526    procedure FormShow(Sender: TObject);
    2627  private
    … …  
    4041
    4142uses
    42   UFormMain, UCore;
     43  UCore;
    4344
    4445{ TFormSettings }
    … …  
    4647procedure TFormSettings.FormShow(Sender: TObject);
    4748begin
    48   FormMain.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    49   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(FormMain.CoolTranslator1.Language);
     49  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
     50  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
    5051  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
    5152end;
    … …  
    5455begin
    5556  if ComboBoxLanguage.ItemIndex <> -1 then
    56     FormMain.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
     57    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
    5758end;
    5859
    … …  
    6061begin
    6162  UpdateInterface;
     63end;
     64
     65procedure TFormSettings.FormCreate(Sender: TObject);
     66begin
     67  Core.CoolTranslator1.TranslateComponentRecursive(Self);
    6268end;
    6369

  • trunk/Install/AcronymDecoder.iss

    r91 r96  
    1919AppName={#MyAppName}
    2020AppVersion={#MyAppVersion}
    21 ;AppVerName={#MyAppName} {#MyAppVersion}
     21AppVerName={#MyAppName} {#MyAppVersion}
    2222AppPublisher={#MyAppPublisher}
    2323AppPublisherURL={#MyAppURL}

  • trunk/UCore.lfm

    r86 r96  
    44  OldCreateOrder = False
    55  Height = 518
    6   HorizontalOffset = 571
    7   VerticalOffset = 433
     6  HorizontalOffset = 504
     7  VerticalOffset = 303
    88  Width = 557
     9  object CoolTranslator1: TCoolTranslator
     10    POFilesFolder = 'Languages'
     11    left = 152
     12    top = 152
     13  end
     14  object PersistentForm1: TPersistentForm
     15    MinVisiblePart = 50
     16    EntireVisible = False
     17    left = 292
     18    top = 156
     19  end
    920end

  • trunk/UCore.pas

    r89 r96  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UAcronym, Forms, Controls, LazFileUtils;
     8  Classes, SysUtils, FileUtil, UAcronym, UCoolTranslator, UPersistentForm,
     9  Forms, Controls, LazFileUtils;
    910
    1011type
    … …  
    1314
    1415  TCore = class(TDataModule)
     16    CoolTranslator1: TCoolTranslator;
     17    PersistentForm1: TPersistentForm;
    1518    procedure DataModuleCreate(Sender: TObject);
    1619    procedure DataModuleDestroy(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.