summaryrefslogtreecommitdiff
path: root/src/gui/fpg_editcombo.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/fpg_editcombo.pas')
-rw-r--r--src/gui/fpg_editcombo.pas9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 8d660664..20b6ee8d 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -1,7 +1,7 @@
{
fpGUI - Free Pascal GUI Toolkit
- Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+ Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
distribution, for details of the copyright.
See the file COPYING.modifiedLGPL, included in this distribution,
@@ -64,8 +64,6 @@ type
TAllowNew = (anNo, anYes, anAsk);
- { TfpgBaseEditCombo }
-
TfpgBaseEditCombo = class(TfpgBaseComboBox)
private
FAutoCompletion: Boolean;
@@ -77,8 +75,7 @@ type
procedure SetAllowNew(const AValue: TAllowNew);
procedure InternalBtnClick(Sender: TObject);
procedure InternalListBoxSelect(Sender: TObject);
- procedure InternalListBoxKeyPress(Sender: TObject; var keycode: word; var shiftstate: TShiftState;
- var consumed: Boolean);
+ procedure InternalListBoxKeyPress(Sender: TObject; var keycode: word; var shiftstate: TShiftState; var consumed: Boolean);
protected
FDropDown: TfpgPopupWindow;
FDrawOffset: integer;
@@ -120,6 +117,7 @@ type
property FocusItem;
property FontDesc;
property Height;
+ property Hint;
property Items;
property Margin;
property Text;
@@ -131,6 +129,7 @@ type
property OnEnter;
property OnExit;
property OnKeyPress;
+ property OnShowHint;
end;