diff --git a/MainForm.pas b/MainForm.pas index ba64f06..26e322f 100644 --- a/MainForm.pas +++ b/MainForm.pas @@ -1807,6 +1807,7 @@ const var BlockH: Integer; BtnY: Integer; + FreqTop: Integer; SafeLeft: Integer; SafeRight: Integer; GroupLeft: Integer; @@ -1869,8 +1870,11 @@ begin PanelTopVfoGroup.SetBounds(GroupLeft, GroupTop, GroupW, BlockH); PanelTopVfoA.SetBounds(0, 0, TopVfoAW, BlockH); 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, FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H); + FreqDispA.Top := FreqTop; BtnTopVfoASelect.Left := 0; BtnTopVfoATX.Left := 0; @@ -1887,8 +1891,11 @@ begin TRANSFER_RIGHT_GAP, 0, TopVfoBW, BlockH); 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, FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H); + FreqDispB.Top := FreqTop; BtnTopVfoBSelect.Left := 0; BtnTopVfoBTX.Left := 0; PanelTopVfoGroup.BringToFront;