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

prefereneces fix. Help image refresh. ToDO: help text fix

Browse Source
This commit is contained in:
OH1KH 2022-09-12 19:11:25 +03:00
parent 35b878af51
commit a29e38cbdc
6 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
help/img/h10.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 118 KiB

After

Width:  |  Height:  |  Size: 124 KiB

BIN
help/img/h11.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 48 KiB

After

Width:  |  Height:  |  Size: 78 KiB

BIN
help/img/h95.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 99 KiB

After

Width:  |  Height:  |  Size: 102 KiB

BIN
help/img/h9b.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 43 KiB

After

Width:  |  Height:  |  Size: 52 KiB

9
src/fPreferences.lfm
View File

@ -56,7 +56,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = ' Internet connection '
ClientHeight = 111
ClientHeight = 127
ClientWidth = 339
TabOrder = 0
object lblintProxy: TLabel
@ -248,7 +248,7 @@ object frmPreferences: TfrmPreferences
Width = 626
BorderSpacing.Top = 9
Caption = ' Offsets and colors'
ClientHeight = 185
ClientHeight = 201
ClientWidth = 624
TabOrder = 7
object lblUtc: TLabel
@ -2142,7 +2142,7 @@ object frmPreferences: TfrmPreferences
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = ' rigctld '
ClientHeight = 86
ClientHeight = 70
ClientWidth = 655
TabOrder = 0
object lblRigctdPath: TLabel
@ -2400,7 +2400,7 @@ object frmPreferences: TfrmPreferences
Width = 511
BorderSpacing.Top = 3
Caption = 'Radio one serial parameters'
ClientHeight = 146
ClientHeight = 130
ClientWidth = 509
TabOrder = 11
object lblSerialRSpd: TLabel
@ -3875,7 +3875,6 @@ object frmPreferences: TfrmPreferences
ClientHeight = 681
ClientWidth = 873
OnExit = tabModesExit
OnShow = tabModesEnter
object grpUsrDigitalModes: TGroupBox
AnchorSideLeft.Control = tabModes
AnchorSideTop.Control = grbRigBandWidths

20
src/fPreferences.pas
View File

@ -1075,7 +1075,6 @@ type
procedure tabCWInterfaceContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure tabCWInterfaceExit(Sender: TObject);
procedure tabModesEnter(Sender: TObject);
procedure tabModesExit(Sender: TObject);
procedure tabTRXcontrolEnter(Sender: TObject);
procedure TRXParamsChange(Sender: TObject);
@ -2673,23 +2672,16 @@ end;
procedure TfrmPreferences.tabCWInterfaceExit(Sender: TObject);
begin
SaveCWif(CWifLoaded);
end;
procedure TfrmPreferences.tabModesEnter(Sender: TObject);
begin
sleep(100); //needed sometimes !?!?! when entering directly to this tab
Application.ProcessMessages; //otherwise names are missing from selector
LoadBandW(cmbRadioModes.ItemIndex);
cmbRadioModes.Items:=frmTRXControl.cmbRig.Items; //names to modes tab (needed when entering direct to modes tab)
cmbRadioModes.ItemIndex:= cmbRadioNr.ItemIndex; //select rig in use
SaveCWif(CWifLoaded); //save currently open CW settings
cmbRadioNr.ItemIndex:=cmbCWRadio.ItemIndex;
cmbRadioModes.ItemIndex:= cmbRadioNr.ItemIndex; //select rig in use
end;
procedure TfrmPreferences.tabModesExit(Sender: TObject);
begin
if cmbRadioModes.ItemIndex<1 then cmbRadioModes.ItemIndex:=1;
SaveBandW(BandWNrLoaded);
SaveBandW(BandWNrLoaded); //save currently loaded modes
cmbRadioNr.ItemIndex:=cmbRadioModes.ItemIndex; //select rig in use
cmbCWRadio.ItemIndex:=cmbRadioNr.ItemIndex;
end;
procedure TfrmPreferences.tabTRXcontrolEnter(Sender: TObject);