Changeset 1693 for cprs/branches/HealthSevak-CPRS/VA

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

Location:

cprs/branches/HealthSevak-CPRS/VA

Files:

• VAUtils.dcu (deleted)
• VAUtils.pas (modified) (3 diffs)

cprs/branches/HealthSevak-CPRS/VA/VAUtils.pas

@@ -1 +1 @@
 unit VAUtils;
-
+                       
 {TODO  -oJeremy Merrill -cMessageHandlers : Change component list to use hex address for uComponentList
 search instead of IndexOfObject, so that it used a binary search
@@ -19 +19 @@
 function ShowMsg(const Msg, Caption: string; Icon: TShow508MessageIcon = smiNone;
                     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 +281 @@
     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);