6e34bc00fa
GraphABCLinux Поправил иконку PABCHealth Изменения в LightPT.pas Цветной вывод в окне вывода (только для Windows) Console.OutputEncoding := new System.Text.UTF8Encoding(false); в __RedirectIOMode.pas чтобы в Linux нормально выводилось
25 lines
466 B
ObjectPascal
25 lines
466 B
ObjectPascal
// Класс штампа текста
|
|
uses GraphABCLinux;
|
|
|
|
type
|
|
TextStamp = auto class
|
|
x,y,pt: integer;
|
|
Text: string;
|
|
procedure Stamp;
|
|
begin
|
|
Font.Size := pt;
|
|
TextOut(x,y,text);
|
|
end;
|
|
procedure MoveOn(dx,dy: integer);
|
|
begin
|
|
x += dx; y += dy;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
var txt := new TextStamp(200,200,14,'Привет!');
|
|
txt.Stamp;
|
|
txt.MoveOn(0,40);
|
|
txt.Text := 'До свидания!';
|
|
txt.Stamp;
|
|
end. |