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

Gtk2: fixed crash because of misusage/fpc bug in IntersectRect.

Browse Source 
git-svn-id: trunk@27879 -
This commit is contained in:
zeljko 2010-10-26 11:53:32 +00:00
parent 535fac5416
commit 21a209e959
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

@ -3326,7 +3326,7 @@ var
Pixbuf: PGdkPixbuf;
pixels: pguchar;
Dest: PByte;
R: TRect;
R, R1: TRect;
i: Integer;
SourceStride, DestStride: PtrUInt;
begin
@ -3349,7 +3349,8 @@ begin
if ARect <> nil
then begin
// get intersection
IntersectRect(R, ARect^, R);
IntersectRect(R1, ARect^, R);
R := R1;
ADesc.Width := R.Right - R.Left;
ADesc.Height := R.Bottom - R.Top;
end;