16 lines
435 B
ObjectPascal
16 lines
435 B
ObjectPascal
uses System.Drawing, GraphABC;
|
|
var br : BrushStyleType;
|
|
begin
|
|
assert(defaultWindowWidth = 640);
|
|
assert(defaultWindowHeight = 480);
|
|
assert(clAquamarine = Color.Aquamarine);
|
|
assert(GraphABC.clYellow = Color.Yellow);
|
|
assert(VK_NumPad9 = 105);
|
|
assert(bhVertical = HatchStyle.Vertical);
|
|
br := bsClear;
|
|
assert(br = BrushStyleType.bsClear);
|
|
//InitWindow(10,20,400,300);
|
|
Line(0,0,200,100);
|
|
DrawCircle(100,100,20);
|
|
|
|
end. |