mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 11:38:04 +02:00
106 lines
2.3 KiB
Plaintext
106 lines
2.3 KiB
Plaintext
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
|