Back | Home

DrawDemo HSPascal - Circle

In this tutorial we will create a Drawing Demo using HSPascal. This is hardcore programming, not for drag and droppers. HSPascal stands for High Speed Pascal and soon you will see why. Make sure you donate to Christen Fihl for using this fantastic compiler!

1. Once you've downloaded and installed HSPascal start a new File and name it Circle. This whole program will be one simple .pas file and the .prc file we compile for the Palm.

2. Enter the code below and do a save then compile.

Program Circle;
{$ApplName Circle,XXXX}

Uses
Window, Rect, Crt;

Var
MyRect : RectangleType;

Const
Corner = 50;

Procedure DrawCircle;
Begin
MyRect.topLeft.x := 30;
MyRect.topLeft.y := 30;
MyRect.extent.x := 100;
MyRect.extent.y := 100;
WinDrawRectangle(MyRect,Corner);
End;

BEGIN
DrawCircle;
Delay(20000);
END.

That's it!
Now try running Circle on your Palm or Emulator

Sample Screen

Hopefully you should have something like this!