mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 13:56:05 +02:00
lcl: set defaults to some control properties
git-svn-id: trunk@17560 -
This commit is contained in:
parent
1b45d00540
commit
6ab8ef7ffe
@ -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;
|
||||
|
@ -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;
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user