6e34bc00fa
GraphABCLinux Поправил иконку PABCHealth Изменения в LightPT.pas Цветной вывод в окне вывода (только для Windows) Console.OutputEncoding := new System.Text.UTF8Encoding(false); в __RedirectIOMode.pas чтобы в Linux нормально выводилось
14 lines
352 B
ObjectPascal
14 lines
352 B
ObjectPascal
uses GraphABCLinux,System;
|
|
|
|
begin
|
|
Font.Size := 50;
|
|
var x0 := (Window.Width - TextWidth('00:00:00')) div 2;
|
|
var y0 := (Window.Height - TextHeight('00:00:00')) div 2;
|
|
while True do
|
|
begin
|
|
var t := DateTime.Now;
|
|
var s := string.Format('{0:d2}:{1:d2}:{2:d2}',t.Hour,t.Minute,t.Second);
|
|
TextOut(x0,y0,s);
|
|
Sleep(1000);
|
|
end;
|
|
end. |