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