Procedure

TfrmTemplateEditor.cbClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TfrmTemplateEditor

Declaration

procedure cbClick(Sender: TCheckBox; Index: integer);

Calls Hierarchy


TfrmTemplateEditor.cbClick
 ├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.SetDisplayOnly
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetFirstLine
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetOneItemOnly
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetHideDlgItems
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetHideItems
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetIndentItems
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetLock
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 └TfrmTemplateEditor.UpdateApply
   └TTemplate.Changed
     ├TTemplate.ValidID
     └TTemplate.ItemIENs...

Called-By Hierarchy


              TfrmTemplateEditor.cbClick
 TfrmTemplateEditor.cbDisplayOnlyClick┤ 
   TfrmTemplateEditor.cbFirstLineClick┤ 
 TfrmTemplateEditor.cbOneItemOnlyClick┤ 
TfrmTemplateEditor.cbHideDlgItemsClick┤ 
   TfrmTemplateEditor.cbHideItemsClick┤ 
      TfrmTemplateEditor.cbIndentClick┤ 
        TfrmTemplateEditor.cbLockClick┘ 

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.SetDisplayOnly procedure SetDisplayOnly(const Value: boolean); -
TTemplate.SetFirstLine procedure SetFirstLine(const Value: boolean); -
TTemplate.SetHideDlgItems procedure SetHideDlgItems(const Value: boolean); -
TTemplate.SetHideItems procedure SetHideItems(const Value: boolean); -
TTemplate.SetIndentItems procedure SetIndentItems(const Value: boolean); -
TTemplate.SetLock procedure SetLock(const Value: boolean); -
TTemplate.SetOneItemOnly procedure SetOneItemOnly(const Value: boolean); -
TfrmTemplateEditor.UpdateApply procedure UpdateApply(Template: TTemplate); -

Called-By

Name Declaration Comments
TfrmTemplateEditor.cbDisplayOnlyClick procedure cbDisplayOnlyClick(Sender: TObject); -
TfrmTemplateEditor.cbFirstLineClick procedure cbFirstLineClick(Sender: TObject); -
TfrmTemplateEditor.cbHideDlgItemsClick procedure cbHideDlgItemsClick(Sender: TObject); -
TfrmTemplateEditor.cbHideItemsClick procedure cbHideItemsClick(Sender: TObject); -
TfrmTemplateEditor.cbIndentClick procedure cbIndentClick(Sender: TObject); -
TfrmTemplateEditor.cbLockClick procedure cbLockClick(Sender: TObject); -
TfrmTemplateEditor.cbOneItemOnlyClick procedure cbOneItemOnlyClick(Sender: TObject); -


Source

3406  procedure TfrmTemplateEditor.cbClick(Sender: TCheckBox; Index: integer);
3407  var
3408    Template: TTemplate;
3409  
3410  begin
3411    if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
3412    begin
3413      if CanClone(FCurTree.Selected) then
3414      begin
3415        Clone(FCurTree.Selected);
3416        Template := TTemplate(FCurTree.Selected.Data);
3417        if assigned(Template) and Template.CanModify then
3418        begin
3419          case Index of
3420            BPDisplayOnlyFld: Template.DisplayOnly := Sender.Checked;
3421            BPFirstLineFld: Template.FirstLine := Sender.Checked;
3422            BPOneItemOnlyFld: Template.OneItemOnly := Sender.Checked;
3423            BPHideDlgItemsFld: Template.HideDlgItems := Sender.Checked;
3424            BPHideItemsFld: Template.HideItems := Sender.Checked;
3425            BPIndentFld: Template.IndentItems := Sender.Checked;
3426            BPLockFld: Template.Lock := Sender.Checked;
3427          end;
3428          UpdateApply(Template);
3429        end;
3430      end;
3431    end;
3432  end;