diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-05-01 23:05:26 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-05-01 23:05:26 +0000 |
| commit | 4fcc23cf3ce18e64d9d3e0a0f197b3a49a4704ca (patch) | |
| tree | 66c3c1d23b6d384d993e7368abde9be81e8d7966 /examples/gui | |
| parent | ca38402b7cecfb29523181c100d429772bb25e00 (diff) | |
| download | fpGUI-4fcc23cf3ce18e64d9d3e0a0f197b3a49a4704ca.tar.xz | |
* GUI: Implemented a very basic TDBEdit component
* GUI: Implemented a few more properties in TFieldDataLink
* GUI: Implemented a ReadOnly property in TCustomEdit (still
work in progress)
* GUI: The TStyle function that draws the Edit Box now takes an
extra parameter - IsReadOnly and paints the edit box background
the appropriate color.
* Demos: Updated the DB demo to show the TDBEdit in action.
Diffstat (limited to 'examples/gui')
| -rw-r--r-- | examples/gui/dbftest/dbftest.lpi | 1 | ||||
| -rw-r--r-- | examples/gui/dbftest/dbftest.pas | 6 | ||||
| -rw-r--r-- | examples/gui/dbftest/mainform.frm | 2 | ||||
| -rw-r--r-- | examples/gui/dbftest/test.dbf | bin | 704 -> 704 bytes |
4 files changed, 7 insertions, 2 deletions
diff --git a/examples/gui/dbftest/dbftest.lpi b/examples/gui/dbftest/dbftest.lpi index 233e1ae5..d751b0be 100644 --- a/examples/gui/dbftest/dbftest.lpi +++ b/examples/gui/dbftest/dbftest.lpi @@ -17,7 +17,6 @@ </VersionInfo> <PublishOptions> <Version Value="2"/> - <IgnoreBinaries Value="False"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> </PublishOptions> diff --git a/examples/gui/dbftest/dbftest.pas b/examples/gui/dbftest/dbftest.pas index d96b0fb9..82588efd 100644 --- a/examples/gui/dbftest/dbftest.pas +++ b/examples/gui/dbftest/dbftest.pas @@ -34,6 +34,7 @@ type CurNameText, CurEMailText: TDBText; Navi: TFBoxLayout; FirstDataset, PrevDataset, NextDataset, LastDataset: TFButton; + CurEmailEdit: TDBEdit; procedure FormCreate(Sender: TObject); procedure FirstDatasetClick(Sender: TObject); procedure PrevDatasetClick(Sender: TObject); @@ -63,9 +64,12 @@ begin CurNameText.DataField := 'Name'; CurEMailText.DataSource := DataSource; CurEMailText.DataField := 'Address'; + CurEmailEdit.DataSource := DataSource; + CurEmailEdit.DataField := 'Address'; DataSet.Open; - + CurEmailEdit.Field.ReadOnly := True; + while not DataSet.EOF do begin SetLength(s, 0); diff --git a/examples/gui/dbftest/mainform.frm b/examples/gui/dbftest/mainform.frm index 5732549a..3e42abc1 100644 --- a/examples/gui/dbftest/mainform.frm +++ b/examples/gui/dbftest/mainform.frm @@ -16,6 +16,8 @@ object MainForm: TMainForm object CurEMailText: TDBText Text = '<e-mail>' end + object CurEmailEdit: TDBEdit + end object Navi: TFBoxLayout object FirstDataset: TFButton Text = 'First' diff --git a/examples/gui/dbftest/test.dbf b/examples/gui/dbftest/test.dbf Binary files differindex 3274dd2a..a432f32d 100644 --- a/examples/gui/dbftest/test.dbf +++ b/examples/gui/dbftest/test.dbf |