Changeset 467


Ignore:
Timestamp:
Feb 22, 2023, 5:13:27 AM (2 years ago)
Author:
ataylor
Message:

Improve status bar height logic.

Location:
trunk/ae
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/ae/MainFormUnit.pas

    r461 r467  
    17201720  FirstPanelWidth: longint;
    17211721Begin
    1722   StatusBar.Height := Canvas.TextHeight( 'S' ) + Font.InternalLeading + 4;
     1722  StatusBar.Height := Canvas.TextHeight( 'S' ) + Font.InternalLeading + 2;
    17231723  if Assigned( Memo ) then
    17241724  begin
Note: See TracChangeset for help on using the changeset viewer.