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
|
inherited MainForm: TMainForm
Left = 371
Height = 280
Top = 150
Width = 327
Caption = 'Translation demo'
ClientHeight = 280
ClientWidth = 327
OnCreate = FormCreate
object Label1: TLabel[0]
Left = 14
Height = 15
Top = 16
Width = 83
Caption = 'Select language'
FocusControl = CbLanguage
ParentColor = False
end
object CbLanguage: TComboBox[1]
Left = 136
Height = 23
Top = 13
Width = 178
Anchors = [akTop, akLeft, akRight]
DropDownCount = 16
ItemHeight = 15
Items.Strings = (
'de - deutsch'
'en - English'
'es - Español'
'fr - Français'
'he - Hebrew'
'hu - magyar'
'it - Italiano'
'lt - Lietuviškai'
'pt_BR - Português (Brasil)'
'ru - русский'
'uk - українська'
'zh_CN - 简体中文'
)
OnChange = CbLanguageChange
Style = csDropDownList
TabOrder = 0
end
object Button1: TButton[2]
Left = 14
Height = 25
Top = 240
Width = 300
Anchors = [akTop, akLeft, akRight]
Caption = 'Open second form'
OnClick = Button1Click
TabOrder = 1
end
object RgDrinks: TRadioGroup[3]
Left = 14
Height = 97
Top = 47
Width = 296
Anchors = [akTop, akLeft, akRight]
AutoFill = True
Caption = 'Please select a drink'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 77
ClientWidth = 292
Items.Strings = (
'beer'
'wine'
'water'
)
OnClick = RgDrinksClick
TabOrder = 2
end
object Button2: TButton[4]
Left = 18
Height = 25
Top = 184
Width = 158
Caption = 'What did you select?'
OnClick = Button2Click
TabOrder = 3
end
object Bevel1: TBevel[5]
Left = 9
Height = 3
Top = 224
Width = 301
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object LblCurrentSelection: TLabel[6]
Left = 18
Height = 15
Top = 154
Width = 95
Caption = 'No drink selected.'
ParentColor = False
end
end
|
