Procedure

TfrmSurgery.SetSubjectVisible

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Comments

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

Visibility

Private

Owner

TfrmSurgery

Declaration

procedure SetSubjectVisible(ShouldShow: Boolean);

Called-By Hierarchy


    TfrmSurgery.SetSubjectVisible
      TfrmSurgery.InsertNewNote┤ 
   TfrmSurgery.mnuActNewClick┘ │ 
TfrmSurgery.cmdNewNoteClick┘   │ 
     TfrmSurgery.InsertAddendum┤ 
TfrmSurgery.mnuActAddendClick┘ │ 
        TfrmSurgery.LoadForEdit┘ 
  TfrmSurgery.mnuActEditClick┘   

Called-By

Name Declaration Comments
TfrmSurgery.InsertAddendum procedure InsertAddendum; -
TfrmSurgery.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmSurgery.LoadForEdit procedure LoadForEdit; -


Source

860   procedure TfrmSurgery.SetSubjectVisible(ShouldShow: Boolean);
861   { hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote }
862   begin
863     if ShouldShow then
864     begin
865       lblSubject.Visible := True;
866       txtSubject.Visible := True;
867       pnlFields.Height   := txtSubject.Top + txtSubject.Height + 6;
868     end else
869     begin
870       lblSubject.Visible := False;
871       txtSubject.Visible := False;
872       pnlFields.Height   := lblVisit.Top + lblVisit.Height + 6;
873     end;
874   end;