Procedure

TfrmConsults.EnableDisableIDNotes

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmConsults

Declaration

procedure EnableDisableIDNotes;

Called-By Hierarchy


TfrmConsults.EnableDisableIDNotes
       TfrmConsults.DisplayPage┘ 

Called-By

Name Declaration Comments
TfrmConsults.DisplayPage procedure DisplayPage; override; -


Source

4407  procedure TfrmConsults.EnableDisableIDNotes;
4408  begin
4409    uIDNotesActive := False;  //IDNotesInstalled;      {not for Consults in v15}
4410    mnuActDetachFromIDParent.Visible := uIDNotesActive;
4411    popNoteListDetachFromIDParent.Visible := uIDNotesActive;
4412    mnuActAddIDEntry.Visible := uIDNotesActive;
4413    popNoteListAddIDEntry.Visible := uIDNotesActive;
4414    mnuActAttachtoIDParent.Visible := uIDNotesActive;
4415    popNoteListAttachtoIDParent.Visible := uIDNotesActive;
4416    if uIDNotesActive then
4417      tvCsltNotes.DragMode := dmAutomatic
4418    else
4419      tvCsltNotes.DragMode := dmManual;
4420  end;