paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:39:14 +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; Requisition: TGtkRequisition;
WindowFixedWidget: PGtkWidget; WindowFixedWidget: PGtkWidget;
VBox: PGtkWidget; VBox: PGtkWidget;
lscreen: PGdkScreen;
lscreenrect: TGdkRectangle;
begin begin
Result := nil; Result := nil;
if Styles=nil then exit; if Styles=nil then exit;
@ -8055,7 +8057,9 @@ begin
end; end;
//DebugLn('AddToStyleWindow realized: ',WName,' ',GetWidgetDebugReport(StyleObject^.Widget)); //DebugLn('AddToStyleWindow realized: ',WName,' ',GetWidgetDebugReport(StyleObject^.Widget));
end; 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;
end; end;