Changeset 228 for trunk/NewView/PrintDialogUnit.pas

Timestamp:

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

Author:

RBRi

Message:

refactoring for language handling

File:

• trunk/NewView/PrintDialogUnit.pas (modified) (1 diff)

trunk/NewView/PrintDialogUnit.pas

@@ -70 +70 @@
 Procedure TNewViewPrintDialog.NewViewPrintDialogOnCreate (Sender: TObject);
 Begin
-  RegisterForLanguages( OnLanguageEvent );
+  RegisterEventForLanguages( OnLanguageEvent );
 End;
 
 Procedure TNewViewPrintDialog.OnLanguageEvent( Language: TLanguageFile;
                                                const Apply: boolean );
+var
+  tmpPrefix : String;
 begin
-  LogEvent(LogI18n, 'TNewViewPrintDialog.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+  // LogEvent(LogI18n, 'TNewViewPrintDialog.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 
-  Language.LL( Apply, SetupPrinterErrorTitle, 'SetupPrinterErrorTitle', 'Setup Printer' );
-  Language.LL( Apply, SetupPrinterError, 'SetupPrinterError', 'Error displaying printer options: ' );
+  tmpPrefix := 'NewViewPrintDialog' + LANGUAGE_LABEL_DELIMITER;
+
+  Language.LL( Apply, SetupPrinterErrorTitle, tmpPrefix + 'SetupPrinterErrorTitle', 'Setup Printer' );
+  Language.LL( Apply, SetupPrinterError, tmpPrefix + 'SetupPrinterError', 'Error displaying printer options: ' );
 end;