Changeset 228 for trunk/NewView/BookmarksFormUnit.pas

Timestamp:

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

Author:

RBRi

Message:

refactoring for language handling

File:

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

trunk/NewView/BookmarksFormUnit.pas

@@ -84 +84 @@
 Procedure TBookmarksForm.OnLanguageEvent( Language: TLanguageFile;
                                           const Apply: boolean );
-begin
-  LogEvent(LogI18n, 'TBookmarksForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+var
+  tmpPrefix : String;
+begin
+  // LogEvent(LogI18n, 'TBookmarksForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 
-  Language.LL( Apply, DeleteBookmarkTitle, 'DeleteBookmarkTitle', 'Delete Bookmark' );
-  Language.LL( Apply, DeleteBookmarkA, 'DeleteBookmarkA', 'Delete the bookmark named ' );
-  Language.LL( Apply, DeleteBookmarkB, 'DeleteBookmarkB', '?' );
-  Language.LL( Apply, RenameBookmarkTitle, 'RenameBookmarkTitle', 'Rename Bookmark' );
-  Language.LL( Apply, RenameBookmark, 'RenameBookmark', 'Enter the new name of the bookmark' );
+  tmpPrefix := 'BookmarksForm' + LANGUAGE_LABEL_DELIMITER;
+
+  Language.LL( Apply, DeleteBookmarkTitle, tmpPrefix + 'DeleteBookmarkTitle', 'Delete Bookmark' );
+  Language.LL( Apply, DeleteBookmarkA, tmpPrefix + 'DeleteBookmarkA', 'Delete the bookmark named ' );
+  Language.LL( Apply, DeleteBookmarkB, tmpPrefix + 'DeleteBookmarkB', '?' );
+  Language.LL( Apply, RenameBookmarkTitle, tmpPrefix + 'RenameBookmarkTitle', 'Rename Bookmark' );
+  Language.LL( Apply, RenameBookmark, tmpPrefix + 'RenameBookmark', 'Enter the new name of the bookmark' );
 end;
 
@@ -114 +118 @@
 Procedure TBookmarksForm.BookmarksFormOnCreate (Sender: TObject);
 Begin
-  RegisterForLanguages( OnLanguageEvent );
+  RegisterEventForLanguages( OnLanguageEvent );
 End;