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

gtk2: fix DbgDumpBitmap for gtk2

Browse Source 
git-svn-id: trunk@12457 -
This commit is contained in:
paul 2007-10-14 09:35:08 +00:00
parent 80a46ffa1d
commit 3473b94d76
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkdebug.pp
View File

@ -134,8 +134,14 @@ begin
then begin
w := 0; h:= 0; d := 0;
end
else gdk_window_get_geometry(ABitmap, nil,nil,@w,@h,@d);
else
{$ifdef gtk1}
gdk_window_get_geometry(ABitmap, nil,nil,@w,@h,@d);
{$else}
gdk_drawable_get_size(ABitmap, @w, @h);
d := gdk_drawable_get_depth(ABitmap);
{$endif}
if AWidth = -1 then AWidth := W;
if AHeight = -1 then AHeight := H;
Info^.Width := AWidth;