From e9a0381de1533ada8eb50075d573f7f295132992 Mon Sep 17 00:00:00 2001 From: blikblum Date: Thu, 13 Jan 2011 19:30:19 +0000 Subject: [PATCH] * add default values for properties git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1440 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/smnetgradient/smnetgradient.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/components/smnetgradient/smnetgradient.pas b/components/smnetgradient/smnetgradient.pas index 74f5906a5..170d22f04 100644 --- a/components/smnetgradient/smnetgradient.pas +++ b/components/smnetgradient/smnetgradient.pas @@ -139,11 +139,11 @@ type protected procedure Paint; override; procedure SetAlignment(Value: TAlignment); - procedure SetLayout(Value: TTextLayout); virtual; + procedure SetLayout(Value: TTextLayout); procedure SetBevelInner(Value: TLabelBevel); procedure SetBevelOuter(Value: TLabelBevel); procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND; - property CaptionAlignment: TAlignment read FAlignment write SetAlignment; + property CaptionAlignment: TAlignment read FAlignment write SetAlignment default taLeftJustify; property CaptionLayout: TTextLayout read FLayout write SetLayout default tlCenter; property BevelInner: TLabelBevel read FBevelInner write SetBevelInner default bvNone; property BevelOuter: TLabelBevel read FBevelOuter write SetBevelOuter default bvRaised; @@ -161,8 +161,8 @@ type { Enable standard properties } property Font: TFont read FFont write SetFont; property Caption: String read FCaption write SetCaption; - property TextTop: Integer read FTextTop write SetTextTop; - property TextLeft: Integer read FTextLeft write SetTextLeft; + property TextTop: Integer read FTextTop write SetTextTop default 0; + property TextLeft: Integer read FTextLeft write SetTextLeft default 0; property SubCaption: TSubCaption read FSubCaption write SetSubCaption; public constructor Create(AOwner: TComponent); override; @@ -280,6 +280,7 @@ begin inherited Create(AOwner); ControlStyle := ControlStyle + [csAcceptsControls, csNoFocus]; { Add new initializations } + FAlignment := taLeftJustify; FLayout := tlCenter; FBevelInner := bvNone; FBevelOuter := bvRaised;