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

UpDown: revert revision 54974 #bf69b8e9d5, because it seems to be wrong and introduces another Delphi incompatibility.

Browse Source 
git-svn-id: trunk@55014 -
This commit is contained in:
bart 2017-05-19 16:33:53 +00:00
parent af0b2c3d79
commit cd2672eb03
2 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -1888,8 +1888,6 @@ type
procedure OnAssociateChangeEnabled(Sender: TObject); procedure OnAssociateChangeEnabled(Sender: TObject);
procedure OnAssociateChangeVisible(Sender: TObject); procedure OnAssociateChangeVisible(Sender: TObject);
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override; procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
procedure SetEnabled(Value: Boolean); override; procedure SetEnabled(Value: Boolean); override;
class function GetControlClassDefaultSize: TSize; override; class function GetControlClassDefaultSize: TSize; override;
procedure CalculatePreferredSize(var PreferredWidth, procedure CalculatePreferredSize(var PreferredWidth,

16
lcl/include/customupdown.inc
View File

@ -413,22 +413,6 @@ begin
UpdateOrientation; UpdateOrientation;
end; end;
function TCustomUpDown.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint
): Boolean;
begin
Result := inherited DoMouseWheelDown(Shift, MousePos);
if not Result then
TCustomSpeedButton(FMinBtn).Click;
end;
function TCustomUpDown.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint
): Boolean;
begin
Result := inherited DoMouseWheelUp(Shift, MousePos);
if not Result then
TCustomSpeedButton(FMaxBtn).Click;
end;
procedure TCustomUpDown.SetEnabled(Value: Boolean); procedure TCustomUpDown.SetEnabled(Value: Boolean);
begin begin
FMinBtn.Enabled := Value; FMinBtn.Enabled := Value;