diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-14 17:34:01 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-10-14 17:34:01 +0000 |
| commit | 55c699fbb5a50c5be9233f63de66ccbb14834274 (patch) | |
| tree | f384a9210d57d797092fa8dcc7a0d0df0dcf45b2 | |
| parent | 230b9ed0ad5e53734a6e754c2d5146dc8719ef44 (diff) | |
| download | fpGUI-55c699fbb5a50c5be9233f63de66ccbb14834274.tar.xz | |
* Applied minor patch from Jean-Marc for EditCombo.
| -rw-r--r-- | src/gui/fpg_editcombo.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas index a3e5dd46..79e95da1 100644 --- a/src/gui/fpg_editcombo.pas +++ b/src/gui/fpg_editcombo.pas @@ -104,6 +104,7 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure Clear; procedure Update; property NewText: boolean read FNewItem; end; @@ -770,6 +771,12 @@ begin inherited Destroy; end; +procedure TfpgBaseEditCombo.Clear; +begin + Text := ''; + Items.Clear; +end; + procedure TfpgBaseEditCombo.Update; begin FFocusItem := -1; |