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

LCL-GTK3: Fix PageControl with some tabs hidden. Issue #39010, patch by Anton Kavalenka.

Browse Source 
git-svn-id: trunk@65253 -
This commit is contained in:
juha 2021-06-16 21:52:18 +00:00
parent caf1ee88ad
commit 13f7dbd914
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -2597,6 +2597,7 @@ procedure TGtk3Widget.DestroyWidget;
begin
if IsValidHandle and FOwnWidget then
begin
fOwnWidget:=false;
DbgOut(#10'destroying '+Classname+' ... ');
FWidget^.destroy_;
DbgOut(Classname+' destroyed.'+#10);
@ -4500,12 +4501,12 @@ begin
if TGtk3Widget(Data).InUpdate then
exit;
{page is deleted}
DebugLn('GtkNotebookAfterSwitchPage ');
{ DebugLn('GtkNotebookAfterSwitchPage ');
if TGtk3NoteBook(Data).getPagesCount < TCustomTabControl(TGtk3NoteBook(Data).LCLObject).PageCount then
begin
DebugLn('GtkNotebookAfterSwitchPage PageIsDeleted');
exit;
end;
end;}
FillChar(Mess{%H-}, SizeOf(Mess), 0);
Mess.Msg := LM_NOTIFY;
FillChar(NMHdr{%H-}, SizeOf(NMHdr), 0);
@ -4551,6 +4552,7 @@ procedure GtkNotebookSwitchPage(widget: PGtkWidget; {%H-}page: PGtkWidget; pagen
var
Mess: TLMNotify;
NMHdr: tagNMHDR;
c1,c2:integer;
begin
if TGtk3Widget(Data).InUpdate then
exit;
@ -4558,11 +4560,13 @@ begin
DebugLn('GtkNotebookSwitchPage Data ',dbgHex({%H-}PtrUInt(Data)),' Realized ',dbgs(Widget^.get_realized),' pageNum=',dbgs(pageNum));
{page is deleted}
if TGtk3NoteBook(Data).getPagesCount < TCustomTabControl(TGtk3NoteBook(Data).LCLObject).PageCount then
{ c1:=TGtk3NoteBook(Data).getPagesCount;
c2:=TCustomTabControl(TGtk3NoteBook(Data).LCLObject).PageCount;
if c1 < c2 then
begin
DebugLn('GtkNotebookSwitchPage PageIsDeleted ');
exit;
end;
end;}
FillChar(Mess{%H-}, SizeOf(Mess), 0);
Mess.Msg := LM_NOTIFY;