paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Improves status bar default size and looks

Browse Source 
git-svn-id: trunk@49634 -
This commit is contained in:
sekelsenmat 2015-08-10 19:03:48 +00:00
parent b056d5b455
commit f1a6111db4
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -3208,7 +3208,7 @@ begin
FillChar(nr, sizeof(nr), 0);
r := lclClientFrame();
nr.size.height := STATUSBAR_DEFAULT_HEIGHT;
nr.size.height := StatusBar.Height+5; // it gets closer to filling the whole area with +5 no idea why
if StatusBar.SimplePanel then
begin

9
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -29,6 +29,8 @@ type
class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); override;
class procedure Update(const AStatusBar: TStatusBar); override;
//
class procedure GetPreferredSize(const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); override;
end;
{ TCocoaWSTabSheet }
@ -260,6 +262,13 @@ begin
end;
class procedure TCocoaWSStatusBar.GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);
begin
PreferredWidth := 0;
PreferredHeight := STATUSBAR_DEFAULT_HEIGHT;
end;
{ TCocoaWSCustomPage }
class function TCocoaWSCustomPage.GetCocoaTabPageFromHandle(AHandle: HWND): TCocoaTabPage;