Procedure

TfrmTemplateEditor.tvPersonalExpanding

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

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

Calls Hierarchy


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

787   procedure TfrmTemplateEditor.tvPersonalExpanding(Sender: TObject;
788     Node: TTreeNode; var AllowExpansion: Boolean);
789   begin
790     AllowExpansion := dmodShared.ExpandNode(tvPersonal, Node,
791       FPersonalEmptyNodeCount, not cbPerHide.Checked);
792     if (AllowExpansion and FInternalHiddenExpand) then
793       AllowExpansion := FALSE;
794   end;