Changeset 94 for trunk/NewView/OptionsForm.pas

Timestamp:

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

Author:

RBRi

Message:

+ i18n debug messages

File:

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

trunk/NewView/OptionsForm.pas

@@ -140 +140 @@
   ACLUtility,
   ControlsUtility,
-  FileDialogForm;
+  FileDialogForm,
+  DebugUnit,
+  StringUtilsUnit;
 
 Procedure TOptionsForm.OptionsFormOnSetupShow (Sender: TObject);
@@ -197 +199 @@
   ColorItemName: string;
 begin
+  LogEvent(LogI18n, 'TOptionsForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );