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

Gtk2: Gtk2WSCustomPanel respect TCustomPanel.Visible property when creating handle. issue #23940

Browse Source 
git-svn-id: trunk@40371 -
This commit is contained in:
zeljko 2013-02-23 13:51:00 +00:00
parent a8b657b971
commit 35b60c2c6c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -241,6 +241,12 @@ begin
//debugln(['TGtk2WSCustomPanel.CreateHandle Frame^.allocation=',dbgs(Frame^.allocation),' WidgetClient^.allocation=',dbgs(WidgetClient^.allocation)]); //debugln(['TGtk2WSCustomPanel.CreateHandle Frame^.allocation=',dbgs(Frame^.allocation),' WidgetClient^.allocation=',dbgs(WidgetClient^.allocation)]);
Set_RC_Name(AWinControl, Frame); Set_RC_Name(AWinControl, Frame);
// issue #23940. Hide panel if we are not visible, but before setting callbacks.
// so it won't trigger unnecessary events to LCL.
if not AWinControl.Visible and not (csDesigning in AWinControl.ComponentState) then
gtk_widget_hide(Frame);
SetCallbacks(Frame, WidgetInfo); SetCallbacks(Frame, WidgetInfo);
Result := TLCLIntfHandle({%H-}PtrUInt(Frame)); Result := TLCLIntfHandle({%H-}PtrUInt(Frame));