Changeset 94 for trunk/NewView/GlobalSearchForm.pas

Timestamp:

Mar 10, 2007, 8:05:21 PM (19 years ago)

Author:

RBRi

Message:

+ i18n debug messages

File:

• trunk/NewView/GlobalSearchForm.pas (modified) (1 diff)

trunk/NewView/GlobalSearchForm.pas

@@ -337 +337 @@
 End;
 
-Procedure TGlobalSearchForm.OnLanguageEvent( Language: TLanguageFile;
-                                             const Apply: boolean );
-begin
-  Language.LoadComponentLanguage( self, Apply );
-
-  Language.LL( Apply, SearchCaption, 'SearchCaption', '~Search' );
-  Language.LL( Apply, StopCaption, 'StopCaption', '~Stop' );
-  Language.LL( Apply, NoResultsMsg, 'NoResultsMsg', '(No results found)' );
-  Language.LL( Apply, ScanDirectoriesMsg, 'ScanDirectoriesMsg', 'Finding help files...' );
-  Language.LL( Apply, SearchingFileMsg, 'SearchingFileMsg', 'Searching ' );
-  Language.LL( Apply, OfMsg, 'OfMsg', ' of ' );
-  Language.LL( Apply, DoneMsg, 'DoneMsg', 'Done' );
-  Language.LL( Apply, SearchErrorTitle, 'SearchErrorTitle', 'Search' );
-  Language.LL( Apply, SearchError, 'SearchError', 'Error in search syntax: ' );
-
-  Language.LL( Apply, StandardHelpPathsLocation, 'StandardHelpPathsLocation', 'Standard Help Paths' );
-  Language.LL( Apply, FixedDrivesLocation, 'FixedDrivesLocation', 'All Hard Drives' );
-  Language.LL( Apply, SelectedHelpPathsLocation, 'SelectedHelpPathsLocation', 'Selected Help Paths' );
-  Language.LL( Apply, CustomPathsLocation, 'CustomPathsLocation', 'Directory List' );
-
-end;
+Procedure TGlobalSearchForm.OnLanguageEvent(Language: TLanguageFile; const Apply: boolean );
+begin
+  LogEvent(LogI18n, 'TGlobalSearchForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+
+  Language.LoadComponentLanguage(self, Apply);
+
+  Language.LL(Apply, SearchCaption, 'SearchCaption', '~Search');
+  Language.LL(Apply, StopCaption, 'StopCaption', '~Stop');
+  Language.LL(Apply, NoResultsMsg, 'NoResultsMsg', '(No results found)');
+  Language.LL(Apply, ScanDirectoriesMsg, 'ScanDirectoriesMsg', 'Finding help files...');
+  Language.LL(Apply, SearchingFileMsg, 'SearchingFileMsg', 'Searching ');
+  Language.LL(Apply, OfMsg, 'OfMsg', ' of ');
+  Language.LL(Apply, DoneMsg, 'DoneMsg', 'Done');
+  Language.LL(Apply, SearchErrorTitle, 'SearchErrorTitle', 'Search');
+  Language.LL(Apply, SearchError, 'SearchError', 'Error in search syntax: ');
+
+  Language.LL(Apply, StandardHelpPathsLocation, 'StandardHelpPathsLocation', 'Standard Help Paths');
+  Language.LL(Apply, FixedDrivesLocation, 'FixedDrivesLocation', 'All Hard Drives');
+  Language.LL(Apply, SelectedHelpPathsLocation, 'SelectedHelpPathsLocation', 'Selected Help Paths');
+  Language.LL(Apply, CustomPathsLocation, 'CustomPathsLocation', 'Directory List');
+end;
+
 
 Procedure TGlobalSearchForm.CancelButtonOnClick (Sender: TObject);