paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 02:19:15 +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, State,
Shadow, Shadow,
nil, nil,
Widget, GetStyleWidget(lgsButton),
'button', 'button',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y, Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left,Rect.Bottom-Rect.Top) Rect.Right-Rect.Left,Rect.Bottom-Rect.Top)
@ -2588,7 +2588,7 @@ var
State, State,
Shadow, Shadow,
nil, nil,
Widget, GetStyleWidget(lgsButton),
'button', 'button',
Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y, Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left,Rect.Bottom-Rect.Top); Rect.Right-Rect.Left,Rect.Bottom-Rect.Top);
@ -2658,10 +2658,12 @@ var
end; end;
end; end;
var ClientWidget: PGtkWidget; var
ClientWidget: PGtkWidget;
begin begin
Result := False; Result := False;
if IsValidDC(DC) then begin if IsValidDC(DC) then
begin
Widget:=TDeviceContext(DC).DCWidget; Widget:=TDeviceContext(DC).DCWidget;
ClientWidget:=GetFixedWidget(Widget); ClientWidget:=GetFixedWidget(Widget);
if ClientWidget<>nil then if ClientWidget<>nil then