Changeset 94 for trunk/NewView/InformationFormUnit.pas

Timestamp:

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

Author:

RBRi

Message:

+ i18n debug messages

File:

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

trunk/NewView/InformationFormUnit.pas

@@ -35 +35 @@
 
 Uses
-  ControlsUtility;
+  ControlsUtility,
+  DebugUnit,
+  StringUtilsUnit;
 
 Procedure TInformationForm.InformationFormOnSetupShow (Sender: TObject);
@@ -60 +62 @@
                                             const Apply: boolean );
 begin
+  LogEvent(LogI18n, 'TInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 end;