Changeset 1679 for cprs/trunk/VA/VAUtils.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/VA/VAUtils.pas (modified) (2 diffs)

cprs/trunk/VA/VAUtils.pas

@@ -20 +20 @@
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
 
+function Show508Message(Const Msg: String): TShow508MessageResult;
 function ShowMsg(const Msg: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
@@ -281 +282 @@
     smiError:     Caption := ' Error';
     smiQuestion:  Caption := ' Inquiry';
+    smiInfo:      Caption := ' Information';
   end;
   Caption := Application.Title + Caption;
   Result := ShowMsg(Msg, Caption, Icon, Buttons);
 end;
+
+function Show508Message(Const Msg: String): TShow508MessageResult;
+begin
+  Result := ShowMsg(msg);
+end;
+
 
 procedure FreeAndNilTStringsAndObjects(var Strings);