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

Merged revision(s) 51659 #3fca9d4689 from trunk:

Browse Source 
gtk2: fix hints clipped by 200x200 rect on KDE, Issue #28973
........

git-svn-id: branches/fixes_1_6@51994 -
This commit is contained in:
maxim 2016-03-19 13:27:45 +00:00
parent 833292149f
commit d1619263b1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7744,6 +7744,8 @@ var
Requisition: TGtkRequisition;
WindowFixedWidget: PGtkWidget;
VBox: PGtkWidget;
lscreen: PGdkScreen;
lscreenrect: TGdkRectangle;
begin
Result := nil;
if Styles=nil then exit;
@ -8055,7 +8057,9 @@ begin
end;
//DebugLn('AddToStyleWindow realized: ',WName,' ',GetWidgetDebugReport(StyleObject^.Widget));
end;
ResizeWidget(StyleObject^.Widget,200,200);
lscreen := gdk_screen_get_default();
gdk_screen_get_monitor_geometry(lscreen, 0, @lscreenrect);
ResizeWidget(StyleObject^.Widget,lscreenrect.width,lscreenrect.height);
end;
end;