Drawing with Pascal

Can someone tell me how to draw in pascal using Turbo Pascal For Windows 1.5???

Ive tried the following but it doesnt workwhat have I done wrong?

Program Rect;
Uses WinCrt, WinProcs, Wintypes, Strings;

Var
   dc         :Integer;
   i         :longint;

Begin
     dc:=GetActiveWindow;
     createsolidbrush(black_pen);
     createpen(ps_solid,1,black_pen);
     roundrect(dc,30,30,400,40,5,5);
     readkey;
End.

If you can help can you please give me the "Turbo Pascal For Windows" code as this is the program I must use.  I use freepascal and dev-pascal at home but this drawing function much work for TPW 1.5. as it is the one they use in school.

Thanks in advance
PiloAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

BeerkerelCommented:
You'll need the graph library...

Is long time ago for me, worked with dos but you need the BGI include...
0
megamatrixCommented:
if you have in your compiler , graph.tpu , it would be easier for you to draw in pascal , you have the luck , because i had worked in pascal during two year .

   all you have to do is only to know which instruction is uesd , for any problem for insrance , if you wanna make a circle
uses graph;
const center=40;
      ray=100;
var cd,modegraph : integer;
begin
{ init }
card:=cd;
initgraph(card, modegraph,'');      
circle(getmaxx div 2, getmaxy div 2, ray);
readln;
end.
 there many instructions like that , if you have any problem contact me in
megamatrix@engineer.com

and for windows you can use


uses graph;
var cd,modegraph : integer;
begin
{ init }
card:=cd;
initgraph(card, modegraph,'');      
bar(45,85,75,25);
readln;
end.
 good luck
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
UrosVidojevicCommented:
This is example:

  procedure Init;
    var GraphDriver, GraphMode: Integer;
    begin
     GraphDriver := Detect;
     InitGraph(GraphDriver, GraphMode, 'c:/tp7/bgi');
     if GraphResult<> grOk then
      begin
       Halt(1);
       write('ERROR');
      end;

If your bgi files aren't in directory c:/tp7/bgi, then change
this string.  


0
CleanupPingCommented:
Pilo:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Pascal

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.