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

gtk2: fix DbgDumpPixmap for gtk2

Browse Source 
git-svn-id: trunk@12456 -
This commit is contained in:
paul 2007-10-14 09:33:34 +00:00
parent 99436e3732
commit 80a46ffa1d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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