paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 16:42:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set defaults to some control properties

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/comctrls.pp
View File

@ -1172,13 +1172,13 @@ type
procedure StepIt; procedure StepIt;
procedure StepBy(Delta: Integer); procedure StepBy(Delta: Integer);
public public
property Max: Integer read GetMax write SetMax; property Max: Integer read GetMax write SetMax default 100;
property Min: Integer read GetMin write SetMin; property Min: Integer read GetMin write SetMin default 0;
property Orientation: TProgressBarOrientation read FOrientation write SetOrientation default pbHorizontal; property Orientation: TProgressBarOrientation read FOrientation write SetOrientation default pbHorizontal;
property Position: Integer read GetPosition write SetPosition default 0; 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 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; end;
@ -1676,10 +1676,10 @@ type
property Max: Integer read FMax write SetMax default 10; property Max: Integer read FMax write SetMax default 10;
property Min: Integer read FMin write SetMin default 0; property Min: Integer read FMin write SetMin default 0;
property OnChange: TNotifyEvent read FOnChange write FOnChange; 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 PageSize: Integer read FPageSize write SetPageSize default 2;
property Position: Integer read FPosition write SetPosition; 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 TabStop default True;
property TickMarks: TTickMark read FTickMarks write SetTickMarks default tmBottomRight; property TickMarks: TTickMark read FTickMarks write SetTickMarks default tmBottomRight;
property TickStyle: TTickStyle read FTickStyle write SetTickStyle default tsAuto; property TickStyle: TTickStyle read FTickStyle write SetTickStyle default tsAuto;

10
lcl/extctrls.pp
View File

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

2
lcl/imglist.pp
View File

@ -198,7 +198,7 @@ type
property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Masked: boolean read FMasked write SetMasked; property Masked: boolean read FMasked write SetMasked;
property Reference: TWSCustomImageListReference read GetReference; 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; property ImageType: TImageType read FImageType write FImageType default itImage;
end; end;