10 lines
249 B
ObjectPascal
10 lines
249 B
ObjectPascal
uses GraphWPF;
|
|
|
|
begin
|
|
Window.Title := 'Цифровые часы';
|
|
Font.Size := 180;
|
|
BeginFrameBasedAnimation(
|
|
()->DrawText(Window.ClientRect,DateTime.Now.ToLongTimeString.Replace(' AM','').Replace(' PM',''),Colors.Red),
|
|
1
|
|
);
|
|
end. |