paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed wrong result from GetTabRect. fixes #16459

Browse Source 
git-svn-id: trunk@26488 -
This commit is contained in:
zeljko 2010-07-06 14:54:52 +00:00
parent 0170b10fea
commit 02e440173b
1 changed files with 7 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -598,34 +598,19 @@ var
NoteBookWidget: PGtkNotebook;
TabWidget: PGtkWidget;
PageWidget: PGtkWidget;
Window: PGdkWindow;
WindowOrg,ClientOrg: TPoint;
XOffset, YOffset: Integer;
Count: guint;
begin
Result := inherited;
NoteBookWidget:=PGtkNotebook(ANotebook.Handle);
if (NotebookWidget=nil) then exit;
//DebugLn(['TGtkWSCustomNotebook.GetTabIndexAtPos ',GetWidgetDebugReport(PGtkWidget(NotebookWidget))]);
Window := GetControlWindow(NoteBookWidget);
gdk_window_get_origin(Window,@WindowOrg.X,@WindowOrg.Y);
ClientOrg:=GetWidgetClientOrigin(PGtkWidget(NotebookWidget));
XOffset := (ClientOrg.X-WindowOrg.X);
YOffset := (ClientOrg.Y-WindowOrg.Y);
// go through all tabs
Count:=g_list_length(NoteBookWidget^.Children);
PageWidget:=gtk_notebook_get_nth_page(NoteBookWidget, AIndex);
if (PageWidget<>nil) and (AIndex < Count) then begin
TabWidget:=gtk_notebook_get_tab_label(NoteBookWidget, PageWidget);
if TabWidget<>nil then begin
Result.Top := TabWidget^.Allocation.Y - YOffset;
Result.Bottom := TabWidget^.Allocation.Y - YOffset + TabWidget^.Allocation.Height;
Result.Left := TabWidget^.Allocation.X - XOffset;
Result.right := TabWidget^.Allocation.X - XOffset + TabWidget^.Allocation.Width;
exit;
end;
Count := g_list_length(NoteBookWidget^.Children);
PageWidget := gtk_notebook_get_nth_page(NoteBookWidget, AIndex);
if (PageWidget<>nil) and (AIndex < Count) then
begin
TabWidget := gtk_notebook_get_tab_label(NoteBookWidget, PageWidget);
if TabWidget <> nil then
Result := RectFromGdkRect(TabWidget^.allocation);
end;
end;