2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Цифровые часы';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
Font.Size := 180;
|
|
|
|
|
|
while True do
|
|
|
|
|
|
begin
|
2017-09-09 17:43:43 +03:00
|
|
|
|
DrawText(Window.ClientRect,System.DateTime.Now.ToLongTimeString,Colors.Red);
|
2017-08-26 00:30:33 +03:00
|
|
|
|
Sleep(1000);
|
|
|
|
|
|
Window.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|
