paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 04:40:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed another misusage of IntersectRect

Browse Source 
git-svn-id: trunk@27880 -
This commit is contained in:
zeljko 2010-10-26 12:00:12 +00:00
parent 21a209e959
commit 400281ddea
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -3276,7 +3276,7 @@ var
end; end;
var var
R: TRect; R, R1: TRect;
UseAlpha: Boolean; UseAlpha: Boolean;
begin begin
Result := False; Result := False;
@ -3298,7 +3298,8 @@ begin
if ARect <> nil if ARect <> nil
then begin then begin
// get intersection // get intersection
IntersectRect(R, ARect^, R); IntersectRect(R1, ARect^, R);
R := R1;
ADesc.Width := R.Right - R.Left; ADesc.Width := R.Right - R.Left;
ADesc.Height := R.Bottom - R.Top; ADesc.Height := R.Bottom - R.Top;
end; end;