-
Notifications
You must be signed in to change notification settings - Fork 11
/
YOTM.Form.OverlayTime.dfm
109 lines (109 loc) · 2.69 KB
/
YOTM.Form.OverlayTime.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
inherited FormTimeOverlay: TFormTimeOverlay
AlignWithMargins = True
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
Caption = 'FormTimeOverlay'
ClientHeight = 40
ClientWidth = 300
FormStyle = fsStayOnTop
ScreenSnap = True
SnapBuffer = 15
ExplicitWidth = 300
ExplicitHeight = 40
PixelsPerInch = 96
TextHeight = 19
inherited DragBarTop: TDragPanel
Width = 296
Height = 36
Align = alClient
ExplicitWidth = 296
ExplicitHeight = 36
inherited LabelCaption: TLabel
Left = 58
Width = 167
Height = 28
Margins.Left = 3
Align = alClient
Caption = #1053#1086#1074#1072#1103' '#1079#1072#1076#1072#1095#1072
ExplicitLeft = 58
ExplicitWidth = 167
end
object LabelTime: TLabel [1]
AlignWithMargins = True
Left = 10
Top = 3
Width = 42
Height = 28
Margins.Left = 10
Align = alLeft
Caption = '09:11'
FocusControl = DragBarTop
Font.Charset = DEFAULT_CHARSET
Font.Color = 8947848
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Transparent = True
Layout = tlCenter
OnMouseDown = LabelCaptionMouseDown
ExplicitHeight = 19
end
inherited ButtonFlatClose: TButtonFlat
AlignWithMargins = True
Left = 265
Top = 3
Width = 28
Height = 28
ImageIndentLeft = 2
ExplicitLeft = 265
ExplicitTop = 3
ExplicitWidth = 28
ExplicitHeight = 28
end
object ButtonFlatSwitch: TButtonFlat
AlignWithMargins = True
Left = 231
Top = 3
Width = 28
Height = 28
Align = alRight
Caption = ''
ColorNormal = 3026478
ColorOver = 3026601
ColorPressed = 2237053
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
FontOver.Charset = DEFAULT_CHARSET
FontOver.Color = clWhite
FontOver.Height = -13
FontOver.Name = 'Tahoma'
FontOver.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWhite
FontDown.Height = -13
FontDown.Name = 'Tahoma'
FontDown.Style = []
IgnorBounds = True
ImageIndentLeft = 2
ImageIndex = 28
Images = FormMain.ImageList24
OnClick = ButtonFlatSwitchClick
RoundRectParam = 0
ShowFocusRect = False
TabOrder = 1
TabStop = True
TextFormat = [tfCenter, tfSingleLine, tfVerticalCenter]
SubTextFont.Charset = DEFAULT_CHARSET
SubTextFont.Color = clWhite
SubTextFont.Height = -13
SubTextFont.Name = 'Tahoma'
SubTextFont.Style = []
end
end
end