Function

TTemplate.ItemBoilerplate

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

Returns the cumulative boilerplate of a groups items

Visibility

Public

Owner

TTemplate

Declaration

function ItemBoilerplate: string;

Calls Hierarchy


TTemplate.ItemBoilerplate
 ├TTemplate.GetItems
 │ └ExpandTemplate
 │   ├TTemplate.GetChildren
 │   ├GetTemplateChildren
 │   ├AddTemplate
 │   │ ├TTemplate.Create
 │   │ │ └TTemplate.ReminderDialogIEN
 │   │ └TTemplate.AddChild
 │   │   └TTemplate.GetItems...
 │   └TTemplate.ItemIENs
 │     └TTemplate.GetItems...
 ├TTemplate.GetTemplateType
 ├DlgText
 └TTemplate.DialogProperties
   ├TTemplate.GetBoilerplate
   │ └GetTemplateBoilerplate
   └TTemplate.DlgID

Called-By Hierarchy


                              TTemplate.ItemBoilerplate
                            TTemplate.FullBoilerplate┘ 
                                  TTemplate.GetText┤   
                     ExecuteTemplateOrBoilerPlate┤ │   
                           TfrmDrawers.InsertText┤ │   
                TfrmDrawers.tvTemplatesDblClick┤ │ │   
                 TfrmDrawers.tvTemplatesKeyDown┤ │ │   
                     TfrmDrawers.NewRECDragDrop┤ │ │   
               TfrmDrawers.SetRichEditControl┘ │ │ │   
                      TfrmDCSumm.FormCreate┤   │ │ │   
                    TfrmConsults.FormCreate┤   │ │ │   
                     TfrmSurgery.FormCreate┤   │ │ │   
                       TfrmNotes.FormCreate┘   │ │ │   
             TfrmDrawers.mnuInsertTemplateClick┘ │ │   
       TfrmDCSumm.popSummMemoInsTemplateClick┤   │ │   
     TfrmConsults.popNoteMemoInsTemplateClick┤   │ │   
      TfrmSurgery.popNoteMemoInsTemplateClick┤   │ │   
        TfrmNotes.popNoteMemoInsTemplateClick┘   │ │   
              TfrmDrawers.mnuPreviewTemplateClick┤ │   
             TfrmDCSumm.popSummMemoPreviewClick┤ │ │   
           TfrmConsults.popNoteMemoPreviewClick┤ │ │   
            TfrmSurgery.popNoteMemoPreviewClick┤ │ │   
              TfrmNotes.popNoteMemoPreviewClick┘ │ │   
                 TfrmDrawers.mnuCopyTemplateClick┤ │   
                 TfrmTemplateEditor.mnuBPTryClick┘ │   
               TfrmTemplateEditor.tvTreeKeyDown┘   │   
              TfrmTemplateEditor.DisplayBoilerplate┤   
                      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┘ │ │   
                  TfrmTemplateEditor.edtGapChange┘ │   
                    TfrmTemplateEditor.reBoilChange┘   

Calls

Name Declaration Comments
TTemplate.DialogProperties function DialogProperties(Parent: TTemplate = nil): string; -
DlgText function DlgText(const txt: string; DlgProps: string): string; -
TTemplate.GetItems function GetItems: TList; -
TTemplate.GetTemplateType function GetTemplateType: TTemplateType; -

Called-By

Name Declaration Comments
TTemplate.FullBoilerplate function FullBoilerplate: string; -


Source

1814  function TTemplate.ItemBoilerplate: string;
1815  var
1816    i, j: integer;
1817    Template: TTemplate;
1818    GapStr: string;
1819  
1820  begin
1821    Result := '';
1822    if FIsReminderDialog or FIsCOMObject then exit;
1823    if(RealType = ttGroup) then
1824    begin
1825      GetItems;
1826      GapStr := '';
1827      if(FGap > 0) then
1828      begin
1829        for j := 1 to FGap do
1830          GapStr := GapStr + CRLF;
1831      end;
1832      if(IndentItems) then
1833        inc(uIndentLevel);
1834      try
1835        for i := 0 to FItems.Count-1 do
1836        begin
1837          Template := TTemplate(FItems[i]);
1838          if(Template.Active and (Template.TemplateType in [ttDoc, ttGroup])) then
1839          begin
1840            if i > 0 then
1841              Result := Result + GapStr;
1842            Result := Result + DlgText(TTemplate(FItems[i]).FullBoilerplate,
1843                                       TTemplate(FItems[i]).DialogProperties(Self));
1844          end;
1845        end;
1846      finally
1847        if(IndentItems) then
1848          dec(uIndentLevel);
1849      end;
1850    end;
1851  end;