|
|
grphtest.pas (662 bytes)
program grphtest;
{$IFDEF FPC}
{$MODE TP}
{$ENDIF}
uses
Graph,
Crt {$IFDEF WIN32},
WinCRT {$ENDIF};
const
Msg = 'Press any key';
var
GDriver: integer;
GMode: integer;
XPos: integer;
YPos: integer;
begin
{$IFNDEF FPC}
GDriver := Detect;
GMode := 0;
{$ELSE}
GDriver := D8bit;
GMode := m640x480;
{$ENDIF}
InitGraph(GDriver, GMode, '');
SetLineStyle(SolidLn, 0, ThickWidth);
XPos := GetMaxX div 2 - 100 div 2;
YPos := GetMaxY div 2 - 1;
Line(XPos, YPos, XPos + 100, YPos);
OutTextXY(GetMaxX - TextWidth(Msg) - 10, GetMaxY - TextHeight(Msg) - 10, Msg);
Readkey;
CloseGraph;
end.
|
|
|
|
Fix for the error in this report.
graph.inc.patch (612 bytes)
Index: packages/graph/src/inc/graph.inc
===================================================================
diff --git a/branches/fixes_3_0/packages/graph/src/inc/graph.inc b/branches/fixes_3_0/packages/graph/src/inc/graph.inc
--- a/branches/fixes_3_0/packages/graph/src/inc/graph.inc (revision 42321)
+++ b/branches/fixes_3_0/packages/graph/src/inc/graph.inc (working copy)
@@ -261,7 +261,7 @@
{ thick width }
hline(x1,x2,y2-1);
hline(x1,x2,y2);
- hline(x2,x2,y2+1);
+ hline(x1,x2,y2+1);
end;
end
else
|
|
|
|
Thank you for the patch. Please test and close if okay |
|
|
|
Fixed. |
|
