lcl: set defaults to some control properties

git-svn-id: trunk@17560 -
This commit is contained in:
paul 2008-11-24 03:15:50 +00:00
parent 1b45d00540
commit 6ab8ef7ffe
3 changed files with 12 additions and 12 deletions

View File

@ -1172,13 +1172,13 @@ type
procedure StepIt;
procedure StepBy(Delta: Integer);
public
property Max: Integer read GetMax write SetMax;
property Min: Integer read GetMin write SetMin;
property Max: Integer read GetMax write SetMax default 100;
property Min: Integer read GetMin write SetMin default 0;
property Orientation: TProgressBarOrientation read FOrientation write SetOrientation default pbHorizontal;
property Position: Integer read GetPosition write SetPosition default 0;
property Smooth : boolean read FSmooth write SetSmooth default false;
property Smooth : boolean read FSmooth write SetSmooth default False;
property Step: Integer read FStep write SetStep default 10;
property BarShowText : boolean read FBarShowText write SetBarShowText;
property BarShowText : boolean read FBarShowText write SetBarShowText default False;
end;
@ -1676,10 +1676,10 @@ type
property Max: Integer read FMax write SetMax default 10;
property Min: Integer read FMin write SetMin default 0;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Orientation: TTrackBarOrientation read FOrientation write SetOrientation;
property Orientation: TTrackBarOrientation read FOrientation write SetOrientation default trHorizontal;
property PageSize: Integer read FPageSize write SetPageSize default 2;
property Position: Integer read FPosition write SetPosition;
property ScalePos: TTrackBarScalePos read FScalePos write SetScalePos;
property ScalePos: TTrackBarScalePos read FScalePos write SetScalePos default trTop;
property TabStop default True;
property TickMarks: TTickMark read FTickMarks write SetTickMarks default tmBottomRight;
property TickStyle: TTickStyle read FTickStyle write SetTickStyle default tsAuto;

View File

@ -224,7 +224,7 @@ type
property PageList: TList read fPageList;
property Pages: TStrings read fAccess write SetPages;
property ShowTabs: Boolean read fShowTabs write SetShowTabs default True;
property TabPosition: TTabPosition read fTabPosition write SetTabPosition;
property TabPosition: TTabPosition read fTabPosition write SetTabPosition default tpTop;
published
property TabStop default true;
end;
@ -386,16 +386,16 @@ type
property OnChangeBounds;
property OnDragDrop;
property OnDragOver;
// property OnEndDock;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPaint;
property OnResize;
// property OnStartDock;
property OnStartDock;
property OnStartDrag;
property Shape: TShapeType read FShape write SetShape;
property Shape: TShapeType read FShape write SetShape default stRectangle;
property ShowHint;
property Visible;
end;
@ -582,7 +582,7 @@ type
public
property Align;
property AutoSize;
property Center: Boolean read FCenter write SetCenter;
property Center: Boolean read FCenter write SetCenter default False;
property Constraints;
property Picture: TPicture read FPicture write SetPicture;
property Visible;

View File

@ -198,7 +198,7 @@ type
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Masked: boolean read FMasked write SetMasked;
property Reference: TWSCustomImageListReference read GetReference;
property ShareImages: Boolean read FShareImages write SetShareImages;
property ShareImages: Boolean read FShareImages write SetShareImages default False;
property ImageType: TImageType read FImageType write FImageType default itImage;
end;