Changeset 94


Ignore:
Timestamp:
Mar 10, 2007, 8:05:21 PM (18 years ago)
Author:
RBRi
Message:

+ i18n debug messages

Location:
trunk/NewView
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/BookmarksFormUnit.pas

    r32 r94  
    6767  ControlsUtility,
    6868  ACLDialogs,
    69   ACLStringUtility;
     69  ACLStringUtility,
     70  DebugUnit;
    7071
    7172Procedure TBookmarksForm.BookmarksFormOnSetupShow (Sender: TObject);
    … …  
    8485                                          const Apply: boolean );
    8586begin
     87  LogEvent(LogI18n, 'TBookmarksForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    8688  Language.LoadComponentLanguage( self, Apply );
    8789

  • trunk/NewView/DebugUnit.pas

    r82 r94  
    2222                        LogShutdown,
    2323                        LogSettings,
     24                        LogI18n,
    2425                        LogParse,
    2526                        LogDisplay,
    … …  
    119120  Begin
    120121    Case aLogAspect of
    121       LogStartup      :  result := 'Startup';
    122       LogShutdown     :  result := 'Start';
    123       LogSettings     :  result := 'Settings';
    124       LogParse        :  result := 'Parse';
    125       LogDisplay      :  result := 'Display';
    126       LogSearch       :  result := 'Search';
    127       LogNHM          :  result := 'NewHelpManager';
    128       LogViewStub     :  result := 'ViewStub';
    129       LogObjConstDest :  result := 'ObjConstDest';
    130       LogDebug        :  result := 'Debug';
    131       else               result := 'Unknown';
     122      LogStartup      : result := 'Startup';
     123      LogShutdown     : result := 'Start';
     124      LogSettings     : result := 'Settings';
     125      LogI18n         : result := 'I18n';
     126      LogParse        : result := 'Parse';
     127      LogDisplay      : result := 'Display';
     128      LogSearch       : result := 'Search';
     129      LogNHM          : result := 'NewHelpManager';
     130      LogViewStub     : result := 'ViewStub';
     131      LogObjConstDest : result := 'ObjConstDest';
     132      LogDebug        : result := 'Debug';
     133      else              result := 'Unknown';
    132134      end;
    133135  End;
    … …  
    147149      if tmpAspects[i] = 'LogShutdown'     then activeLogAspects := activeLogAspects + [ LogShutdown ];
    148150      if tmpAspects[i] = 'LogSettings'     then activeLogAspects := activeLogAspects + [ LogSettings ];
     151      if tmpAspects[i] = 'LogI18n'         then activeLogAspects := activeLogAspects + [ LogI18n ];
    149152      if tmpAspects[i] = 'LogParse'        then activeLogAspects := activeLogAspects + [ LogParse ];
    150153      if tmpAspects[i] = 'LogDisplay'      then activeLogAspects := activeLogAspects + [ LogDisplay ];

  • trunk/NewView/FileDialogForm.pas

    r82 r94  
    130130  ControlsUtility,
    131131  SettingsUnit,
    132   HelpFile;
     132  HelpFile,
     133  DebugUnit;
    133134
    134135Imports
    … …  
    559560                                           const Apply: boolean );
    560561begin
     562  LogEvent(LogI18n, 'TFileDialogForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    561563  Language.LoadComponentLanguage( self, Apply );
    562564

  • trunk/NewView/GlobalSearchForm.pas

    r87 r94  
    337337End;
    338338
    339 Procedure TGlobalSearchForm.OnLanguageEvent( Language: TLanguageFile;
    340                                              const Apply: boolean );
    341 begin
    342   Language.LoadComponentLanguage( self, Apply );
    343 
    344   Language.LL( Apply, SearchCaption, 'SearchCaption', '~Search' );
    345   Language.LL( Apply, StopCaption, 'StopCaption', '~Stop' );
    346   Language.LL( Apply, NoResultsMsg, 'NoResultsMsg', '(No results found)' );
    347   Language.LL( Apply, ScanDirectoriesMsg, 'ScanDirectoriesMsg', 'Finding help files...' );
    348   Language.LL( Apply, SearchingFileMsg, 'SearchingFileMsg', 'Searching ' );
    349   Language.LL( Apply, OfMsg, 'OfMsg', ' of ' );
    350   Language.LL( Apply, DoneMsg, 'DoneMsg', 'Done' );
    351   Language.LL( Apply, SearchErrorTitle, 'SearchErrorTitle', 'Search' );
    352   Language.LL( Apply, SearchError, 'SearchError', 'Error in search syntax: ' );
    353 
    354   Language.LL( Apply, StandardHelpPathsLocation, 'StandardHelpPathsLocation', 'Standard Help Paths' );
    355   Language.LL( Apply, FixedDrivesLocation, 'FixedDrivesLocation', 'All Hard Drives' );
    356   Language.LL( Apply, SelectedHelpPathsLocation, 'SelectedHelpPathsLocation', 'Selected Help Paths' );
    357   Language.LL( Apply, CustomPathsLocation, 'CustomPathsLocation', 'Directory List' );
    358 
    359 end;
     339Procedure TGlobalSearchForm.OnLanguageEvent(Language: TLanguageFile; const Apply: boolean );
     340begin
     341  LogEvent(LogI18n, 'TGlobalSearchForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
     342
     343  Language.LoadComponentLanguage(self, Apply);
     344
     345  Language.LL(Apply, SearchCaption, 'SearchCaption', '~Search');
     346  Language.LL(Apply, StopCaption, 'StopCaption', '~Stop');
     347  Language.LL(Apply, NoResultsMsg, 'NoResultsMsg', '(No results found)');
     348  Language.LL(Apply, ScanDirectoriesMsg, 'ScanDirectoriesMsg', 'Finding help files...');
     349  Language.LL(Apply, SearchingFileMsg, 'SearchingFileMsg', 'Searching ');
     350  Language.LL(Apply, OfMsg, 'OfMsg', ' of ');
     351  Language.LL(Apply, DoneMsg, 'DoneMsg', 'Done');
     352  Language.LL(Apply, SearchErrorTitle, 'SearchErrorTitle', 'Search');
     353  Language.LL(Apply, SearchError, 'SearchError', 'Error in search syntax: ');
     354
     355  Language.LL(Apply, StandardHelpPathsLocation, 'StandardHelpPathsLocation', 'Standard Help Paths');
     356  Language.LL(Apply, FixedDrivesLocation, 'FixedDrivesLocation', 'All Hard Drives');
     357  Language.LL(Apply, SelectedHelpPathsLocation, 'SelectedHelpPathsLocation', 'Selected Help Paths');
     358  Language.LL(Apply, CustomPathsLocation, 'CustomPathsLocation', 'Directory List');
     359end;
     360
    360361
    361362Procedure TGlobalSearchForm.CancelButtonOnClick (Sender: TObject);

  • trunk/NewView/InformationFormUnit.pas

    r33 r94  
    3535
    3636Uses
    37   ControlsUtility;
     37  ControlsUtility,
     38  DebugUnit,
     39  StringUtilsUnit;
    3840
    3941Procedure TInformationForm.InformationFormOnSetupShow (Sender: TObject);
    … …  
    6062                                            const Apply: boolean );
    6163begin
     64  LogEvent(LogI18n, 'TInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    6265  Language.LoadComponentLanguage( self, Apply );
    6366end;

  • trunk/NewView/NoteForm.pas

    r33 r94  
    4242uses
    4343  SysUtils,
    44   ControlsUtility;
     44  ControlsUtility,
     45  DebugUnit,
     46  StringUtilsUnit;
    4547
    4648Procedure TNoteForm.NoteFormOnSetupShow (Sender: TObject);
    … …  
    5254                                     const Apply: boolean );
    5355begin
     56  LogEvent(LogI18n, 'TNoteForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    5457  Language.LoadComponentLanguage( self, Apply );
    5558end;

  • trunk/NewView/OptionsForm.pas

    r33 r94  
    140140  ACLUtility,
    141141  ControlsUtility,
    142   FileDialogForm;
     142  FileDialogForm,
     143  DebugUnit,
     144  StringUtilsUnit;
    143145
    144146Procedure TOptionsForm.OptionsFormOnSetupShow (Sender: TObject);
    … …  
    197199  ColorItemName: string;
    198200begin
     201  LogEvent(LogI18n, 'TOptionsForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    199202  Language.LoadComponentLanguage( self, Apply );
    200203

  • trunk/NewView/PrintDialogUnit.pas

    r33 r94  
    5454  Printers,
    5555  ACLDialogs,
    56   ControlsUtility;
     56  ControlsUtility,
     57  DebugUnit,
     58  StringUtilsUnit;
    5759
    5860Procedure TNewViewPrintDialog.OKButtonOnClick (Sender: TObject);
    … …  
    7476                                               const Apply: boolean );
    7577begin
     78  LogEvent(LogI18n, 'TNewViewPrintDialog.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    7679  Language.LoadComponentLanguage( self, Apply );
    7780

  • trunk/NewView/ProductInformationFormUnit.pas

    r33 r94  
    4646  VersionUnit,
    4747  ControlsUtility,
    48   WebBrowserUnit;
     48  WebBrowserUnit,
     49  DebugUnit,
     50  StringUtilsUnit;
    4951
    5052Procedure TProductInformationForm.EmailEditOnClick (Sender: TObject);
    … …  
    6668                                                   const Apply: boolean );
    6769begin
     70  LogEvent(LogI18n, 'TProductInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    6871  Language.LoadComponentLanguage( self, Apply );
    6972

  • trunk/NewView/SearchDirectoriesFormUnit.pas

    r33 r94  
    5252
    5353Uses
    54   ControlsUtility;
     54  ControlsUtility,
     55  DebugUnit,
     56  StringUtilsUnit;
    5557
    5658Procedure TSearchDirectoriesForm.SearchDirectoriesFormOnSetupShow (Sender: TObject);
    … …  
    110112                                                   const Apply: boolean );
    111113begin
     114  LogEvent(LogI18n, 'TSearchDirectoriesForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
    112115  Language.LoadComponentLanguage( self, Apply );
    113116end;
Note: See TracChangeset for help on using the changeset viewer.