Procedure

TfrmDrawers.tvTemplatesExpanding

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

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

Calls Hierarchy


TfrmDrawers.tvTemplatesExpanding
 └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

697   procedure TfrmDrawers.tvTemplatesExpanding(Sender: TObject;
698     Node: TTreeNode; var AllowExpansion: Boolean);
699   begin
700     if(assigned(Node)) then
701     begin
702       if(Dragging) then EndDrag(FALSE);
703       if(not FInternalExpand) then
704       begin
705         if(TTemplate(Node.Data).RealType = ttGroup) then
706         begin
707           FAsk := TRUE;
708           FAskExp := TRUE;
709           AllowExpansion := FALSE;
710           FAskNode := Node;
711         end;
712       end;
713       if(AllowExpansion) then
714       begin
715         FClickOccurred := FALSE;
716         AllowExpansion := dmodShared.ExpandNode(tvTemplates, Node, FEmptyNodeCount);
717         if(FInternalHiddenExpand) then AllowExpansion := FALSE;
718       end;
719     end;
720   end;