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
|
object AdminServerHealthBarGraphFrame: TAdminServerHealthBarGraphFrame
Left = 0
Top = 0
Width = 500
Height = 18
TabOrder = 0
TabStop = True
OnDblClick = TntFrameDblClick
OnResize = FrameResize
object MainPnl: TTntPanel
Left = 94
Top = 0
Width = 406
Height = 18
Align = alClient
BevelOuter = bvNone
BorderStyle = bsSingle
TabOrder = 0
OnDblClick = TntFrameDblClick
DesignSize = (
402
14)
object EmptyImg: TTntImage
Left = 0
Top = 0
Width = 402
Height = 14
Align = alClient
Stretch = True
OnDblClick = TntFrameDblClick
end
object ValueImg: TTntImage
Left = 0
Top = 0
Width = 105
Height = 15
Stretch = True
OnDblClick = TntFrameDblClick
end
object ValueLbl: TTntLabel
Left = 2
Top = 0
Width = 93
Height = 13
Caption = 'Current usage 2.1M'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnDblClick = TntFrameDblClick
end
object MaxLbl: TTntLabel
Left = 328
Top = 0
Width = 63
Height = 13
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = 'Total size 6M'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
end
object CaptionPnl: TTntPanel
Left = 0
Top = 0
Width = 94
Height = 18
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
OnDblClick = TntFrameDblClick
object CaptionLbl: TTntLabel
Left = 0
Top = 2
Width = 50
Height = 13
Caption = 'CaptionLbl'
OnDblClick = TntFrameDblClick
end
end
end
|
