Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOMNavA.pas

Timestamp:

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

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOMNavA.pas (modified) (1 diff)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOMNavA.pas

@@ -647 +647 @@
   if grdMenu.Objects[grdMenu.Col, grdMenu.Row] is TOrderMenuItem then begin
     OrderMenuItem := TOrderMenuItem(grdMenu.Objects[grdMenu.Col, grdMenu.Row]);
+    Text := OrderMenuItem.Mnemonic + ', ' + OrderMenuItem.ItemText;
     if OrderMenuItem.AutoAck then
-      Text := 'Auto Accept, '+ OrderMenuItem.ItemText;
+      Text := 'Auto Accept, '+ Text;
   end;
 end;