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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
object frFmtForm: TfrFmtForm
Left = 348
Height = 170
Top = 173
Width = 378
HorzScrollBar.Page = 315
VertScrollBar.Page = 130
ActiveControl = Panel1
BorderStyle = bsDialog
Caption = 'Variable formatting'
ClientHeight = 170
ClientWidth = 378
OnCreate = FormCreate
OnShow = frFmtFormShow
Position = poScreenCenter
LCLVersion = '0.9.29'
object GroupBox2: TGroupBox
Left = 0
Height = 120
Top = 0
Width = 378
Align = alClient
Caption = 'Variable format'
ClientHeight = 104
ClientWidth = 376
TabOrder = 0
object ComboBox1: TComboBox
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 6
Height = 29
Top = 6
Width = 109
HelpContext = 21
BorderSpacing.Around = 6
ItemHeight = 0
OnChange = ComboBox1Change
Style = csDropDownList
TabOrder = 0
end
object ComboBox2: TComboBox
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 121
Height = 29
Top = 6
Width = 249
HelpContext = 31
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
OnSelect = ComboBox2Select
Style = csDropDownList
TabOrder = 1
end
object Panel1: TPanel
Left = 8
Height = 33
Top = 47
Width = 278
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 278
FullRepaint = False
TabOrder = 2
Visible = False
object Label5: TLabel
Left = 0
Height = 16
Top = 8
Width = 91
Caption = '&Decimal digits'
FocusControl = Edit3
ParentColor = False
end
object Label6: TLabel
Left = 134
Height = 16
Top = 5
Width = 101
Caption = 'Fraction &symbol'
FocusControl = SplEdit
ParentColor = False
end
object SplEdit: TEdit
Left = 238
Height = 21
Top = 4
Width = 25
HelpContext = 41
MaxLength = 1
OnEnter = SplEditEnter
TabOrder = 0
Text = ','
end
object Edit3: TEdit
Left = 94
Height = 21
Top = 4
Width = 25
HelpContext = 51
TabOrder = 1
Text = '0'
end
end
object Panel2: TPanel
Left = 36
Height = 33
Top = 47
Width = 281
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 281
FullRepaint = False
TabOrder = 3
object Label1: TLabel
AnchorSideTop.Side = asrBottom
Left = 58
Height = 16
Top = 8
Width = 47
BorderSpacing.Around = 6
Caption = '&Format'
FocusControl = Edit1
ParentColor = False
end
object Edit1: TEdit
AnchorSideTop.Side = asrBottom
Left = 126
Height = 21
Top = 0
Width = 142
HelpContext = 61
BorderSpacing.Around = 6
TabOrder = 0
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 38
Top = 126
Width = 366
OKButton.Name = 'OKButton'
HelpButton.Name = 'HelpButton'
CloseButton.Name = 'CloseButton'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end
end
|
