Procedure

TTemplate.SetDialog

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetDialog(const Value: boolean);

Calls Hierarchy


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

Called-By Hierarchy


               TTemplate.SetDialog
TfrmTemplateEditor.cbxTypeChange┘ 

Calls

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

Called-By

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


Source

2114  procedure TTemplate.SetDialog(const Value: boolean);
2115  begin
2116    if(FDialog <> Value) and CanModify then
2117    begin
2118      with FBkup do
2119      begin
2120        if(not SavedDialog) and ValidID then
2121        begin
2122          BDialog := FDialog;
2123          SavedDialog := TRUE;
2124        end;
2125      end;
2126      FDialog := Value;
2127    end;
2128  end;