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

gtk2: remove unneeded code

Browse Source 
git-svn-id: trunk@51672 -
This commit is contained in:
ondrej 2016-02-20 11:02:51 +00:00
parent a45740f68f
commit 365d820d9e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6153,12 +6153,10 @@ begin
and GTK_WIDGET_VISIBLE(Widget) // Gtk2 returns invalid origin/frame for invisible widgets
then
begin
gdk_window_get_origin(Widget^.window, @ARect.Left, @ARect.Top);
gdk_window_get_size(Widget^.window, @ARect.Right, @ARect.Bottom);
P := GetWidgetOrigin(Widget);
gdk_window_get_frame_extents(Widget^.window, @GRect);
ARect := Bounds(P.X,P.Y,GRect.width,GRect.height);
// writeln('Frame extents are: ',dbgs(R),' ARECT=',dbgs(AREct));
// writeln('Frame extents are: ',dbgs(R),' ARECT=',dbgs(ARect));
Result := 1; // success
end else
begin