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

Gtk2: hide statusbar panel with width of 0.part of issue #22362

Browse Source 
git-svn-id: trunk@37856 -
This commit is contained in:
zeljko 2012-07-03 10:50:11 +00:00
parent 4458799589
commit 24a032bd60
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -6091,6 +6091,10 @@ begin
//DebugLn(' CurPanel.Width="',CurPanel.Width,'"');
gtk_widget_set_usize(StatusPanelWidget, CurPanel.Width,
StatusPanelWidget^.allocation.height);
if CurPanel.Width > 0 then
gtk_widget_show(StatusPanelWidget)
else
gtk_widget_hide(StatusPanelWidget);
g_object_set_data(PGObject(StatusPanelWidget),'lcl_statusbar_id',
@AStatusBar.Panels[Index].ID);