Procedure

TfrmConsults.SetSubjectVisible

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Comments

Hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote

Visibility

Private

Owner

TfrmConsults

Declaration

procedure SetSubjectVisible(ShouldShow: Boolean);

Called-By Hierarchy


          TfrmConsults.SetSubjectVisible
          TfrmConsults.CompleteConsult┤ 
    TfrmConsults.mnuActCompleteClick┤ │ 
  TfrmConsults.mnuActAddIDEntryClick┘ │ 
           TfrmConsults.InsertAddendum┤ 
TfrmConsults.mnuActMakeAddendumClick┘ │ 
              TfrmConsults.LoadForEdit┘ 
    TfrmConsults.mnuActNoteEditClick┘   
  TfrmConsults.mnuActCompleteClick┘     

Called-By

Name Declaration Comments
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -
TfrmConsults.InsertAddendum procedure InsertAddendum; -
TfrmConsults.LoadForEdit procedure LoadForEdit ; -


Source

3840  procedure TfrmConsults.SetSubjectVisible(ShouldShow: Boolean);
3841  { hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote }
3842  begin
3843    if ShouldShow then
3844    begin
3845      lblSubject.Visible := True;
3846      txtSubject.Visible := True;
3847      pnlFields.Height   := txtSubject.Top + txtSubject.Height + 6;
3848    end else
3849    begin
3850      lblSubject.Visible := False;
3851      txtSubject.Visible := False;
3852      pnlFields.Height   := lblVisit.Top + lblVisit.Height + 6;
3853    end;
3854  end;