diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-20 09:04:22 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-20 09:04:22 +0200 |
| commit | a3fe1942a542650d53d51f1a15c1a13696ea8718 (patch) | |
| tree | 8163fbf5eb26565df3a70b7372bf121a0a4a74f1 /src/gui | |
| parent | 1b402ba4be05f5b5a628d79cbea4cb66ca69c2b2 (diff) | |
| download | fpGUI-a3fe1942a542650d53d51f1a15c1a13696ea8718.tar.xz | |
Set default property values for TfpgColorListBox
This affected HotTrack, PopupFrame and ColorPalette properties.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/fpg_listbox.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas index 4b6d162e..179e0e81 100644 --- a/src/gui/fpg_listbox.pas +++ b/src/gui/fpg_listbox.pas @@ -92,8 +92,8 @@ type property AutoHeight: boolean read FAutoHeight write SetAutoHeight default False; property FocusItem: integer read FFocusItem write SetFocusItem; property FontDesc: string read GetFontDesc write SetFontDesc; - property HotTrack: boolean read FHotTrack write FHotTrack; - property PopupFrame: boolean read FPopupFrame write SetPopupFrame; + property HotTrack: boolean read FHotTrack write FHotTrack default False; + property PopupFrame: boolean read FPopupFrame write SetPopupFrame default False; property DragToReorder: boolean read FDragToReorder write FDragToReorder default False; public constructor Create(AOwner: TComponent); override; @@ -181,7 +181,7 @@ type // procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override; property Items: TList read FItems; property Color: TfpgColor read GetColor write SetColor; - property ColorPalette: TfpgColorPalette read FColorPalette write SetColorPalette; + property ColorPalette: TfpgColorPalette read FColorPalette write SetColorPalette default cpStandardColors; property ShowColorNames: Boolean read FShowColorNames write SetShowColorNames default True; public constructor Create(AOwner: TComponent); override; |