6e34bc00fa
GraphABCLinux Поправил иконку PABCHealth Изменения в LightPT.pas Цветной вывод в окне вывода (только для Windows) Console.OutputEncoding := new System.Text.UTF8Encoding(false); в __RedirectIOMode.pas чтобы в Linux нормально выводилось
24 lines
604 B
ObjectPascal
24 lines
604 B
ObjectPascal
// Штампы - это классы графических фигур, хранящие их параметры
|
||
// В любой момент можно нарисовать графическую фигуру, вызвав метод Stamp.
|
||
|
||
// Класс штампа прямоугольника
|
||
uses GraphABCLinux;
|
||
|
||
type
|
||
RectangleStamp = auto class
|
||
x,y,w,h: integer;
|
||
procedure Stamp;
|
||
begin
|
||
Rectangle(x,y,x+w,y+h);
|
||
end;
|
||
end;
|
||
|
||
begin
|
||
var r := new RectangleStamp(30,30,50,50);
|
||
r.Stamp;
|
||
for var i:=1 to 10 do
|
||
begin
|
||
r.x := r.x + r.w +5;
|
||
r.Stamp;
|
||
end;
|
||
end. |