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;
|
2019-02-01 15:04:07 +03:00
|
|
|
|
BeginFrameBasedAnimation(
|
2025-07-19 20:06:25 +03:00
|
|
|
|
()->DrawText(Window.ClientRect,DateTime.Now.ToLongTimeString.Replace(' AM','').Replace(' PM',''),Colors.Red),
|
2019-02-01 15:04:07 +03:00
|
|
|
|
1
|
|
|
|
|
|
);
|
2017-08-26 00:30:33 +03:00
|
|
|
|
end.
|
