1 files changed, 33 insertions, 0 deletions
diff --git a/examples/gui/widgettest/radiobuttonform.frm b/examples/gui/widgettest/radiobuttonform.frm
new file mode 100644
index 00000000..eac18c90
--- /dev/null
+++ b/examples/gui/widgettest/radiobuttonform.frm
@@ -0,0 +1,33 @@
+object RadioButtonForm: TRadioButtonForm
+  BorderWidth = 8
+  Text = 'Radio button test'
+  object Box: TBoxLayout
+    Orientation = Vertical
+    object GrayCheckbox: TCheckbox
+      Text = 'Gray radio buttons'
+      OnClick = GrayCheckboxClick
+    end
+    object HorzBox: TBoxLayout
+      object ButtonBox1: TBoxLayout
+        Orientation = Vertical
+        object Radio1a: TRadioButton
+	        Checked = True
+          Text = 'Button 1 a'
+        end
+        object Radio1b: TRadioButton
+          Text = 'Button 1 b'
+        end
+      end
+      object ButtonBox2: TBoxLayout
+        Orientation = Vertical
+        object Radio2a: TRadioButton
+          Text = 'Button 2 a'
+        end
+        object Radio2b: TRadioButton
+	        Checked = True
+          Text = 'Button 2 b'
+        end
+      end
+    end
+  end
+end