Procedure

TfrmTemplateEditor.edtCOMParamChange

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure edtCOMParamChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.edtCOMParamChange
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 ├TTemplate.SetCOMParam
 │ ├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.SetCOMParam procedure SetCOMParam(const Value: string); -
TfrmTemplateEditor.UpdateApply procedure UpdateApply(Template: TTemplate); -


Source

4115  procedure TfrmTemplateEditor.edtCOMParamChange(Sender: TObject);
4116  var
4117    Template: TTemplate;
4118  
4119  begin
4120    if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
4121      FCanDoCOMObjects and (FCurTree = tvShared)) then
4122    begin
4123      Template := TTemplate(FCurTree.Selected.Data);
4124      if assigned(Template) and Template.CanModify then
4125      begin
4126        Template.COMParam := edtCOMParam.Text;
4127        UpdateApply(Template);
4128      end;
4129    end;
4130  end;