Changeset 228 for trunk/NewView/FileDialogForm.pas

Timestamp:

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

Author:

RBRi

Message:

refactoring for language handling

File:

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

trunk/NewView/FileDialogForm.pas

@@ -559 +559 @@
 Procedure TFileDialogForm.OnLanguageEvent( Language: TLanguageFile;
                                            const Apply: boolean );
+var
+  tmpPrefix : String;
 begin
-  LogEvent(LogI18n, 'TFileDialogForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+  // LogEvent(LogI18n, 'TFileDialogForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 
-  Language.LL( Apply, InvalidFilterErrorTitle, 'InvalidFilterErrorTitle', 'File Filter Error' );
+  tmpPrefix := 'FileDialogForm' + LANGUAGE_LABEL_DELIMITER;
+
+  Language.LL( Apply, InvalidFilterErrorTitle, tmpPrefix + 'InvalidFilterErrorTitle', 'File Filter Error' );
   Language.LL( Apply,
                InvalidFilterError,
-               'InvalidFilterError',
+               tmpPrefix + 'InvalidFilterError',
                ' is not a valid filename filter. '
                + 'You cannot use any of these characters: ' );
-  Language.LL( Apply, FileNotFoundErrorTitle, 'FileNotFoundErrorTitle', 'File Not Found' );
-  Language.LL( Apply, FileNotFoundError, 'FileNotFoundError', 'File does not exist:' );
-  Language.LL( Apply, MultiSelectErrorTitle, 'MultiSelectErrorTitle', 'Multi-Select' );
-  Language.LL( Apply, MultiSelectError, 'MultiSelectError', 'You can only select one file' );
+  Language.LL( Apply, FileNotFoundErrorTitle, tmpPrefix + 'FileNotFoundErrorTitle', 'File Not Found' );
+  Language.LL( Apply, FileNotFoundError, tmpPrefix + 'FileNotFoundError', 'File does not exist:' );
+  Language.LL( Apply, MultiSelectErrorTitle, tmpPrefix + 'MultiSelectErrorTitle', 'Multi-Select' );
+  Language.LL( Apply, MultiSelectError, tmpPrefix + 'MultiSelectError', 'You can only select one file' );
 end;
 
 Procedure TFileDialogForm.FileDialogFormOnCreate (Sender: TObject);
 Begin
-  RegisterForLanguages( OnLanguageEvent );
+  RegisterEventForLanguages( OnLanguageEvent );
 
   FileMask := '*.*';