Changeset 1679 for cprs/trunk/CPRS-Chart/BA
- Timestamp:
- May 7, 2015, 12:34:29 PM (10 years ago)
- Location:
- cprs/trunk/CPRS-Chart/BA
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/BA/UBACore.pas
r829 r1679 73 73 74 74 uses fBALocalDiagnoses, fOrdersSign, fReview, rOrders, uCore, rCore, rPCE,uPCE, 75 UBAConst, UBAMessages, USignItems ;75 UBAConst, UBAMessages, USignItems, VAUtils; 76 76 77 77 -
cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.dfm
r829 r1679 10 10 OnActivate = FormActivate 11 11 OnCreate = FormCreate 12 OnKeyPress = FormKeyPress13 12 OnShow = FormShow 14 13 ExplicitWidth = 620 15 ExplicitHeight = 5 5114 ExplicitHeight = 544 16 15 PixelsPerInch = 96 17 16 TextHeight = 13 -
cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.pas
r829 r1679 64 64 procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, 65 65 Y: Integer); 66 procedure FormKeyPress(Sender: TObject; var Key: Char);67 66 68 67 private … … 102 101 procedure ReSetCheckBoxStatus(pDxCode:String); 103 102 procedure DeleteSelectedDx; 104 function IsCtrlDown: boolean;105 103 106 104 public … … 108 106 procedure Enter(theCaller: smallint; pOrderIDList: TStringList); 109 107 procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string); 110 111 108 end; 112 109 … … 173 170 FLastHintItemNum := -1; 174 171 ClearAndDisableCBoxes 175 end;176 177 procedure TfrmBALocalDiagnoses.FormKeyPress(Sender: TObject; var Key: Char);178 begin179 inherited;180 if frmBALocalDiagnoses.IsCtrlDown then181 begin182 if ( Key = #10 ) then183 frmBALocalDiagnoses.buOK.Click;184 end;185 186 172 end; 187 173 … … 1560 1546 end; 1561 1547 1562 function TfrmBALocalDiagnoses.IsCtrlDown: boolean;1563 var1564 State: TKeyboardState;1565 begin { isCtrlDown }1566 GetKeyboardState(State);1567 Result := ((State[VK_CONTROL] and 128)<>0); // Ctrl-button1568 end; { isCtrlDown }1569 1570 1571 1572 1548 1573 1549 Initialization
Note:
See TracChangeset
for help on using the changeset viewer.