25 lines
483 B
ObjectPascal
25 lines
483 B
ObjectPascal
|
object Clock: TClock
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Caption = 'Draw_a_clock'
|
||
|
|
ClientHeight = 462
|
||
|
|
ClientWidth = 484
|
||
|
|
Color = clBtnFace
|
||
|
|
DoubleBuffered = True
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Tahoma'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poDesktopCenter
|
||
|
|
OnResize = FormResize
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object tmrTimer: TTimer
|
||
|
|
OnTimer = tmrTimerTimer
|
||
|
|
Left = 16
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
end
|