Procedure

TfrmODMedIV.cboSelectedCloseUp

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboSelectedCloseUp(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.cboSelectedCloseUp
 └TfrmODMedIV.ControlChange
   ├TfrmODMedIV.loadExpectFirstDose
   │ ├TfrmODMedIV.DisplayDoseNow
   │ ├LoadAdminInfo
   │ └FMToday
   │   └FMNow
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├IsNumericRate
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


  TfrmODMedIV.cboSelectedCloseUp
TfrmODMedIV.cboSelectedKeyDown┘ 

Calls

Name Declaration Comments
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmODMedIV.cboSelectedKeyDown procedure cboSelectedKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

1878  procedure TfrmODMedIV.cboSelectedCloseUp(Sender: TObject);
1879  begin
1880    inherited;
1881    with cboSelected do
1882    begin
1883      if tag < 0 then exit;
1884      grdSelected.Cells[Tag div 256, Tag mod 256] := MixedCase(items.Strings[itemindex]);
1885      Tag := -1;
1886      Hide;
1887      ControlChange(Sender);
1888      TControl(self.grdSelected).Enabled := True;
1889      ActiveControl := self.grdSelected;
1890    end;
1891    grdSelected.Refresh;
1892  end;