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

gtk3: TGtk3Notebook implemented getPagesCount, do not send change events when page is deleted.

Browse Source 
git-svn-id: trunk@55102 -
This commit is contained in:
zeljko 2017-05-26 12:49:33 +00:00
parent 7e866d1fa3
commit 812fe391ea
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -364,6 +364,7 @@ type
function CreateWidget(const Params: TCreateParams):PGtkWidget; override;
public
function getClientRect: TRect; override;
function getPagesCount: integer;
procedure InsertPage(ACustomPage: TCustomPage; AIndex: Integer);
procedure MovePage(ACustomPage: TCustomPage; ANewIndex: Integer);
procedure RemovePage(AIndex: Integer);
@ -3965,7 +3966,13 @@ var
begin
if TGtk3Widget(Data).InUpdate then
exit;
{page is deleted}
DebugLn('GtkNotebookAfterSwitchPage ');
if TGtk3NoteBook(Data).getPagesCount < TCustomTabControl(TGtk3NoteBook(Data).LCLObject).PageCount then
begin
DebugLn('GtkNotebookAfterSwitchPage PageIsDeleted');
exit;
end;
FillChar(Mess{%H-}, SizeOf(Mess), 0);
Mess.Msg := LM_NOTIFY;
FillChar(NMHdr{%H-}, SizeOf(NMHdr), 0);
@ -4013,7 +4020,16 @@ var
begin
if TGtk3Widget(Data).InUpdate then
exit;
DebugLn('GtkNotebookSwitchPage Data ',dbgHex(PtrUInt(Data)),' Realized ',dbgs(Widget^.get_realized),' pageNum=',dbgs(pageNum));
{page is deleted}
if TGtk3NoteBook(Data).getPagesCount < TCustomTabControl(TGtk3NoteBook(Data).LCLObject).PageCount then
begin
DebugLn('GtkNotebookSwitchPage PageIsDeleted ');
exit;
end;
FillChar(Mess{%H-}, SizeOf(Mess), 0);
Mess.Msg := LM_NOTIFY;
FillChar(NMHdr{%H-}, SizeOf(NMHdr), 0);
@ -4091,6 +4107,13 @@ begin
// DebugLn('TGtk3NoteBook.getClientRect Result ',dbgs(Result));
end;
function TGtk3NoteBook.getPagesCount: integer;
begin
Result := 0;
if IsWidgetOk then
Result := PGtkNoteBook(GetContainerWidget)^.get_n_pages;
end;
procedure EnumerateChildren(ANotebook: PGtkNoteBook);
var
AList: PGList;