procedure TfrmMain.btnEndSessionClick(Sender: TObject);
begin
  CT.EndSession;

  Self.DrawCricketMatch;
end;

procedure TfrmMain.btnEndDayClick(Sender: TObject);
begin
  CT.EndDay;

  Self.DrawCricketMatch;
end;

procedure TfrmMain.btnFollowOnClick(Sender: TObject);
begin
  CT.FollowOn;

  Self.DrawCricketMatch;
end;

procedure TfrmMain.btnDeclareClick(Sender: TObject);
begin
  CT.Declare;

  Self.DrawCricketMatch;
end;

procedure TfrmMain.rseTestOversRemainingManualBiasBottomClick(Sender: TObject);
begin
  CT.ChangeTestOversRemainingManualBias(-1);

  Self.DrawCricketMatch;
end;

procedure TfrmMain.rseTestOversRemainingManualBiasTopClick(Sender: TObject);
begin
  CT.ChangeTestOversRemainingManualBias(+1);

  Self.DrawCricketMatch;
end;

Self.lblTestInningsExpectedOvers.Caption := 'Expected overs ' + FormatFloat('0.0', CT.fTestOversNeededForRunsMode);

procedure TfrmMain.rseTestOverTotalUnderCoefBottomButton(Sender: TObject);
begin
  TRxSpinEditCoef(Sender).Value := CT.GetTestOverUnderCoef(TRxSpinEditCoef(Sender).Value, false);
end;

procedure TfrmMain.rseTestOverTotalUnderCoefTopButton(Sender: TObject);
begin
  TRxSpinEditCoef(Sender).Value := CT.GetTestOverUnderCoef(TRxSpinEditCoef(Sender).Value, true);
end;

procedure TfrmMain.btnSetTestOverTotalClick(Sender: TObject);
begin
  CT.SetTestOverTotal(Self.rseTestOverTotal.Value, Self.rseTestOverTotalUnderCoef.Value, -1);
  Self.DrawCricketMatch;
end;

procedure TfrmMain._ChangeParameterWithLinesToBePreserved(Sender: TObject);
begin
  CT.ChangeParameterWithLinesToBePreserved(TRxSpinEdit(Sender).Value, TParameter(TRxSpinEdit(Sender).Tag));

  Self.DrawCricketMatch;
end;