Changeset 228 for trunk/NewView/OptionsForm.pas

Timestamp:

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

Author:

RBRi

Message:

refactoring for language handling

File:

• trunk/NewView/OptionsForm.pas (modified) (4 diffs)

trunk/NewView/OptionsForm.pas

@@ -198 +198 @@
   i: longint;
   ColorItemName: string;
+  tmpPrefix : String;
 begin
-  LogEvent(LogI18n, 'TOptionsForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
+  // LogEvent(LogI18n, 'TOptionsForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
   Language.LoadComponentLanguage( self, Apply );
 
@@ -208 +209 @@
   end;
 
+  tmpPrefix := 'OptionsForm' + LANGUAGE_LABEL_DELIMITER;
+
   for i := 0 to NumColorSettings - 1 do
   begin
     Language.LL( Apply,
                  ColorItemName,
-                 'ColorItemName' + IntToStr( i ),
+                 tmpPrefix + 'ColorItemName' + IntToStr( i ),
                  DefaultColorItemNames[ i ] );
     if Apply then
@@ -221 +224 @@
     ColorItemsListBox.EndUpdate;
 
-  Language.LL( Apply, SelectBitmapTitle, 'SelectBitmapTitle', 'Select Bitmap File' );
-  Language.LL( Apply, BitmapFilesDesc, 'BitmapFilesDesc', 'Bitmaps (*.bmp)' );
-  Language.LL( Apply, BoldFontSuffix, 'BoldFontSuffix', ' Bold' );
-  Language.LL( Apply, ItalicFontSuffix, 'ItalicFontSuffix', ' Italic' );
+  Language.LL( Apply, SelectBitmapTitle, tmpPrefix + 'SelectBitmapTitle', 'Select Bitmap File' );
+  Language.LL( Apply, BitmapFilesDesc, tmpPrefix + 'BitmapFilesDesc', 'Bitmaps (*.bmp)' );
+  Language.LL( Apply, BoldFontSuffix, tmpPrefix + 'BoldFontSuffix', ' Bold' );
+  Language.LL( Apply, ItalicFontSuffix, tmpPrefix + 'ItalicFontSuffix', ' Italic' );
 end;
 
@@ -358 +361 @@
 Procedure TOptionsForm.OptionsFormOnCreate (Sender: TObject);
 Begin
-  RegisterForLanguages( OnLanguageEvent );
+  RegisterEventForLanguages( OnLanguageEvent );
 
   TabbedNoteBook.ShowPageHint := false;