Procedure

TfrmTemplateEditor.tvSharedExpanding

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure tvSharedExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);

Calls Hierarchy


TfrmTemplateEditor.tvSharedExpanding
 └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

Calls

Name Declaration Comments
TdmodShared.ExpandNode function ExpandNode(Tree: TTreeView; Node: TTreeNode; var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean; -


Source

796   procedure TfrmTemplateEditor.tvSharedExpanding(Sender: TObject;
797     Node: TTreeNode; var AllowExpansion: Boolean);
798   begin
799     AllowExpansion := dmodShared.ExpandNode(tvShared, Node,
800       FSharedEmptyNodeCount, not cbShHide.Checked);
801     if (AllowExpansion and FInternalHiddenExpand) then
802       AllowExpansion := FALSE;
803   end;