diff options
Diffstat (limited to 'examples/gui/widgettest/editform.frm')
-rw-r--r-- | examples/gui/widgettest/editform.frm | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/examples/gui/widgettest/editform.frm b/examples/gui/widgettest/editform.frm new file mode 100644 index 00000000..51c2b888 --- /dev/null +++ b/examples/gui/widgettest/editform.frm @@ -0,0 +1,74 @@ +object EditForm: TEditForm + BorderWidth = 8 + Text = 'Edit field test' + object Grid: TGridLayout + ColCount = 3 + RowCount = 4 + GridPositions = < + item + Widget = Label1 + end + item + x = 1 + Widget = Edit1 + end + item + x = 2 + Widget = GrayCheckBox1 + end + item + y = 1 + width = 3 + Widget = Separator + end + item + y = 2 + Widget = Label2 + end + item + x = 1 + y = 2 + Widget = Edit2 + end + item + x = 2 + y = 2 + Widget = GrayCheckBox2 + end + item + x = 1 + y = 3 + Widget = PasswordDisplay + end> + object Label1: TLabel + Text = 'Normal edit field:' + CanExpandWidth = False + end + object Edit1: TEdit + Text = 'Edit1' + end + object GrayCheckBox1: TCheckBox + Text = 'Disabled' + OnClick = GrayCheckBox1Click + end + object Separator: TSeparator + end + object Label2: TLabel + Text = 'Password edit field:' + CanExpandWidth = False + end + object Edit2: TEdit + PasswordChar = '*' + Text = 'Edit2' + OnChange = Edit2Change + end + object GrayCheckBox2: TCheckBox + Text = 'Disabled' + OnClick = GrayCheckBox2Click + end + object PasswordDisplay: TLabel + Text = '(Password field)' + CanExpandWidth = False + end + end +end |