Procedure

TTemplate.SetDescription

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetDescription(const Value: string);

Calls Hierarchy


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

Called-By Hierarchy


                        TTemplate.SetDescription
                       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┘     │ 
              TfrmTemplateEditor.reNotesChange┘ 

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; -
TfrmTemplateEditor.reNotesChange procedure reNotesChange(Sender: TObject); -
TTemplate.TrueClone function TrueClone: TTemplate; -


Source

2246  procedure TTemplate.SetDescription(const Value: string);
2247  begin
2248    if(FDescription <> Value) and CanModify then
2249    begin
2250      with FBkup do
2251      begin
2252        if(FDescriptionLoaded and (not SavedDescription) and ValidID) then
2253        begin
2254          BDescription := FDescription;
2255          SavedDescription := TRUE;
2256        end;
2257      end;
2258      FDescription := Value;
2259    end;
2260    FDescriptionLoaded := TRUE;
2261  end;