Changeset 1679 for cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.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/CPRS-Chart/BA/fBALocalDiagnoses.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.pas

@@ -64 +64 @@
     procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);
 
   private
@@ -102 +101 @@
     procedure ReSetCheckBoxStatus(pDxCode:String);
     procedure DeleteSelectedDx;
-    function  IsCtrlDown: boolean;
 
   public
@@ -108 +106 @@
      procedure Enter(theCaller: smallint; pOrderIDList: TStringList);
      procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string);
-
   end;
 
@@ -173 +170 @@
      FLastHintItemNum := -1;
      ClearAndDisableCBoxes
-end;
-
-procedure TfrmBALocalDiagnoses.FormKeyPress(Sender: TObject; var Key: Char);
-begin
-  inherited;
-   if frmBALocalDiagnoses.IsCtrlDown then
-   begin
-     if ( Key = #10 ) then
-        frmBALocalDiagnoses.buOK.Click;
-   end;
-   
 end;
 
@@ -1560 +1546 @@
 end;
 
-function  TfrmBALocalDiagnoses.IsCtrlDown: boolean;
-var
-  State: TKeyboardState;
-begin { isCtrlDown }
-  GetKeyboardState(State);
-  Result := ((State[VK_CONTROL] and 128)<>0); // Ctrl-button
-end; { isCtrlDown }
-
-
-
 
 Initialization