Procedure

TTemplate.SetBoilerplate

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

Sets the items boilerplate - does not affect children boilerplates of a group

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetBoilerplate(Value: string);

Calls Hierarchy


TTemplate.SetBoilerplate
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 └TTemplate.ValidID

Called-By Hierarchy


                        TTemplate.SetBoilerplate
                       TTemplate.CreateFromXML┤ 
                                   ..(rec)..┤ │ 
              TfrmTemplateEditor.btnNewClick┘ │ 
                             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.mnuAutoGenClick┤   │ 
 TfrmTemplateEditor.mnuImportTemplateClick┘   │ 
                           TTemplate.TrueClone┤ 
                             TTemplate.Clone┘ │ 
                  TfrmTemplateEditor.Clone┘   │ 
       TfrmTemplateEditor.btnNewClick...┤     │ 
     TfrmTemplateEditor.edtNameOldChange┤     │ 
   TfrmTemplateEditor.tvTreeNodeEdited┤ │     │ 
    TfrmTemplateEditor.mnuAutoGenClick┘ │     │ 
        TfrmTemplateEditor.cbActiveClick┤     │ 
       TfrmTemplateEditor.cbExcludeClick┤     │ 
         TfrmTemplateEditor.edtGapChange┤     │ 
        TfrmTemplateEditor.sbMoveUpClick┤     │ 
      TfrmTemplateEditor.sbMoveDownClick┤     │ 
        TfrmTemplateEditor.sbDeleteClick┤     │ 
 TfrmTemplateEditor.mnuNodeDeleteClick┤ │     │ 
      TfrmTemplateEditor.tvTreeKeyDown┘ │     │ 
       TfrmTemplateEditor.tvTreeDragDrop┤     │ 
    TfrmTemplateEditor.sbCopyLeftClick┤ │     │ 
   TfrmTemplateEditor.sbCopyRightClick┤ │     │ 
  TfrmTemplateEditor.mnuNodePasteClick┘ │     │ 
                               ..(rec)..┤     │ 
         TfrmTemplateEditor.reBoilChange┤     │ 
        TfrmTemplateEditor.reNotesChange┤     │ 
              TfrmTemplateEditor.cbClick┤     │ 
 TfrmTemplateEditor.cbDisplayOnlyClick┤ │     │ 
   TfrmTemplateEditor.cbFirstLineClick┤ │     │ 
 TfrmTemplateEditor.cbOneItemOnlyClick┤ │     │ 
TfrmTemplateEditor.cbHideDlgItemsClick┤ │     │ 
   TfrmTemplateEditor.cbHideItemsClick┤ │     │ 
      TfrmTemplateEditor.cbIndentClick┤ │     │ 
        TfrmTemplateEditor.cbLockClick┘ │     │ 
        TfrmTemplateEditor.cbxTypeChange┤     │ 
     TfrmTemplateEditor.cbxRemDlgsChange┘     │ 
                              EditTemplates...┤ 
               TfrmTemplateEditor.reBoilChange┤ 
            TfrmTemplateEditor.mnuAutoGenClick┘ 

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TTemplate.CreateFromXML class function CreateFromXML(Element: IXMLDOMNode; Owner: string): TTemplate; -
EditTemplates procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; CopiedText: string = ''; Shared: boolean = FALSE); -
TfrmTemplateEditor.mnuAutoGenClick procedure mnuAutoGenClick(Sender: TObject); -
TfrmTemplateEditor.reBoilChange procedure reBoilChange(Sender: TObject); -
TTemplate.TrueClone function TrueClone: TTemplate; -


Source

1867  procedure TTemplate.SetBoilerplate(Value: string);
1868  begin
1869    if(FBoilerplate <> Value) and CanModify then
1870    begin
1871      with FBkup do
1872      begin
1873        if(FBoilerPlateLoaded and (not SavedBoilerplate) and ValidID) then
1874        begin
1875          BBoilerplate := FBoilerplate;
1876          SavedBoilerplate := TRUE;
1877        end;
1878      end;
1879      FBoilerplate := Value;
1880    end;
1881    FBoilerPlateLoaded := TRUE;
1882  end;