paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed CreateRectRgn for negative widths/heights

Browse Source 
git-svn-id: trunk@5002 -
This commit is contained in:
mattias 2004-01-03 20:31:02 +00:00
parent cb158488ae
commit 4382d9df16
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1725,10 +1725,20 @@ var
RegionObj: PGdkRegion;
begin
GObject := NewGDIObject(gdiRegion);
R.X := gint16(X1);
R.Y := gint16(Y1);
R.Width := X2 - X1;
R.Height := Y2 - Y1;
if X1<=X2 then begin
R.X := gint16(X1);
R.Width := X2 - X1;
end else begin
R.X := gint16(X2);
R.Width := X1 - X2;
end;
if Y1<=Y2 then begin
R.Y := gint16(Y1);
R.Height := Y2 - Y1;
end else begin
R.Y := gint16(Y2);
R.Height := Y1 - Y1;
end;
RRGN := gdk_region_new;
RegionObj:=PGdkRegion(gdk_region_union_with_rect(RRGN,@R));
@ -9036,6 +9046,9 @@ end;
{ =============================================================================
$Log$
Revision 1.308 2004/01/03 20:31:02 mattias
fixed CreateRectRgn for negative widths/heights
Revision 1.307 2003/12/30 21:05:13 micha
fix gtk interface due to lcl interface change (from vincent