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

ExCtrls: Fix LCL version directive for adding "override" to TCustomCurrSpinEditEx.SameValue.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8506 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-01 17:11:58 +00:00
parent 6e67883573
commit d54c06b420
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,7 +67,7 @@ type
function SafeInc(AValue: Currency): Currency; override; function SafeInc(AValue: Currency): Currency; override;
function SafeDec(AValue: Currency): Currency; override; function SafeDec(AValue: Currency): Currency; override;
{$IFDEF SAMEVALUE_FIX} {$IFDEF SAMEVALUE_FIX}
function SameValue(AValue1, AValue2: Currency): Boolean; {$IF LCL_FullVersion >= 2030000}override;{$IFEND} function SameValue(AValue1, AValue2: Currency): Boolean; {$IF LCL_FullVersion >= 2020200}override;{$IFEND}
{$ENDIF} {$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;