Changeset 94 for trunk/NewView/NoteForm.pas

Timestamp:

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

Author:

RBRi

Message:

+ i18n debug messages

File:

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

trunk/NewView/NoteForm.pas

@@ -42 +42 @@
 uses
   SysUtils,
-  ControlsUtility;
+  ControlsUtility,
+  DebugUnit,
+  StringUtilsUnit;
 
 Procedure TNoteForm.NoteFormOnSetupShow (Sender: TObject);
@@ -52 +54 @@
                                      const Apply: boolean );
 begin
+  LogEvent(LogI18n, 'TNoteForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 end;