This is from BP6 help (not too much call for TP1.5 these days)...
uses
Crt, Graph;
var
GraphDriver, GraphMode : Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, ' ');
if GraphResult <> grOk then Halt(1);
Randomize;
repeat
SetColor(Random(GetMaxColor)+1);
LineTo(Random(GetMaxX),
Random(GetMaxY));
until KeyPressed;
end.
>I am teaching this language to a fourth form at St Kentigern College. Does
anyone know a simple method for doing graphics using this wretched
language. It is quite easy using Delphi, Visual basic and Java but when I
try lineto in this language I fail to get a result.
If anyone knows how you would go about getting a simple line, arc and
ellipse on the screen and jot down the code I would be much appreciative.
The Help files in TP 1.5 are devoid of any illustrative examples.
Many Thanks
Rory Barrett
<
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
