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

ExCtrls: Version checks for CurrencyEditEx.SameValue.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8504 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-01 13:32:26 +00:00
parent c23ad4d5a4
commit 17cb4d1473
3 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ unit ExCheckCombo;
interface interface
uses uses
LCLIntf, LCLType, Classes, SysUtils, Controls, StdCtrls, ImgList, LCLIntf, LCLType, Classes, SysUtils, Controls, StdCtrls, ImgList,
GroupedEdit, EditBtn, CheckLst, Forms; GroupedEdit, EditBtn, CheckLst, Forms;
type type

1
components/exctrls/source/exctrlsreg.pas
View File

@ -7,6 +7,7 @@ interface
uses uses
Classes, SysUtils; Classes, SysUtils;
procedure Register; procedure Register;
implementation implementation

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

@ -11,7 +11,9 @@ uses
Classes, SysUtils, LCLVersion, Controls, SpinEx, Math; Classes, SysUtils, LCLVersion, Controls, SpinEx, Math;
// Fix of issues #39490 (FPC >v3.2.2/64bit) and #39793 (Laz >= 2.3.0) // Fix of issues #39490 (FPC >v3.2.2/64bit) and #39793 (Laz >= 2.3.0)
{.$define SAMEVALUE_FIX} {$IF ((FPC_FullVersion >= 30202) and (LCL_FullVersion >= 2030000)) or DEFINED(Win64)}
{$define SAMEVALUE_FIX}
{$IFEND}
type type
{ TCustomCurrEditEx } { TCustomCurrEditEx }
@ -61,7 +63,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; override; function SameValue(AValue1, AValue2: Currency): Boolean; {$IF LCL_FullVersion >= 2030000}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;
@ -306,7 +308,6 @@ begin
end; end;
{ TCustomCurrSpinEditEx } { TCustomCurrSpinEditEx }
constructor TCustomCurrSpinEditEx.Create(AOwner: TComponent); constructor TCustomCurrSpinEditEx.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -549,6 +550,7 @@ begin
end; end;
end; end;
end; end;
{$IF LCL_FullVersion < 2010000} {$IF LCL_FullVersion < 2010000}
procedure TCustomFloatSISpinEditEx.EditKeyPress(var Key: char); procedure TCustomFloatSISpinEditEx.EditKeyPress(var Key: char);
begin begin