myForm = VCL.Form("MyForm") myForm._ = { caption="My Test Form One", width=400, height=400, position="poDesktopCenter", } myForm.myPanel = VCL.GroupBox(myForm,"myPanel") myForm.myPanel._ = {caption=" My Group Panel ",align="alLeft", top= 10, left= 10, width = 200, height = 200,} myForm.myMemo = VCL.Memo(myForm,"myMemo") myForm.myMemo._ = { align="alClient",} myForm.myButton = VCL.Button(myForm.myPanel,"MyButton") myForm.myButton._ = { caption="My Test Button", top=30, left=30, width=120, } myForm.myLabel = VCL.Label(myForm.myPanel,"MyLabel") myForm.myLabel._ = { caption="My Test Label", top=60, left=30, width=120, } myForm.myEdit = VCL.Edit(myForm.myPanel,"MyEdit") myForm.myEdit._ = { text=myForm.myButton.caption, top=80, left=30, width=120, } myForm.myCB = VCL.CheckBox(myForm.myPanel,"MyCheckBox") myForm.myCB._ = { top=100, left=30, } myForm.myRB1 = VCL.RadioButton(myForm.myPanel,"MyRadioButton1") myForm.myRB1._ = { top=120, left=30, } myForm.myRB2 = VCL.RadioButton(myForm.myPanel,"MyRadioButton2") myForm.myRB2._ = { top=140, left=30, } myForm.myListBox = VCL.ListBox(myForm.myPanel,"MyListBox") myForm.myListBox._ = { top=160, left=30, height=60, } myForm.myListBox:Clear() myForm.myListBox:SetText({"alpha","beta","gamma","deltha"}) myForm.myListBox.itemindex = 2; myForm.myComboBox = VCL.ComboBox(myForm.myPanel,"MyComboBox") myForm.myComboBox._ = { top=230,left=30,} myForm.myComboBox:Clear() myForm.myComboBox:SetText({"alpha","beta","gamma","deltha"}) myForm.myComboBox.itemindex = 0;