Procedure

TfrmDrawers.OpenToNode

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

procedure OpenToNode(Path: string = '');

Calls Hierarchy


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

Called-By Hierarchy


                 TfrmDrawers.OpenToNode
          TfrmDrawers.ReloadTemplates┤ 
       TfrmDrawers.sbTemplatesClick┤ │ 
TfrmDrawers.ExternalReloadTemplates┘ │ 
               TdmodShared.Reload┘   │ 
 TfrmTemplateEditor.FormDestroy┘     │ 
      TfrmDrawers.mnuGotoDefaultClick┘ 

Calls

Name Declaration Comments
TdmodShared.SelectNode procedure SelectNode(Tree: TORTreeView; GotoNodeID: string; var EmptyCount: integer); -

Called-By

Name Declaration Comments
TfrmDrawers.mnuGotoDefaultClick procedure mnuGotoDefaultClick(Sender: TObject); -
TfrmDrawers.ReloadTemplates procedure ReloadTemplates; -


Source

1399  procedure TfrmDrawers.OpenToNode(Path: string = '');
1400  var
1401    OldInternalHE, OldInternalEX: boolean;
1402  
1403  begin
1404    if(Path <> '') then
1405      FOpenToNode := PATH;
1406    if(FOpenToNode <> '') then
1407    begin
1408      OldInternalHE := FInternalHiddenExpand;
1409      OldInternalEX := FInternalExpand;
1410      try
1411        FInternalExpand := TRUE;
1412        FInternalHiddenExpand := FALSE;
1413        dmodShared.SelectNode(tvTemplates, FOpenToNode, FEmptyNodeCount);
1414      finally
1415        FInternalHiddenExpand := OldInternalHE;
1416        FInternalExpand := OldInternalEX;
1417      end;
1418      FOpenToNode := '';
1419    end;
1420  end;