Changeset 468 for trunk/NewView/MainForm.pas

Timestamp:

Feb 22, 2023, 5:16:16 AM (2 years ago)

Author:

ataylor

Message:

Improve status bar height logic.

File:

• trunk/NewView/MainForm.pas (modified) (1 diff)

trunk/NewView/MainForm.pas

@@ -4386 +4386 @@
   StatusPanel.Left:= 0;
   StatusPanel.Width:= ClientWidth div 2 - 2;
-  StatusPanel.Height := TextHeight + Font.InternalLeading + 4;
+  StatusPanel.Height := TextHeight + Font.InternalLeading + 2;
 
   ProgressPanel.Left:= ClientWidth div 2 + 2;
   ProgressPanel.Width:= ClientWidth - ProgressPanel.Left;
-  ProgressPanel.Height := TextHeight + Font.InternalLeading + 4;
+  ProgressPanel.Height := TextHeight + Font.InternalLeading + 2;
 
   Notebook.Bottom := StatusPanel.Height + 3;