diff options
| -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; |