paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 05:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: GTK2: Fixed set TPanel visible to false on non visual TabSheet doesn't work. Issue #32593

Browse Source 
git-svn-id: trunk@56140 -
This commit is contained in:
michl 2017-10-21 09:00:53 +00:00
parent f5831e3b32
commit e34b72f9d9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2wsextctrls.pp
View File

@ -238,7 +238,7 @@ begin
// issue #23940. Hide panel if we are not visible, but before setting callbacks. // issue #23940. Hide panel if we are not visible, but before setting callbacks.
// so it won't trigger unnecessary events to LCL. // so it won't trigger unnecessary events to LCL.
if not AWinControl.Visible and not (csDesigning in AWinControl.ComponentState) then if not AWinControl.HandleObjectShouldBeVisible and not (csDesigning in AWinControl.ComponentState) then
gtk_widget_hide(Frame); gtk_widget_hide(Frame);
SetCallbacks(Frame, WidgetInfo); SetCallbacks(Frame, WidgetInfo);

2
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -2289,7 +2289,7 @@ begin
g_object_set_data(PGObject(FrameBox), 'widgetinfo', WidgetInfo); g_object_set_data(PGObject(FrameBox), 'widgetinfo', WidgetInfo);
gtk_widget_show(TempWidget); gtk_widget_show(TempWidget);
gtk_widget_show(P); gtk_widget_show(P);
if AWinControl.Visible then if AWinControl.HandleObjectShouldBeVisible then
gtk_widget_show(FrameBox); gtk_widget_show(FrameBox);
Result := TLCLIntfHandle({%H-}PtrUInt(FrameBox)); Result := TLCLIntfHandle({%H-}PtrUInt(FrameBox));