Changeset 94 for trunk/NewView/SearchDirectoriesFormUnit.pas

Timestamp:

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

Author:

RBRi

Message:

+ i18n debug messages

File:

• trunk/NewView/SearchDirectoriesFormUnit.pas (modified) (2 diffs)

trunk/NewView/SearchDirectoriesFormUnit.pas

@@ -52 +52 @@
 
 Uses
-  ControlsUtility;
+  ControlsUtility,
+  DebugUnit,
+  StringUtilsUnit;
 
 Procedure TSearchDirectoriesForm.SearchDirectoriesFormOnSetupShow (Sender: TObject);
@@ -110 +112 @@
                                                    const Apply: boolean );
 begin
+  LogEvent(LogI18n, 'TSearchDirectoriesForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 end;