Widen status bar panels for big screens

This commit is contained in:
Ansgar Becker
2020-12-28 17:35:17 +01:00
parent 82488373b0
commit d076c1958c

View File

@@ -2671,11 +2671,11 @@ begin
// Super intelligent calculation of status bar panel width
w1 := CalcPanelWidth(110, 10);
w2 := CalcPanelWidth(140, 10);
w3 := CalcPanelWidth(170, 15);
w4 := CalcPanelWidth(150, 15);
w2 := CalcPanelWidth(160, 10);
w3 := CalcPanelWidth(200, 15);
w4 := CalcPanelWidth(200, 15);
w5 := CalcPanelWidth(140, 10);
w6 := CalcPanelWidth(250, 20);
w6 := CalcPanelWidth(300, 20);
w0 := StatusBar.Width - w1 - w2 - w3 - w4 - w5 - w6;
StatusBar.Panels[0].Width := w0;
StatusBar.Panels[1].Width := w1;