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

SpinEx: allow to read the inernal formatsettings of TCustomFloatSpinEditEx (needed for derived controls).

Browse Source 
git-svn-id: trunk@63754 -
This commit is contained in:
bart 2020-08-16 13:47:24 +00:00
parent 1f229f6246
commit ff62abace0
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazcontrols/spinex.inc
View File

@ -437,6 +437,11 @@ begin
UpdateControl;
end;
function TCustomFloatSpinEditEx.GetFormatsettings: TFormatSettings;
begin
Result := FFS;
end;
procedure TCustomFloatSpinEditEx.EditKeyPress(var Key: char);
begin

1
components/lazcontrols/spinex.pp
View File

@ -195,6 +195,7 @@ type
procedure SetExponentialFormatLimitPos(AValue: Integer);
procedure SetPrecision(AValue: Integer);
protected
function GetFormatsettings: TFormatSettings;
procedure EditKeyPress(var Key: char); override;
function TextIsNumber(const S: String; out ANumber: Double): Boolean; override;
function SafeInc(AValue: Double): Double; override;