Function

TfrmDrawers.CanEditShared

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmDrawers

Declaration

function CanEditShared: boolean;

Calls Hierarchy


TfrmDrawers.CanEditShared
 └UserTemplateAccessLevel
   ├GetTemplateRoots
   └GetTemplateAccess

Called-By Hierarchy


     TfrmDrawers.CanEditShared
  TfrmDCSumm.mnuOptionsClick┤ 
TfrmConsults.mnuOptionsClick┤ 
 TfrmSurgery.mnuOptionsClick┤ 
   TfrmNotes.mnuOptionsClick┘ 

Calls

Name Declaration Comments
UserTemplateAccessLevel function UserTemplateAccessLevel: TTemplateAccess; -

Called-By

Name Declaration Comments
TfrmDCSumm.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmConsults.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmSurgery.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -
TfrmNotes.mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); -


Source

1190  function TfrmDrawers.CanEditShared: boolean;
1191  begin
1192    Result := (UserTemplateAccessLevel = taEditor);
1193  end;