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