Procedure

TfrmConsults.mnuOptionsClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure mnuOptionsClick(Sender: TObject);

Calls Hierarchy


TfrmConsults.mnuOptionsClick
 ├TfrmDrawers.CanEditTemplates
 │ └UserTemplateAccessLevel
 │   ├GetTemplateRoots
 │   └GetTemplateAccess
 ├TfrmDrawers.CanEditShared
 │ └UserTemplateAccessLevel...
 └CanEditTemplateFields

Calls

Name Declaration Comments
TfrmDrawers.CanEditShared function CanEditShared: boolean; -
CanEditTemplateFields function CanEditTemplateFields: boolean; -
TfrmDrawers.CanEditTemplates function CanEditTemplates: boolean; -


Source

3477  procedure TfrmConsults.mnuOptionsClick(Sender: TObject);
3478  begin
3479    inherited;
3480    mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates;
3481    mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates;
3482    mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared;
3483    mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared;
3484    mnuEditDialgFields.Enabled := CanEditTemplateFields;
3485  end;