Changeset 226 for trunk/Components/ACLDialogs.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/ACLDialogs.pas (modified) (1 diff)

trunk/Components/ACLDialogs.pas

@@ -303 +303 @@
   CancelButtonCaption: 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 := 'TextInputForm.';
-
-  LoadString( Language, Apply, OKButtonCaption, 'OKButtonCaption', '~OK' );
-  LoadString( Language, Apply, CancelButtonCaption, 'CancelButtonCaption', '~Cancel' );
+  tmpPrefix := '';
+  if Language = nil then
+  begin
+    OKButtonCaption := '~OK';
+    CancelButtonCaption :='~Cancel';
+  end
+  else
+  begin
+    tmpPrefix := 'TextInputForm' + LANGUAGE_LABEL_DELIMITER; // use messageform captions
+    Language.LL(Apply, OKButtonCaption, tmpPrefix + 'OKButtonCaption', '~OK');
+    Language.LL(Apply, CancelButtonCaption, tmpPrefix + 'CancelButtonCaption', '~Cancel');
+  end;
 end;