diff options
author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-17 23:26:16 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-17 23:26:16 +0000 |
commit | a10b18b3ee0948ae0cbc4d10e8d74d82e15c0112 (patch) | |
tree | 13775772c19aa271c6615803480cc23c5cf08e28 /examples/gui/widgettest/widgettest.pas | |
parent | f37ea39ad0282dfb4e27a777e0adb880e81331fe (diff) | |
download | fpGUI-a10b18b3ee0948ae0cbc4d10e8d74d82e15c0112.tar.xz |
* Applied TFEdit patch from Maciej Kaczkowski enabling the
text to scroll. Also implemented BorderStyle property.
* I made minor changes to Maciej patch.
* Updated the WidgetTest demo to showcase the new features.
Diffstat (limited to 'examples/gui/widgettest/widgettest.pas')
-rw-r--r-- | examples/gui/widgettest/widgettest.pas | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas index a7a3dd93..8dea18a2 100644 --- a/examples/gui/widgettest/widgettest.pas +++ b/examples/gui/widgettest/widgettest.pas @@ -112,6 +112,8 @@ type end; + { TEditForm } + TEditForm = class(TTestForm) Grid: TFGridLayout; VertBox, HorzBox1, HorzBox2: TFBoxLayout; @@ -119,8 +121,10 @@ type Edit1, Edit2: TFEdit; GrayCheckBox1, GrayCheckBox2: TFCheckbox; Separator: TSeparator; + cbBorderStyle: TFButton; procedure GrayCheckBox1Click(Sender: TObject); procedure GrayCheckBox2Click(Sender: TObject); + procedure cbBorderStyleClick(Sender: TObject); procedure Edit2Change(Sender: TObject); public constructor Create(AOwner: TComponent); override; @@ -653,6 +657,20 @@ begin Edit2.Enabled := not GrayCheckBox2.Checked; end; +procedure TEditForm.cbBorderStyleClick(Sender: TObject); +begin + if Edit1.BorderStyle = bsNone then + begin + Edit1.BorderStyle := bsSingle; + Edit2.BorderStyle := bsSingle; + end + else + begin + Edit1.BorderStyle := bsNone; + Edit2.BorderStyle := bsNone; + end; +end; + procedure TEditForm.Edit2Change(Sender: TObject); begin |