Procedure

TfrmTemplateEditor.edtGapChange

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure edtGapChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.edtGapChange
 ├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
 │ │ │ │ └GetTemplateBoilerplate
 │ │ │ ├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.SetGap
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TfrmTemplateEditor.UpdateApply
 │ └TTemplate.Changed
 │   ├TTemplate.ValidID
 │   └TTemplate.ItemIENs...
 └TfrmTemplateEditor.DisplayBoilerplate
   ├TfrmTemplateEditor.pnlBoilerplateResize
   ├TTemplate.GetBoilerplate...
   ├TTemplate.FullBoilerplate
   │ ├TTemplate.GetBoilerplate...
   │ ├TTemplate.ItemBoilerplate
   │ │ ├TTemplate.GetItems...
   │ │ ├TTemplate.GetTemplateType
   │ │ ├DlgText
   │ │ └TTemplate.DialogProperties
   │ │   ├TTemplate.GetBoilerplate...
   │ │   └TTemplate.DlgID
   │ ├DlgText
   │ └TTemplate.DialogProperties...
   ├TfrmTemplateEditor.UpdateInsertsDialogs
   │ ├TfrmTemplateObjects.UpdateStatus
   │ └TfrmTemplateFields.UpdateStatus
   │   └TfrmTemplateFields.ValidInsert
   ├TfrmTemplateEditor.ShowBoilerPlate
   └TfrmTemplateEditor.ShowGroupBoilerplate

Calls

Name Declaration Comments
TfrmTemplateEditor.CanClone function CanClone(const Node: TTreeNode): boolean; -
TTemplate.CanModify function CanModify: boolean; -
TfrmTemplateEditor.Clone function Clone(Node: TTreeNode): boolean; -
TfrmTemplateEditor.DisplayBoilerplate procedure DisplayBoilerplate(Node: TTreeNode); -
TTemplate.SetGap procedure SetGap(const Value: integer); -
TfrmTemplateEditor.UpdateApply procedure UpdateApply(Template: TTemplate); -


Source

1357  procedure TfrmTemplateEditor.edtGapChange(Sender: TObject);
1358  var
1359    DoRefresh: boolean;
1360    Template: TTemplate;
1361  
1362  begin
1363    if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
1364    begin
1365      if CanClone(FCurTree.Selected) then
1366      begin
1367        DoRefresh := Clone(FCurTree.Selected);
1368        Template := TTemplate(FCurTree.Selected.Data);
1369        if assigned(Template) and Template.CanModify then
1370        begin
1371          Template.Gap := StrToIntDef(edtGap.Text, 0);
1372          UpdateApply(Template);
1373          DisplayBoilerplate(FCurTree.Selected);
1374          if (DoRefresh) then
1375          begin
1376            tvShared.Invalidate;
1377            tvPersonal.Invalidate;
1378          end;
1379        end;
1380      end;
1381    end;
1382  end;