hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 02:17:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed winkey poti speed select

Browse Source
This commit is contained in:
OH1KH 2022-10-20 14:22:18 +03:00
parent 8def318afa
commit 25a8ec3f39
4 changed files with 1351 additions and 1812 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2341
src/fNewQSO.lfm
View File

File diff suppressed because it is too large Load Diff

17
src/fNewQSO.pas
View File

@ -5468,6 +5468,7 @@ var
tmp : String;
speed : Integer = 0;
i : Integer = 0;
n : String;
ShowMain : Boolean = False;
begin
if key = VK_ESCAPE then
@ -5560,13 +5561,17 @@ begin
end
end;
n:=IntToStr(frmTRXControl.cmbRig.ItemIndex);
if (key = 33) and (not dbgrdQSOBefore.Focused) then//pgup
begin
if Assigned(CWint) then
begin
speed := CWint.GetSpeed+2;
CWint.SetSpeed(speed);
sbNewQSO.Panels[4].Text := IntToStr(speed)+'WPM';
if (cqrini.ReadInteger('CW'+n,'Type',0)=1) and cqrini.ReadBool('CW'+n,'PotSpeed',False) then
sbNewQSO.Panels[4].Text := 'PotWPM'
else
sbNewQSO.Panels[4].Text := IntToStr(speed) + 'WPM';
if (frmCWType <> nil ) then frmCWType.edtSpeed.Value := speed;
end
end;
@ -5577,7 +5582,10 @@ begin
begin
speed := CWint.GetSpeed-2;
CWint.SetSpeed(speed);
sbNewQSO.Panels[4].Text := IntToStr(speed)+'WPM';
if (cqrini.ReadInteger('CW'+n,'Type',0)=1) and cqrini.ReadBool('CW'+n,'PotSpeed',False) then
sbNewQSO.Panels[4].Text := 'PotWPM'
else
sbNewQSO.Panels[4].Text := IntToStr(speed) + 'WPM';
if (frmCWType <> nil ) then frmCWType.edtSpeed.Value := speed;
end
end;
@ -7218,7 +7226,10 @@ begin
CWint.Open;
if UseSpeed>0 then CWint.SetSpeed(UseSpeed);
end;
sbNewQSO.Panels[4].Text := IntToStr(UseSpeed) + 'WPM';
if (cqrini.ReadInteger('CW'+n,'Type',0)=1) and cqrini.ReadBool('CW'+n,'PotSpeed',False) then
sbNewQSO.Panels[4].Text := 'PotWPM'
else
sbNewQSO.Panels[4].Text := IntToStr(UseSpeed) + 'WPM';
if frmCWType.Showing then frmCWType.edtSpeed.Value := UseSpeed;
end;

802
src/fPreferences.lfm
View File

File diff suppressed because it is too large Load Diff

3
src/uCWKeying.pas
View File

@ -152,7 +152,7 @@ type
implementation
uses fTRXControl;
uses fTRXControl, uMyIni;
constructor TCWWinKeyerUSB.Create;
begin
@ -226,6 +226,7 @@ end;
procedure TCWWinKeyerUSB.SetSpeed(speed : Word);
begin
if fDebugMode then Writeln('Speed: ',speed);
if cqrini.ReadBool('CW'+IntToStr(frmTRXControl.cmbRig.ItemIndex),'PotSpeed',False) then exit;
fSpeed := speed;
ser.Flush;
ser.SendByte(2);