Procedure

TfrmTemplateFieldEditor.cbExcludeClick

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure cbExcludeClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateFieldEditor.cbExcludeClick
 ├TTemplateField.SetSepLines
 │ └TTemplateField.CanModify
 │   └LockTemplateField
 └TfrmTemplateFieldEditor.UpdateControls
   ├TTemplateField.GetRequired
   ├SetY
   │ └SetLbl
   ├SetLbl
   ├TfrmTemplateFieldEditor.SyncItems
   │ └StripEmbedded
   └TfrmTemplateFieldEditor.FormResize

Calls

Name Declaration Comments
TTemplateField.SetSepLines procedure SetSepLines(const Value: boolean); -
TfrmTemplateFieldEditor.UpdateControls procedure UpdateControls; -


Source

1300  procedure TfrmTemplateFieldEditor.cbExcludeClick(Sender: TObject);
1301  begin
1302    if((not FUpdating) and (assigned(FFld))) then
1303    begin
1304      FFld.SepLines := cbExclude.Checked;
1305      cbExclude.Checked := FFld.SepLines;
1306      UpdateControls;
1307    end;
1308  end;