paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 15:38:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, gtk, fix LazReport designer sometimes presented as a thin vertical or horizontal band that runs from center of screen under gtk2/64-bit, related to issue #21634

Browse Source 
git-svn-id: trunk@40562 -
This commit is contained in:
jesus 2013-03-16 19:29:54 +00:00
parent bd059601c2
commit abc18517a2
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customform.inc
View File

@ -116,8 +116,12 @@ var
// for unknown reasons on some systems SM_*MAXIMIZED* system metrics // for unknown reasons on some systems SM_*MAXIMIZED* system metrics
// (tested xubuntu,64bits) return 0 or negative values, in this case // (tested xubuntu,64bits) return 0 or negative values, in this case
// a maximized window is expected to have at least WorkArea width/height. // a maximized window is expected to have at least WorkArea width/height.
// In the event WorkArea is also 0 width/height, at least //
// design sizes should be respected, see bug #21634 // Reproduced again under Debian Wheezy.
// mistery solved, it ocurrs under gtk2/64-bit, fixed at the place
// the checks doesn't hurt though
//
// see bug #21634
if NewWidth<=0 then if NewWidth<=0 then
NewWidth := Screen.WorkAreaWidth; NewWidth := Screen.WorkAreaWidth;
if NewHeight<=0 then if NewHeight<=0 then

3
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -9352,7 +9352,8 @@ var
Format: gint; Format: gint;
nitems: gulong; nitems: gulong;
bytes_after: gulong; bytes_after: gulong;
current_desktop: pguint; current_desktop: pclong; // format=32 returns an array of "c" longs which in 64-bit app
// will be 64-bit values that are padded in the upper 4 bytes
res : Integer; res : Integer;
begin begin
Result := -1; Result := -1;