paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-09 23:52:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls/SpinEditExBase: Add virtual method SameValue() to fix compilation issue on Win/x64 for a currency descendant. Issue #39490.

Browse Source
This commit is contained in:
wp_xyz 2021-11-27 00:30:47 +01:00
parent 89162e9c1c
commit 182cc8b8e6
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazcontrols/spinex.inc
View File

@ -237,6 +237,13 @@ begin
SpinUpDown(False); SpinUpDown(False);
end; end;
{ This is added as a virtual method because the 64-bit compiler on Windows cannot
determine which overloaded function to call when T is Currency. }
function TSpinEditExBase.SameValue(AValue1, AValue2: T): Boolean;
begin
Result := Math.SameValue(AValue1, AValue2);
end;
procedure TSpinEditExBase.SetValue(const AValue: T); procedure TSpinEditExBase.SetValue(const AValue: T);
var var
ValueFromText: T; ValueFromText: T;

1
components/lazcontrols/spinex.pp
View File

@ -141,6 +141,7 @@ type
procedure EditMouseWheelDown(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override; procedure EditMouseWheelDown(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
function SafeInc(AValue: T): T; virtual; abstract; function SafeInc(AValue: T): T; virtual; abstract;
function SafeDec(AValue: T): T; virtual abstract; function SafeDec(AValue: T): T; virtual abstract;
function SameValue(AValue1, AValue2: T): boolean; virtual;
procedure SetValue(const AValue: T); virtual; procedure SetValue(const AValue: T); virtual;
procedure SetNullValue(AValue: T); virtual; procedure SetNullValue(AValue: T); virtual;
procedure SetMaxValue(const AValue: T); virtual; procedure SetMaxValue(const AValue: T); virtual;