diff options
| author | Andrew Haines <andrewd207@aol.com> | 2010-08-15 09:22:59 -0400 |
|---|---|---|
| committer | Andrew Haines <andrewd207@aol.com> | 2010-08-15 09:22:59 -0400 |
| commit | 917a2daf4ff769ad27631e6c71a7b919c47e4ecb (patch) | |
| tree | c524983404bd70c97c17395995f962cdf41899cc /src/gui/fpg_combobox.pas | |
| parent | 77245bbf79e8568ba143cd7654e8aba352253a81 (diff) | |
| parent | 59df247d7a5ff46cc8ac697526510b2ff6cbe5d2 (diff) | |
| download | fpGUI-917a2daf4ff769ad27631e6c71a7b919c47e4ecb.tar.xz | |
Merge branch 'master' of ssh://fpgui.git.sourceforge.net/gitroot/fpgui/fpgui
Diffstat (limited to 'src/gui/fpg_combobox.pas')
| -rw-r--r-- | src/gui/fpg_combobox.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas index 6e34704e..632a4918 100644 --- a/src/gui/fpg_combobox.pas +++ b/src/gui/fpg_combobox.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, @@ -83,7 +83,7 @@ type FBtnPressed: Boolean; procedure SetMargin(const AValue: integer); procedure CalculateInternalButtonRect; virtual; - procedure InternalOnClose(Sender: TObject); + procedure InternalOnClose(Sender: TObject); virtual; procedure InternalItemsChanged(Sender: TObject); virtual; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override; procedure DoOnChange; virtual; @@ -141,6 +141,7 @@ type property FocusItem; property FontDesc; property Height; + property Hint; property Items; property Margin; property Options; @@ -155,6 +156,7 @@ type property OnDropDown; property OnEnter; property OnExit; + property OnShowHint; end; @@ -405,8 +407,6 @@ end; { TComboboxDropdownWindow } procedure TComboboxDropdownWindow.SetFirstItem; -var - i: integer; begin // If FocusItem is less than DropDownCount FirsItem = 0 if ListBox.FocusItem+1 <= FCallerWidget.DropDownCount then |