pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* add default values for properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1440 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-01-13 19:30:19 +00:00
parent ff3fef9200
commit e9a0381de1
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/smnetgradient/smnetgradient.pas
View File

@@ -139,11 +139,11 @@ type
protected protected
procedure Paint; override; procedure Paint; override;
procedure SetAlignment(Value: TAlignment); procedure SetAlignment(Value: TAlignment);
procedure SetLayout(Value: TTextLayout); virtual; procedure SetLayout(Value: TTextLayout);
procedure SetBevelInner(Value: TLabelBevel); procedure SetBevelInner(Value: TLabelBevel);
procedure SetBevelOuter(Value: TLabelBevel); procedure SetBevelOuter(Value: TLabelBevel);
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND; 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 CaptionLayout: TTextLayout read FLayout write SetLayout default tlCenter;
property BevelInner: TLabelBevel read FBevelInner write SetBevelInner default bvNone; property BevelInner: TLabelBevel read FBevelInner write SetBevelInner default bvNone;
property BevelOuter: TLabelBevel read FBevelOuter write SetBevelOuter default bvRaised; property BevelOuter: TLabelBevel read FBevelOuter write SetBevelOuter default bvRaised;
@@ -161,8 +161,8 @@ type
{ Enable standard properties } { Enable standard properties }
property Font: TFont read FFont write SetFont; property Font: TFont read FFont write SetFont;
property Caption: String read FCaption write SetCaption; property Caption: String read FCaption write SetCaption;
property TextTop: Integer read FTextTop write SetTextTop; property TextTop: Integer read FTextTop write SetTextTop default 0;
property TextLeft: Integer read FTextLeft write SetTextLeft; property TextLeft: Integer read FTextLeft write SetTextLeft default 0;
property SubCaption: TSubCaption read FSubCaption write SetSubCaption; property SubCaption: TSubCaption read FSubCaption write SetSubCaption;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@@ -280,6 +280,7 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls, csNoFocus]; ControlStyle := ControlStyle + [csAcceptsControls, csNoFocus];
{ Add new initializations } { Add new initializations }
FAlignment := taLeftJustify;
FLayout := tlCenter; FLayout := tlCenter;
FBevelInner := bvNone; FBevelInner := bvNone;
FBevelOuter := bvRaised; FBevelOuter := bvRaised;