Procedure

TfrmTemplateEditor.reBoilChange

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure reBoilChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.reBoilChange
 ├TTemplate.GetBoilerplate
 │ └GetTemplateBoilerplate
 ├TfrmTemplateEditor.CanClone
 │ ├GetFirstPersonalNode
 │ │ └..(rec)..
 │ └TTemplate.CanModify
 │   ├TTemplate.ValidID
 │   └LockTemplate
 ├TfrmTemplateEditor.Clone
 │ ├TfrmTemplateEditor.CanClone...
 │ ├..(rec)..
 │ ├TTemplate.CanModify...
 │ ├TTemplate.Clone
 │ │ ├TTemplate.TrueClone
 │ │ │ ├TTemplate.GetChildren
 │ │ │ ├TTemplate.Create
 │ │ │ │ └TTemplate.ReminderDialogIEN
 │ │ │ ├TTemplate.SetBoilerplate
 │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ └TTemplate.ValidID
 │ │ │ ├TTemplate.GetBoilerplate...
 │ │ │ ├TTemplate.SetDescription
 │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ └TTemplate.ValidID
 │ │ │ └TTemplate.GetDescription
 │ │ │   └LoadTemplateDescription
 │ │ ├TTemplate.GetItems
 │ │ │ └ExpandTemplate
 │ │ │   ├TTemplate.GetChildren
 │ │ │   ├GetTemplateChildren
 │ │ │   ├AddTemplate
 │ │ │   │ ├TTemplate.Create...
 │ │ │   │ └TTemplate.AddChild
 │ │ │   │   └TTemplate.GetItems...
 │ │ │   └TTemplate.ItemIENs
 │ │ │     └TTemplate.GetItems...
 │ │ └TTemplate.BackupItems
 │ │   └TTemplate.ItemIENs...
 │ ├TTemplate.RemoveNode
 │ ├MarkDeleted
 │ │ ├TTemplate.ValidID
 │ │ ├TTemplate.SetFileLink
 │ │ │ └TTemplate.AssignFileLink
 │ │ │   ├TTemplate.CanModify...
 │ │ │   ├TTemplate.ValidID
 │ │ │   ├TTemplate.LinkType
 │ │ │   ├TTemplate.SetReminderDialog
 │ │ │   │ ├TTemplate.CanModify...
 │ │ │   │ ├TTemplate.ValidID
 │ │ │   │ ├TTemplate.ReminderDialogIEN
 │ │ │   │ ├TTemplate.LinkType
 │ │ │   │ └TTemplate.SetFileLink...
 │ │ │   ├TTemplate.GetItems...
 │ │ │   └..(rec)..
 │ │ ├TTemplate.GetItems...
 │ │ └..(rec)..
 │ ├TTemplate.AddNode
 │ ├TTemplate.GetItems...
 │ └TfrmTemplateEditor.ShowTemplateType
 ├TTemplate.CanModify...
 ├TTemplate.SetBoilerplate...
 ├TTemplate.SetGap
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.FullBoilerplate
 │ ├TTemplate.GetBoilerplate...
 │ ├TTemplate.ItemBoilerplate
 │ │ ├TTemplate.GetItems...
 │ │ ├TTemplate.GetTemplateType
 │ │ ├DlgText
 │ │ └TTemplate.DialogProperties
 │ │   ├TTemplate.GetBoilerplate...
 │ │   └TTemplate.DlgID
 │ ├DlgText
 │ └TTemplate.DialogProperties...
 └TfrmTemplateEditor.ShowInfo
   ├TfrmTemplateEditor.ShowTemplateType
   ├TfrmTemplateEditor.GetLinkType
   ├LoadServiceListWithSynonyms
   ├TTemplate.LinkName
   │ ├GetLinkName
   │ │ └ExternalName
   │ ├TTemplate.LinkIEN
   │ └TTemplate.LinkType
   ├TTemplate.LinkIEN
   ├TTemplate.GetDescription...
   ├TTemplate.IsLocked
   │ └TTemplate.AutoLock
   │   └TTemplate.LinkType
   ├TTemplate.AutoLock...
   ├TfrmTemplateEditor.IsTemplateLocked
   │ ├TTemplate.AutoLock...
   │ ├TTemplate.IsLocked...
   │ └..(rec)..
   ├TTemplate.GetChildren
   ├TTemplate.ReminderDialogIEN
   ├TdmodShared.InDialog
   │ └TTemplate.IsDialog
   ├TTemplate.GetBoilerplate...
   ├TfrmTemplateEditor.DisplayBoilerplate
   │ ├TfrmTemplateEditor.pnlBoilerplateResize
   │ ├TTemplate.GetBoilerplate...
   │ ├TTemplate.FullBoilerplate...
   │ ├TfrmTemplateEditor.UpdateInsertsDialogs
   │ │ ├TfrmTemplateObjects.UpdateStatus
   │ │ └TfrmTemplateFields.UpdateStatus
   │ │   └TfrmTemplateFields.ValidInsert
   │ ├TfrmTemplateEditor.ShowBoilerPlate
   │ └TfrmTemplateEditor.ShowGroupBoilerplate
   ├TfrmTemplateEditor.ShowGroupBoilerplate
   └TfrmTemplateEditor.pnlBoilerplateResize

Calls

Name Declaration Comments
TfrmTemplateEditor.CanClone function CanClone(const Node: TTreeNode): boolean; -
TTemplate.CanModify function CanModify: boolean; -
TfrmTemplateEditor.Clone function Clone(Node: TTreeNode): boolean; -
TTemplate.FullBoilerplate function FullBoilerplate: string; -
TTemplate.GetBoilerplate function GetBoilerplate: string; -
TTemplate.SetBoilerplate procedure SetBoilerplate(Value: string); -
TTemplate.SetGap procedure SetGap(const Value: integer); -
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -


Source

2224  procedure TfrmTemplateEditor.reBoilChange(Sender: TObject);
2225  var
2226    DoInfo, DoRefresh: boolean;
2227    TmpBPlate: string;
2228    Template: TTemplate;
2229    x: integer;
2230  
2231  begin
2232    if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
2233    begin
2234      Template := TTemplate(FCurTree.Selected.Data);
2235      TmpBPlate := reBoil.Lines.Text;
2236      if (Template.Boilerplate <> TmpBPlate) then
2237      begin
2238        if CanClone(FCurTree.Selected) then
2239        begin
2240          DoRefresh := Clone(FCurTree.Selected);
2241          if (DoRefresh) then
2242            Template := TTemplate(FCurTree.Selected.Data);
2243          if assigned(Template) and Template.CanModify then
2244          begin
2245            DoInfo := FALSE;
2246            if (Template.Boilerplate = '') or (TmpBPlate = '') then
2247              DoInfo := TRUE;
2248            Template.Boilerplate := TmpBPlate;
2249            TTemplate(FCurTree.Selected.Data).Gap := StrToIntDef(edtGap.Text, 0);
2250            if (Template.RealType = ttGroup) then
2251            begin
2252              reGroupBP.Text := Template.FullBoilerplate;
2253            end;
2254            if (DoRefresh) then
2255            begin
2256              tvShared.Invalidate;
2257              tvPersonal.Invalidate;
2258            end;
2259            if (DoInfo) then
2260            begin
2261              x := reBoil.SelStart;
2262              ShowInfo(FCurTree.Selected);
2263              reBoil.SelStart := x;
2264            end;
2265          end;
2266        end;
2267        btnApply.Enabled := TRUE;
2268  //        reBoil.Lines.Text := Template.Boilerplate;
2269      end;
2270    end;
2271  end;