Procedure

TfrmSurgery.mnuOptionsClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure mnuOptionsClick(Sender: TObject);

Calls Hierarchy


TfrmSurgery.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

2256  procedure TfrmSurgery.mnuOptionsClick(Sender: TObject);
2257  begin
2258    inherited;
2259    mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates;
2260    mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates;
2261    mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared;
2262    mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared;
2263    mnuEditDialgFields.Enabled := CanEditTemplateFields;
2264  end;