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

LazControls/SpinEditExBase: Clearer defines for issue #39490 workaround.

Browse Source
This commit is contained in:
wp_xyz 2021-11-28 22:05:16 +01:00
parent a365f46170
commit 171f18dd75
2 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/spinex.inc
View File

@ -525,12 +525,12 @@ begin
end;
// Workaround for https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/39490
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$ifdef fpc_math_samevalue_bug}
function TCustomFloatSpinEditEx.SameValue(AValue1, AValue2: Double): Boolean;
begin
Result := Math.SameValue(AValue1, AValue2);
end;
{$ENDIF}{$IFEND}
{$endif}
procedure TCustomFloatSpinEditEx.SetDecimals(ADecimals: Integer);
begin
@ -666,12 +666,12 @@ begin
end;
// Workaround for https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/39490
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$ifdef fpc_math_samevalue_bug}
function TCustomSpinEditEx.SameValue(AValue1, AValue2: Int64): Boolean;
begin
Result := (AValue1 = AValue2);
end;
{$ENDIF}{$IFEND}
{$endif}
function TCustomSpinEditEx.TextIsNumber(const S: String; out ANumber: Int64
): Boolean;

17
components/lazcontrols/spinex.pp
View File

@ -69,6 +69,11 @@ unit SpinEx;
{$mode objfpc}{$H+}
// Activates a workaround for issue #39490
{$if FPC_FullVersion=30202}{$ifdef Win64}
{$define fpc_math_samevalue_bug}
{$endif}{$endif}
interface
uses
@ -141,9 +146,9 @@ type
procedure EditMouseWheelDown(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
function SafeInc(AValue: T): T; virtual; abstract;
function SafeDec(AValue: T): T; virtual abstract;
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$ifdef fpc_math_samevalue_bug}
function SameValue(AValue1, AValue2: T): boolean; virtual; abstract;
{$ENDIF}{$IFEND}
{$endif}
procedure SetValue(const AValue: T); virtual;
procedure SetNullValue(AValue: T); virtual;
procedure SetMaxValue(const AValue: T); virtual;
@ -211,9 +216,9 @@ type
function TextIsNumber(const S: String; out ANumber: Double): Boolean; override;
function SafeInc(AValue: Double): Double; override;
function SafeDec(AValue: Double): Double; override;
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$ifdef fpc_math_samevalue_bug}
function SameValue(AValue1, AValue2: Double): Boolean; override;
{$ENDIF}{$IFEND}
{$endif}
procedure SetDecimals(ADecimals: Integer); virtual;
public
function ValueToStr(const AValue: Double): String; override;
@ -325,9 +330,9 @@ type
protected
function SafeInc(AValue: Int64): Int64; override;
function SafeDec(AValue: Int64): Int64; override;
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$ifdef fpc_math_samevalue_bug}
function SameValue(AValue1, AValue2: Int64): Boolean; override;
{$ENDIF}{$IFEND}
{$endif}
function TextIsNumber(const S: String; out ANumber: Int64): Boolean; override;
public
function ValueToStr(const AValue: Int64): String; override;