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

Gtk: fixed bug in TGtkWSCustomNotebook.GetTabIndexAtPos(), it should check if tabwidget is mapped.fixes #15472

Browse Source 
git-svn-id: trunk@24209 -
This commit is contained in:
zeljko 2010-03-25 10:37:23 +00:00
parent a5ba77a96e
commit d6a4a9f651
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -606,11 +606,14 @@ begin
{$ENDIF} {$ENDIF}
// go through all tabs // go through all tabs
Count:=g_list_length(NoteBookWidget^.Children); Count:=g_list_length(NoteBookWidget^.Children);
for i:=0 to Count-1 do begin for i:=0 to Count-1 do
begin
PageWidget:=gtk_notebook_get_nth_page(NoteBookWidget,i); PageWidget:=gtk_notebook_get_nth_page(NoteBookWidget,i);
if PageWidget<>nil then begin if PageWidget<>nil then
begin
TabWidget:=gtk_notebook_get_tab_label(NoteBookWidget, PageWidget); TabWidget:=gtk_notebook_get_tab_label(NoteBookWidget, PageWidget);
if TabWidget<>nil then begin if (TabWidget<>nil) and GTK_WIDGET_MAPPED(TabWidget) then
begin
// test if position is in tabwidget // test if position is in tabwidget
if (TabWidget^.Allocation.X<=NoteBookPos.X) if (TabWidget^.Allocation.X<=NoteBookPos.X)
and (TabWidget^.Allocation.Y<=NoteBookPos.Y) and (TabWidget^.Allocation.Y<=NoteBookPos.Y)