Function

TdmodShared.InDialog

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TdmodShared

Declaration

function InDialog(Node: TTreeNode): boolean;

Calls Hierarchy


TdmodShared.InDialog
 └TTemplate.IsDialog

Called-By Hierarchy


                               TdmodShared.InDialog
                      TfrmTemplateEditor.ShowInfo┘ 
                                  EditTemplates┤   
          TfrmDCSumm.popSummMemoTemplateClick┤ │   
               TfrmDCSumm.mnuNewTemplateClick┤ │   
             TfrmDCSumm.mnuEditTemplatesClick┤ │   
       TfrmDCSumm.mnuEditSharedTemplatesClick┤ │   
         TfrmDCSumm.mnuNewSharedTemplateClick┤ │   
        TfrmConsults.popNoteMemoTemplateClick┤ │   
           TfrmConsults.mnuEditTemplatesClick┤ │   
             TfrmConsults.mnuNewTemplateClick┤ │   
     TfrmConsults.mnuEditSharedTemplatesClick┤ │   
       TfrmConsults.mnuNewSharedTemplateClick┤ │   
            TfrmDrawers.mnuEditTemplatesClick┤ │   
              TfrmDrawers.mnuNewTemplateClick┤ │   
         TfrmSurgery.popNoteMemoTemplateClick┤ │   
            TfrmSurgery.mnuEditTemplatesClick┤ │   
              TfrmSurgery.mnuNewTemplateClick┤ │   
      TfrmSurgery.mnuEditSharedTemplatesClick┤ │   
        TfrmSurgery.mnuNewSharedTemplateClick┤ │   
           TfrmNotes.popNoteMemoTemplateClick┤ │   
              TfrmNotes.mnuEditTemplatesClick┤ │   
                TfrmNotes.mnuNewTemplateClick┤ │   
        TfrmNotes.mnuEditSharedTemplatesClick┤ │   
          TfrmNotes.mnuNewSharedTemplateClick┘ │   
                TfrmTemplateEditor.tvTreeChange┤   
             TfrmTemplateEditor.cbActiveClick┤ │   
               TfrmTemplateEditor.tvTreeEnter┤ │   
             TfrmTemplateEditor.cbShHideClick┤ │   
           TfrmTemplateEditor.cbActiveClick┘ │ │   
            TfrmTemplateEditor.cbPerHideClick┤ │   
           TfrmTemplateEditor.cbActiveClick┘ │ │   
             TfrmTemplateEditor.sbDeleteClick┤ │   
      TfrmTemplateEditor.mnuNodeDeleteClick┤ │ │   
           TfrmTemplateEditor.tvTreeKeyDown┘ │ │   
                    TfrmTemplateEditor.Resync┤ │   
             TfrmTemplateEditor.btnNewClick┤ │ │   
                         EditTemplates...┤ │ │ │   
       TfrmTemplateEditor.mnuAutoGenClick┤ │ │ │   
TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ │   
           TfrmTemplateEditor.sbMoveUpClick┤ │ │   
         TfrmTemplateEditor.sbMoveDownClick┤ │ │   
        TfrmTemplateEditor.sbDeleteClick...┤ │ │   
          TfrmTemplateEditor.tvTreeDragDrop┤ │ │   
       TfrmTemplateEditor.sbCopyLeftClick┤ │ │ │   
      TfrmTemplateEditor.sbCopyRightClick┤ │ │ │   
     TfrmTemplateEditor.mnuNodePasteClick┘ │ │ │   
            TfrmTemplateEditor.mnuSortClick┤ │ │   
          TfrmTemplateEditor.TemplateLocked┘ │ │   
            TfrmTemplateEditor.FormCreate┘   │ │   
             TfrmTemplateEditor.SharedEditing┤ │   
              TfrmTemplateEditor.FormCreate┤ │ │   
       TfrmTemplateEditor.cbEditSharedClick┘ │ │   
             TfrmTemplateEditor.cbxTypeChange┘ │   
                TfrmTemplateEditor.reBoilChange┤   
             TfrmTemplateEditor.mnuAutoGenClick┤   
      TfrmTemplateEditor.mnuImportTemplateClick┘   

Calls

Name Declaration Comments
TTemplate.IsDialog function IsDialog: boolean; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -


Source

760   function TdmodShared.InDialog(Node: TTreeNode): boolean;
761   begin
762     Result := FALSE;
763     while assigned(Node) and (not Result) do
764     begin
765       if TTemplate(Node.Data).IsDialog then
766         Result := TRUE
767       else
768         Node := Node.Parent;
769     end;
770   end;