pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Fix TCurrSpinEditEx after solution of Lazarus bug report #39793

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8494 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-21 10:02:08 +00:00
parent c1d3789b4f
commit 8adc456b51
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/exctrls/source/exeditctrls.pas
View File

@ -57,9 +57,9 @@ type
procedure EditKeyPress(var Key: char); override;
function SafeInc(AValue: Currency): Currency; override;
function SafeDec(AValue: Currency): Currency; override;
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$IF FPC_FullVersion>=30202}
function SameValue(AValue1, AValue2: Currency): Boolean; override;
{$ENDIF}{$IFEND}
{$ENDIF}
function TextIsNumber(const S: String; out ANumber: Currency): Boolean; override;
function TryExtractCurrency(AText: String; out AValue: Currency;
const AFormatSettings: TFormatSettings): Boolean;
@ -351,12 +351,12 @@ begin
end;
// Workaround for https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/39490
{$IF FPC_FullVersion=30202}{$IFDEF Win64}
{$IF FPC_FullVersion>=30202}
function TCustomCurrSpinEditEx.SameValue(AValue1, AValue2: Currency): Boolean;
begin
Result := (AValue1 = AValue2);
end;
{$ENDIF}{$IFEND}
{$ENDIF}
procedure TCustomCurrSpinEditEx.SetCurrencyFormat(AValue: TSpinEditCurrencyFormat);
begin