Procedure

TfrmTemplateEditor.cbxCOMObjChange

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure cbxCOMObjChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.cbxCOMObjChange
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 ├TTemplate.SetCOMObject
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 └TfrmTemplateEditor.UpdateApply
   └TTemplate.Changed
     ├TTemplate.ValidID
     └TTemplate.ItemIENs
       └TTemplate.GetItems
         └ExpandTemplate
           ├TTemplate.GetChildren
           ├GetTemplateChildren
           ├AddTemplate
           │ ├TTemplate.Create
           │ │ └TTemplate.ReminderDialogIEN
           │ └TTemplate.AddChild
           │   └TTemplate.GetItems...
           └TTemplate.ItemIENs...

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.SetCOMObject procedure SetCOMObject(const Value: integer); -
TfrmTemplateEditor.UpdateApply procedure UpdateApply(Template: TTemplate); -


Source

4095  procedure TfrmTemplateEditor.cbxCOMObjChange(Sender: TObject);
4096  var
4097    Template: TTemplate;
4098  
4099  begin
4100    if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
4101      FCanDoCOMObjects and (FCurTree = tvShared)) then
4102    begin
4103      Template := TTemplate(FCurTree.Selected.Data);
4104      if assigned(Template) and Template.CanModify then
4105      begin
4106        if cbxCOMObj.ItemIndex < 0 then
4107          Template.COMObject := 0
4108        else
4109          Template.COMObject := cbxCOMObj.ItemID;
4110        UpdateApply(Template);
4111      end;
4112    end;
4113  end;