diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-16 07:37:08 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-16 07:37:08 +0000 |
commit | 2759e11c0f5674184afbf29f7abd5799884ba813 (patch) | |
tree | b116210d560dee2e03e7d71d31df6a9196e4c588 /src/gui/fpg_combobox.pas | |
parent | f67845f6fe0e983f1958dee424f684abb330dc3b (diff) | |
download | fpGUI-2759e11c0f5674184afbf29f7abd5799884ba813.tar.xz |
Reverted the previous vista hint implementation. Introduced a new ExtraHint property which is separate from the Hint property.
Diffstat (limited to 'src/gui/fpg_combobox.pas')
-rw-r--r-- | src/gui/fpg_combobox.pas | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas index b014e1d6..8de11146 100644 --- a/src/gui/fpg_combobox.pas +++ b/src/gui/fpg_combobox.pas @@ -108,7 +108,9 @@ type TfpgBaseStaticCombo = class(TfpgBaseComboBox) private + FExtraHint: string; procedure InternalBtnClick(Sender: TObject); + procedure SetExtraHint(const AValue: string); protected FDropDown: TfpgPopupWindow; procedure DoDropDown; override; @@ -122,6 +124,7 @@ type procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override; procedure HandlePaint; override; property Text: string read GetText write SetText; + property ExtraHint: string read FExtraHint write SetExtraHint; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -133,6 +136,7 @@ type published property BackgroundColor default clBoxColor; property DropDownCount; + property ExtraHint; property FocusItem; property FontDesc; property Height; @@ -539,6 +543,14 @@ begin DoDropDown; end; +procedure TfpgBaseStaticCombo.SetExtraHint(const AValue: string); +begin + if FExtraHint = AValue then + Exit; //==> + FExtraHint := AValue; + Repaint; +end; + procedure TfpgBaseStaticCombo.SetText(const AValue: string); var i: integer; @@ -664,7 +676,7 @@ begin else begin Canvas.SetTextColor(clShadow1); - fpgStyle.DrawString(Canvas, FMargin+1, FMargin, Hint, Enabled); + fpgStyle.DrawString(Canvas, FMargin+1, FMargin, ExtraHint, Enabled); end; end; @@ -676,6 +688,7 @@ begin FWidth := 120; FHeight := Font.Height + (2*FMargin); FFocusable := True; + FExtraHint := ''; CalculateInternalButtonRect; end; |