paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 03:19:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed Rectangle, Bar and Bar3D for the cases when x1>x2 or y1>y2

Browse Source 
git-svn-id: trunk@15874 -
This commit is contained in:
nickysn 2010-08-22 12:54:00 +00:00
parent db2d55128c
commit aa1b3a6542
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/graph/src/inc/graph.inc
View File

@ -896,8 +896,21 @@ var
procedure Rectangle(x1,y1,x2,y2:smallint);
var
tmp: smallint;
begin
if x1 > x2 then
begin
tmp := x1;
x1 := x2;
x2 := tmp;
end;
if y1 > y2 then
begin
tmp := y1;
y1 := y2;
y2 := tmp;
end;
{ Do not draw the end points }
Line(x1,y1,x2-1,y1);
Line(x1,y1+1,x1,y2);
@ -1561,6 +1574,12 @@ end;
y1:=y2;
y2:=y;
end;
if x1>x2 then
begin
y:=x1;
x1:=x2;
x2:=y;
end;
{ Always copy mode for Bars }
origwritemode := CurrentWriteMode;
@ -1603,6 +1622,19 @@ var
origwritemode : smallint;
OldX, OldY : smallint;
begin
if x1 > x2 then
begin
OldX := x1;
x1 := x2;
x2 := OldX;
end;
if y1 > y2 then
begin
OldY := y1;
y1 := y2;
y2 := OldY;
end;
origwritemode := CurrentWriteMode;
CurrentWriteMode := CopyPut;
Bar(x1,y1,x2,y2);