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

lcl: adding interface methods for TWSCustomUpDown. So a widget specific implementation makes sense. #34663

Browse Source 
git-svn-id: trunk@60965 -
This commit is contained in:
dmitry 2019-04-14 06:50:06 +00:00
parent 3ddc6c5a7b
commit 78bc4df384
1 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
lcl/widgetset/wscomctrls.pp
View File

@ -195,7 +195,16 @@ type
TWSCustomUpDown = class(TWSCustomControl)
published
class procedure SetIncrement(const AUpDown: TCustomUpDown; AValue: Double); virtual;
class procedure SetMaxPosition(const AUpDown: TCustomUpDown; AValue: Double); virtual;
class procedure SetMinPosition(const AUpDown: TCustomUpDown; AValue: Double); virtual;
class procedure SetOrientation(const AUpDown: TCustomUpDown; AOrientation: TUDOrientation); virtual;
class procedure SetPosition(const AUpDown: TCustomUpDown; AValue: Double); virtual;
// class procedure SetRepeatInterval(const AUpDown: TWSCustomUpDown; ms: Integer); virtual;
class procedure SetUseArrowKeys(const AUpDown: TCustomUpDown; AUseArrow: Boolean); virtual;
class procedure SetWrap(const AUpDown: TCustomUpDown; ADoWrap: Boolean); virtual;
end;
TWSCustomUpDownClass = class of TWSCustomUpDown;
{ TWSUpDown }
@ -263,6 +272,50 @@ implementation
uses
LResources;
{ TWSCustomUpDown }
class procedure TWSCustomUpDown.SetUseArrowKeys(const AUpDown: TCustomUpDown;
AUseArrow: Boolean);
begin
end;
class procedure TWSCustomUpDown.SetMinPosition(const AUpDown: TCustomUpDown;
AValue: Double);
begin
end;
class procedure TWSCustomUpDown.SetMaxPosition(const AUpDown: TCustomUpDown;
AValue: Double);
begin
end;
class procedure TWSCustomUpDown.SetPosition(const AUpDown: TCustomUpDown;
AValue: Double);
begin
end;
class procedure TWSCustomUpDown.SetIncrement(const AUpDown: TCustomUpDown;
AValue: Double);
begin
end;
class procedure TWSCustomUpDown.SetOrientation(const AUpDown: TCustomUpDown;
AOrientation: TUDOrientation);
begin
end;
class procedure TWSCustomUpDown.SetWrap(const AUpDown: TCustomUpDown;
ADoWrap: Boolean);
begin
end;
{ TWSTabSheet }
class function TWSTabSheet.GetDefaultColor(const AControl: TControl;