Procedure

TfrmDrawers.mnuGotoDefaultClick

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

procedure mnuGotoDefaultClick(Sender: TObject);

Calls Hierarchy


TfrmDrawers.mnuGotoDefaultClick
 ├TfrmDrawers.OpenToNode
 │ └TdmodShared.SelectNode
 │   ├FindNode
 │   └TdmodShared.ExpandNode
 │     ├ExpandTemplate
 │     │ ├TTemplate.GetChildren
 │     │ ├GetTemplateChildren
 │     │ ├AddTemplate
 │     │ │ ├TTemplate.Create
 │     │ │ │ └TTemplate.ReminderDialogIEN
 │     │ │ └TTemplate.AddChild
 │     │ │   └TTemplate.GetItems
 │     │ │     └ExpandTemplate...
 │     │ └TTemplate.ItemIENs
 │     │   └TTemplate.GetItems...
 │     ├TTemplate.GetItems...
 │     ├TdmodShared.AddTemplateNode
 │     │ ├AddChildObject
 │     │ │ └TTemplate.AddNode
 │     │ └TTemplate.GetChildren
 │     └TTemplate.GetChildren
 └GetUserTemplateDefaults

Calls

Name Declaration Comments
GetUserTemplateDefaults function GetUserTemplateDefaults(LoadFromServer: boolean = FALSE): string; -
TfrmDrawers.OpenToNode procedure OpenToNode(Path: string = ''); -


Source

1422  procedure TfrmDrawers.mnuGotoDefaultClick(Sender: TObject);
1423  begin
1424    OpenToNode(Piece(GetUserTemplateDefaults, '/', FDefTempPiece));
1425  end;