Ignore:
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/CPRS-Chart/BA
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/UBACore.pas

    r829 r1693  
    7373
    7474uses fBALocalDiagnoses, fOrdersSign, fReview, rOrders, uCore, rCore, rPCE,uPCE,
    75      UBAConst, UBAMessages, USignItems;
     75     UBAConst, UBAMessages, USignItems, VAUtils;
    7676
    7777

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.dfm

    r829 r1693  
    1010  OnActivate = FormActivate
    1111  OnCreate = FormCreate
    12   OnKeyPress = FormKeyPress
    1312  OnShow = FormShow
    1413  ExplicitWidth = 620
    15   ExplicitHeight = 551
     14  ExplicitHeight = 544
    1615  PixelsPerInch = 96
    1716  TextHeight = 13

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.pas

    r829 r1693  
    6464    procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
    6565      Y: Integer);
    66     procedure FormKeyPress(Sender: TObject; var Key: Char);
    6766
    6867  private
    … …  
    102101    procedure ReSetCheckBoxStatus(pDxCode:String);
    103102    procedure DeleteSelectedDx;
    104     function  IsCtrlDown: boolean;
    105103
    106104  public
    … …  
    108106     procedure Enter(theCaller: smallint; pOrderIDList: TStringList);
    109107     procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string);
    110 
    111108  end;
    112109
    … …  
    173170     FLastHintItemNum := -1;
    174171     ClearAndDisableCBoxes
    175 end;
    176 
    177 procedure TfrmBALocalDiagnoses.FormKeyPress(Sender: TObject; var Key: Char);
    178 begin
    179   inherited;
    180    if frmBALocalDiagnoses.IsCtrlDown then
    181    begin
    182      if ( Key = #10 ) then
    183         frmBALocalDiagnoses.buOK.Click;
    184    end;
    185    
    186172end;
    187173
    … …  
    15601546end;
    15611547
    1562 function  TfrmBALocalDiagnoses.IsCtrlDown: boolean;
    1563 var
    1564   State: TKeyboardState;
    1565 begin { isCtrlDown }
    1566   GetKeyboardState(State);
    1567   Result := ((State[VK_CONTROL] and 128)<>0); // Ctrl-button
    1568 end; { isCtrlDown }
    1569 
    1570 
    1571 
    15721548
    15731549Initialization
Note: See TracChangeset for help on using the changeset viewer.