ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 20:37:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Align top VFO frequency displays

Browse Source
This commit is contained in:
ew8bak
2026-04-28 22:13:25 +03:00
parent 5befe50d37
commit 37de08ec82
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MainForm.pas
+7
View File
@@ -1807,6 +1807,7 @@ const
var var
BlockH: Integer; BlockH: Integer;
BtnY: Integer; BtnY: Integer;
FreqTop: Integer;
SafeLeft: Integer; SafeLeft: Integer;
SafeRight: Integer; SafeRight: Integer;
GroupLeft: Integer; GroupLeft: Integer;
@@ -1869,8 +1870,11 @@ begin
PanelTopVfoGroup.SetBounds(GroupLeft, GroupTop, GroupW, BlockH); PanelTopVfoGroup.SetBounds(GroupLeft, GroupTop, GroupW, BlockH);
PanelTopVfoA.SetBounds(0, 0, TopVfoAW, BlockH); PanelTopVfoA.SetBounds(0, 0, TopVfoAW, BlockH);
PanelVfoA.SetBounds(0, 0, TopVfoAW, TOP_VFO_FREQ_H); PanelVfoA.SetBounds(0, 0, TopVfoAW, TOP_VFO_FREQ_H);
FreqTop := ((BtnTopVfoASelect.Top + BtnTopVfoASelect.Height +
BtnTopVfoATX.Top) div 2) - (TOP_VFO_FREQ_H div 2);
FreqDispA.SetBounds(FreqDispA.Left, FreqDispA.Top, FreqDispA.SetBounds(FreqDispA.Left, FreqDispA.Top,
FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H); FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H);
FreqDispA.Top := FreqTop;
BtnTopVfoASelect.Left := 0; BtnTopVfoASelect.Left := 0;
BtnTopVfoATX.Left := 0; BtnTopVfoATX.Left := 0;
@@ -1887,8 +1891,11 @@ begin
TRANSFER_RIGHT_GAP, TRANSFER_RIGHT_GAP,
0, TopVfoBW, BlockH); 0, TopVfoBW, BlockH);
PanelVfoB.SetBounds(0, 0, TopVfoBW, TOP_VFO_FREQ_H); PanelVfoB.SetBounds(0, 0, TopVfoBW, TOP_VFO_FREQ_H);
FreqTop := ((BtnTopVfoBSelect.Top + BtnTopVfoBSelect.Height +
BtnTopVfoBTX.Top) div 2) - (TOP_VFO_FREQ_H div 2);
FreqDispB.SetBounds(FreqDispB.Left, FreqDispB.Top, FreqDispB.SetBounds(FreqDispB.Left, FreqDispB.Top,
FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H); FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H);
FreqDispB.Top := FreqTop;
BtnTopVfoBSelect.Left := 0; BtnTopVfoBSelect.Left := 0;
BtnTopVfoBTX.Left := 0; BtnTopVfoBTX.Left := 0;
PanelTopVfoGroup.BringToFront; PanelTopVfoGroup.BringToFront;