Procedure

TfrmGAF.edtScoreChange

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGAF

Declaration

procedure edtScoreChange(Sender: TObject);


Source

130   procedure TfrmGAF.edtScoreChange(Sender: TObject);
131   var
132     i: integer;
133   
134   begin
135     inherited;
136     i := StrToIntDef(edtScore.Text,udScore.Min);
137     if(i < udScore.Min) or (i > udScore.Max) then
138       i := udScore.Min;
139     udScore.Position := i;
140     edtScore.Text := IntToStr(i);
141     edtScore.SelStart := length(edtScore.Text);
142   end;