diff options
Diffstat (limited to 'examples/gui/widgettest/mainform.frm')
-rw-r--r-- | examples/gui/widgettest/mainform.frm | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/examples/gui/widgettest/mainform.frm b/examples/gui/widgettest/mainform.frm new file mode 100644 index 00000000..d0e5f62f --- /dev/null +++ b/examples/gui/widgettest/mainform.frm @@ -0,0 +1,87 @@ +object MainForm: TMainForm
+ Text = 'Widget tests'
+ BorderWidth = 8
+ WindowOptions = [woWindow]
+ object Box: TBoxLayout
+ CanExpandWidth = False
+ Spacing = 8
+ Orientation = Vertical
+ object Label: TLabel
+ CanExpandWidth = True
+ Text = 'Choose a test form:'
+ end
+ object CheckboxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Check boxes'
+ OnClick = CheckboxBtnClick
+ end
+ object RadioButtonBtn: TButton
+ CanExpandWidth = True
+ Text = 'Radio buttons'
+ OnClick = RadioButtonBtnClick
+ end
+ object GroupBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Group boxes'
+ OnClick = GroupBoxBtnClick
+ end
+ object EditBtn: TButton
+ CanExpandWidth = True
+ Text = 'Edit fields'
+ OnClick = EditBtnClick
+ end
+ object ScrollBarBtn: TButton
+ CanExpandWidth = True
+ Text = 'Scroll bars'
+ OnClick = ScrollBarBtnClick
+ end
+ object ScrollBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Scroll boxes'
+ OnClick = ScrollBoxBtnClick
+ end
+ object ListBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'List boxes'
+ OnClick = ListBoxBtnClick
+ end
+ object ComboBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Combo boxes'
+ OnClick = ComboBoxBtnClick
+ end
+ object GridBtn: TButton
+ CanExpandWidth = True
+ Text = 'Grids'
+ OnClick = GridBtnClick
+ end
+ object MenuBtn: TButton
+ CanExpandWidth = True
+ Text = 'Menus'
+ OnClick = MenuBtnClick
+ end
+ object PanelBtn: TButton
+ CanExpandWidth = True
+ Text = 'Panel'
+ OnClick = PanelBtnClick
+ end
+ object ProgressBarBtn: TButton
+ CanExpandWidth = True
+ Text = 'Progress Bar'
+ OnClick = ProgressBarBtnClick
+ end
+ object StdDialogBtn: TButton
+ CanExpandWidth = True
+ Text = 'Std Dialog'
+ OnClick = StdDialogBtnClick
+ Enabled = False
+ end
+ object Separator: TSeparator
+ end
+ object ExitBtn: TButton
+ CanExpandWidth = True
+ Text = 'Exit'
+ OnClick = ExitBtnClick
+ end
+ end
+end
|