Changeset 228 for trunk/NewView/HelpFile.pas

Timestamp:

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

Author:

RBRi

Message:

refactoring for language handling

File:

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

trunk/NewView/HelpFile.pas

@@ -173 +173 @@
 Procedure OnLanguageEvent( Language: TLanguageFile;
                            const Apply: boolean );
-begin
-
-  Language.Prefix := 'HelpFile.';
-  Language.LL( Apply, FileErrorNotFound, 'FileErrorNotFound', 'File not found' );
-  Language.LL( Apply, FileErrorAccessDenied, 'FileErrorAccessDenied', 'Access denied' );
-  Language.LL( Apply, FileErrorInUse, 'FileErrorInUse', 'File in use by another program' );
+var
+  tmpPrefix : String;
+begin
+  tmpPrefix := 'HelpFile' + LANGUAGE_LABEL_DELIMITER;
+
+  Language.LL( Apply, FileErrorNotFound, tmpPrefix + 'FileErrorNotFound', 'File not found' );
+  Language.LL( Apply, FileErrorAccessDenied, tmpPrefix + 'FileErrorAccessDenied', 'Access denied' );
+  Language.LL( Apply, FileErrorInUse, tmpPrefix + 'FileErrorInUse', 'File in use by another program' );
   Language.LL( Apply,
                FileErrorInvalidHeader,
-               'FileErrorInvalidHeader',
+               tmpPrefix + 'FileErrorInvalidHeader',
                'File doesn''t appear to be an OS/2 Help document (header ID not correct)' );
   Language.LL( Apply,
                ErrorCorruptHelpFile,
-               'ErrorCorruptHelpFile',
+               tmpPrefix + 'ErrorCorruptHelpFile',
                'File is corrupt' );
 end;