Changeset 228 for trunk/NewView/InformationFormUnit.pas

Timestamp:

Sep 9, 2007, 2:02:29 PM (18 years ago)

Author:

RBRi

Message:

refactoring for language handling

File:

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

trunk/NewView/InformationFormUnit.pas

@@ -56 +56 @@
 Procedure TInformationForm.InformationFormOnCreate (Sender: TObject);
 Begin
-  RegisterForLanguages( OnLanguageEvent );
+  RegisterEventForLanguages( OnLanguageEvent );
 End;
 
@@ -62 +62 @@
                                             const Apply: boolean );
 begin
-  LogEvent(LogI18n, 'TInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+  // LogEvent(LogI18n, 'TInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 end;