small fixes

ok2cqr · Feb 3, 2022 · fba4d50 · fba4d50
1 parent 1a64ec9
commit fba4d50
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/src/fRotControl.pas b/src/fRotControl.pas
@@ -103,6 +103,7 @@ procedure TfrmRotControl.gbAzimuthClick(Sender: TObject);
 begin
   edtAzimuth.Text:=lblAzimuth.Caption;
   edtAzimuth.Font:=lblAzimuth.Font;
+  edtAzimuth.Color:=clYellow;
   edtAzimuth.Visible:=true;
   edtAzimuth.SetFocus;
   edtAzimuth.SelStart := Length(edtAzimuth.Text);

diff --git a/src/fTRXControl.pas b/src/fTRXControl.pas
@@ -765,6 +765,7 @@ procedure TfrmTRXControl.gbFreqClick(Sender: TObject);
 begin
   edtFreqInput.Text:=lblFreq.Caption;
   edtFreqInput.Font:=lblFreq.Font;
+  edtFreqInput.Color:=clYellow;
   edtFreqInput.Visible:=True;
   edtFreqInput.SetFocus;
   edtFreqInput.SelStart := Length(edtFreqInput.Text);
@@ -1118,6 +1119,7 @@ procedure TfrmTRXControl.edtFreqInputMouseWheel(Sender: TObject;
     try
       f:= StrToFloat(s);
       f:=f+m;
+      if f<0 then f:=0;
       edtFreqInput.Text:=FormatFloat(empty_freq+';;',f);
       if Assigned(radio) then
                              radio.SetFreqKHz(f*1000);