diff options
Diffstat (limited to 'prototypes/fpgui2/tests/edittest.lpr')
-rw-r--r-- | prototypes/fpgui2/tests/edittest.lpr | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr index aa0dddbf..dd407ad8 100644 --- a/prototypes/fpgui2/tests/edittest.lpr +++ b/prototypes/fpgui2/tests/edittest.lpr @@ -485,8 +485,11 @@ begin checkbox2 := CreateCheckBox(self, 10, 285, 'Checkbox Two'); radiobtn1 := CreateRadioButton(self, 180, 265, 'Radio One'); + radiobtn1.GroupIndex := 2; radiobtn2 := CreateRadioButton(self, 180, 285, 'Radio Two'); + radiobtn2.GroupIndex := 2; radiobtn3 := CreateRadioButton(self, 180, 305, 'Radio Three'); + radiobtn3.GroupIndex := 2; radiobtn1.Checked := True; trackbar1 := TfpgTrackBar.Create(self); |