Procedure

TTemplate.SetActive

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetActive(const Value: boolean);

Calls Hierarchy


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

Called-By Hierarchy


               TTemplate.SetActive
TfrmTemplateEditor.cbActiveClick┘ 

Calls

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

Called-By

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


Source

2082  procedure TTemplate.SetActive(const Value: boolean);
2083  begin
2084    if(FActive <> Value) and CanModify then
2085    begin
2086      with FBkup do
2087      begin
2088        if(not SavedActive) and ValidID then
2089        begin
2090          BActive := FActive;
2091          SavedActive := TRUE;
2092        end;
2093      end;
2094      FActive := Value;
2095    end;
2096  end;