Changeset 226 for trunk/Components/ACLMessageForm.pas

Timestamp:

Sep 9, 2007, 1:58:38 PM (18 years ago)

Author:

RBRi

Message:

refactoring
unused things removed, unit tests written, save translations improved

File:

• trunk/Components/ACLMessageForm.pas (modified) (3 diffs)

trunk/Components/ACLMessageForm.pas

@@ -40 +40 @@
   End;
 
+
+
+
 Implementation
 
@@ -58 +61 @@
   NoButtonCaption: string;
 
-Procedure OnLanguageEvent( Language: TLanguageFile;
-                           const Apply: boolean );
+Procedure OnLanguageEvent(Language: TLanguageFile; const Apply: boolean);
+var
+  tmpPrefix : String;
 begin
-  if Language <> nil then
-    Language.Prefix := 'MessageForm.'; // use messageform captions
-
-  LoadString( Language,Apply, OKButtonCaption, 'OKButtonCaption', '~OK' );
-  LoadString( Language,Apply, CancelButtonCaption, 'CancelButtonCaption', '~Cancel' );
-  LoadString( Language,Apply, HelpButtonCaption, 'HelpButtonCaption', '~Help' );
-  LoadString( Language,Apply, YesButtonCaption, 'YesButtonCaption', '~Yes' );
-  LoadString( Language,Apply, NoButtonCaption, 'NoButtonCaption', '~No' );
+  tmpPrefix := '';
+  if Language = nil then
+  begin
+    OKButtonCaption := '~OK';
+    CancelButtonCaption := '~Cancel';
+    HelpButtonCaption := '~Help';
+    YesButtonCaption := '~Yes';
+    NoButtonCaption := '~No';
+  end
+  else
+  begin
+    tmpPrefix := 'MessageForm' + LANGUAGE_LABEL_DELIMITER; // use messageform captions
+
+    Language.LL(Apply, OKButtonCaption, tmpPrefix + 'OKButtonCaption', '~OK');
+    Language.LL(Apply, CancelButtonCaption, tmpPrefix + 'CancelButtonCaption', '~Cancel');
+    Language.LL(Apply, HelpButtonCaption, tmpPrefix + 'HelpButtonCaption', '~Help');
+    Language.LL(Apply, YesButtonCaption, tmpPrefix + 'YesButtonCaption', '~Yes');
+    Language.LL(Apply, NoButtonCaption, tmpPrefix + 'NoButtonCaption', '~No');
+  end;
 end;
 
@@ -223 +238 @@
 
 Initialization
-  RegisterClasses ([ TButton, TImage,
-    TMessageForm, TCustomMemo, TListBox]);
+  RegisterClasses ([TButton, TImage, TMessageForm, TCustomMemo, TListBox]);
 
   RegisterProcForLanguages( OnLanguageEvent );