Procedure

TTemplate.SetGap

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetGap(const Value: integer);

Calls Hierarchy


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

Called-By Hierarchy


                 TTemplate.SetGap
TfrmTemplateEditor.edtGapChange┤ 
TfrmTemplateEditor.reBoilChange┘ 

Calls

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

Called-By

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


Source

2130  procedure TTemplate.SetGap(const Value: integer);
2131  begin
2132    if(FGap <> Value) and CanModify then
2133    begin
2134      with FBkup do
2135      begin
2136        if(not SavedGap) and ValidID then
2137        begin
2138          BGap := FGap;
2139          SavedGap := TRUE;
2140        end;
2141      end;
2142      FGap := Value;
2143    end;
2144  end;