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

gtk: reduce amount of gtk warnings in console produced by DrawFrameControl

Browse Source 
git-svn-id: trunk@12219 -
This commit is contained in:
paul 2007-09-28 17:30:37 +00:00
parent 7fd0499fa1
commit 4f1340e5d6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -2579,7 +2579,7 @@ var
State,
Shadow,
nil,
Widget,
GetStyleWidget(lgsButton),
'button',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left,Rect.Bottom-Rect.Top)
@ -2588,7 +2588,7 @@ var
State,
Shadow,
nil,
Widget,
GetStyleWidget(lgsButton),
'button',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left,Rect.Bottom-Rect.Top);
@ -2658,10 +2658,12 @@ var
end;
end;
var ClientWidget: PGtkWidget;
var
ClientWidget: PGtkWidget;
begin
Result := False;
if IsValidDC(DC) then begin
if IsValidDC(DC) then
begin
Widget:=TDeviceContext(DC).DCWidget;
ClientWidget:=GetFixedWidget(Widget);
if ClientWidget<>nil then