Procedure

TfrmOptionsSurrogate.btnRemoveClick

Module

fOptionsSurrogate

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsSurrogate

Declaration

procedure btnRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsSurrogate.btnRemoveClick
 └TfrmOptionsSurrogate.LabelInfo

Calls

Name Declaration Comments
TfrmOptionsSurrogate.LabelInfo procedure LabelInfo; -


Source

187   procedure TfrmOptionsSurrogate.btnRemoveClick(Sender: TObject);
188   begin
189     cboSurrogate.ItemIndex := -1;
190     cboSurrogate.Text := '';
191     with TempSurrogate do
192     begin
193       IEN := -1;
194       Name := '';
195       Start := 0;
196       Stop := 0;
197     end;
198     LabelInfo;
199   end;