Procedure

TTemplate.SetCOMParam

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetCOMParam(const Value: string);

Calls Hierarchy


TTemplate.SetCOMParam
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 └TTemplate.ValidID

Called-By Hierarchy


                 TTemplate.SetCOMParam
TfrmTemplateEditor.edtCOMParamChange┘ 

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.edtCOMParamChange procedure edtCOMParamChange(Sender: TObject); -


Source

2639  procedure TTemplate.SetCOMParam(const Value: string);
2640  begin
2641    if(FCOMParam <> Value) and CanModify then
2642    begin
2643      with FBkup do
2644      begin
2645        if(not SavedCOMParam) and ValidID then
2646        begin
2647          BCOMParam := FCOMParam;
2648          SavedCOMParam := TRUE;
2649        end;
2650      end;
2651      FCOMParam := Value;
2652    end;
2653  end;