paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 01:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TUpDown: comments

Browse Source 
git-svn-id: trunk@46775 -
This commit is contained in:
mattias 2014-11-07 10:20:23 +00:00
parent 7a9d869af0
commit 6ab0879ae4
1 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
lcl/comctrls.pp
View File

@ -1808,25 +1808,25 @@ type
TCustomUpDown = class(TCustomControl)
private
FOnChangingEx: TUDChangingEventEx;
FOnChanging: TUDChangingEvent;
MinBtn: TControl; // TSpeedButton
MaxBtn: TControl; // TSpeedButton
BTimerProc: TProcedureOfObject;
BTimerBounds : TRect;
BTimerProc: TProcedureOfObject;
FAlignButton: TUDAlignButton;
FArrowKeys: Boolean;
FAssociate: TWinControl;
FMin: SmallInt;
FMax: SmallInt;
FCanChangeDir: TUpDownDirection;
FCanChangePos: SmallInt;
FIncrement: Integer;
FMax: SmallInt;
FMin: SmallInt;
FOnChanging: TUDChangingEvent;
FOnChangingEx: TUDChangingEventEx;
FOnClick: TUDClickEvent;
FOrientation: TUDOrientation;
FPosition: SmallInt;
FThousands: Boolean;
FWrap: Boolean;
FOnClick: TUDClickEvent;
FAlignButton: TUDAlignButton;
FOrientation: TUDOrientation;
FCanChangePos: SmallInt;
FCanChangeDir: TUpDownDirection;
MaxBtn: TControl; // TSpeedButton (TUpDownButton)
MinBtn: TControl; // TSpeedButton (TUpDownButton)
function GetPosition: SmallInt;
procedure BTimerExec(Sender : TObject);
procedure SetAlignButton(Value: TUDAlignButton);
@ -1856,19 +1856,20 @@ type
function CanChange: Boolean; virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Click(Button: TUDBtnType); virtual; overload;
protected
property AlignButton: TUDAlignButton read FAlignButton write SetAlignButton default udRight;
property ArrowKeys: Boolean read FArrowKeys write SetArrowKeys default True;
property Associate: TWinControl read FAssociate write SetAssociate;
property Min: SmallInt read FMin write SetMin;
property Max: SmallInt read FMax write SetMax default 100;
property Increment: Integer read FIncrement write SetIncrement default 1;
property Max: SmallInt read FMax write SetMax default 100;
property Min: SmallInt read FMin write SetMin;
property OnChanging: TUDChangingEvent read FOnChanging write FOnChanging;
property OnChangingEx: TUDChangingEventEx read FOnChangingEx write FOnChangingEx;
property OnClick: TUDClickEvent read FOnClick write FOnClick;
property Orientation: TUDOrientation read FOrientation write SetOrientation default udVertical;
property Position: SmallInt read GetPosition write SetPosition;
property Thousands: Boolean read FThousands write SetThousands default True;
property Wrap: Boolean read FWrap write SetWrap;
property OnChanging: TUDChangingEvent read FOnChanging write FOnChanging;
property OnChangingEx: TUDChangingEventEx read FOnChangingEx write FOnChangingEx;
property OnClick: TUDClickEvent read FOnClick write FOnClick;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; Override;
@ -1881,25 +1882,15 @@ type
published
property AlignButton;
property Anchors;
property Associate;
property ArrowKeys;
property Associate;
property BorderSpacing;
property Constraints;
property Enabled;
property Hint;
property Min;
property Max;
property Increment;
property Constraints;
property Orientation;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property TabOrder;
property TabStop;
property Thousands;
property Visible;
property Wrap;
property Max;
property Min;
property OnChanging;
property OnChangingEx;
property OnClick;
@ -1914,6 +1905,16 @@ type
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property Orientation;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property TabOrder;
property TabStop;
property Thousands;
property Visible;
property Wrap;
end;