paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 00:37:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: do not really hide tab if tabvisible=false during design. fixes #12947

Browse Source 
git-svn-id: trunk@25748 -
This commit is contained in:
zeljko 2010-05-29 09:15:15 +00:00
parent 70a56f036c
commit 7c6fee244d
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkwsextctrls.pp
View File

@ -259,7 +259,8 @@ begin
{$ifdef gtk2} {$ifdef gtk2}
{we must update our icon (if exists) otherwise it will be updated only {we must update our icon (if exists) otherwise it will be updated only
when our tab reach focus} when our tab reach focus}
if not ACustomPage.TabVisible if not (csDesigning in ACustomPage.ComponentState)
and not ACustomPage.TabVisible
or not ACustomPage.HandleAllocated or not ACustomPage.HandleAllocated
or not Assigned(ACustomPage.Parent) or not Assigned(ACustomPage.Parent)
then then
@ -288,7 +289,14 @@ end;
class procedure TGtkWSCustomPage.ShowHide(const AWinControl: TWinControl); class procedure TGtkWSCustomPage.ShowHide(const AWinControl: TWinControl);
begin begin
TGtkWidgetSet(WidgetSet).SetVisible(AWinControl, TCustomPage(AWinControl).TabVisible); {$ifdef gtk2}
if (csDesigning in AWinControl.ComponentState) then
TGtkWidgetSet(WidgetSet).SetVisible(AWinControl,
AWinControl.HandleObjectShouldBeVisible)
else
{$endif}
TGtkWidgetSet(WidgetSet).SetVisible(AWinControl,
TCustomPage(AWinControl).TabVisible);
end; end;
{ TGtkWSCustomNotebook } { TGtkWSCustomNotebook }