Procedure

TfrmDCSumm.mnuOptionsClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure mnuOptionsClick(Sender: TObject);

Calls Hierarchy


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

2290  procedure TfrmDCSumm.mnuOptionsClick(Sender: TObject);
2291  begin
2292    inherited;
2293    mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates;
2294    mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates;
2295    mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared;
2296    mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared;
2297    mnuEditDialgFields.Enabled := CanEditTemplateFields;
2298  end;