paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 07:49:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

TFloatSpinEditEx: don't publish property NumbersOnly. It is useless for this control and confuses users.

Browse Source
This commit is contained in:
Bart 2022-01-19 13:50:23 +01:00
parent 92be3d6975
commit a80c5252e0
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazcontrols/spinex.inc
View File

@ -543,6 +543,12 @@ begin
UpdateControl;
end;
class procedure TCustomFloatSpinEditEx.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TCustomFloatSpinEditEx, 'NumbersOnly', 'Should never have been published for this control.', '');
end;
function TCustomFloatSpinEditEx.ValueToStr(const AValue: Double): String;
var

4
components/lazcontrols/spinex.pp
View File

@ -79,7 +79,7 @@ interface
uses
Classes, SysUtils, Math,
// LCL
LCLType, LCLProc, Controls, ClipBrd, ComCtrls, GroupedEdit;
LCLType, LCLProc, Controls, ClipBrd, ComCtrls, GroupedEdit, LResources;
{.$define debugspinex}
@ -220,6 +220,7 @@ type
function SameValue(AValue1, AValue2: Double): Boolean; override;
{$endif}
procedure SetDecimals(ADecimals: Integer); virtual;
class procedure WSRegisterClass; override;
public
function ValueToStr(const AValue: Double): String; override;
function KeyAllowed(Key: Char): Boolean; override;
@ -263,7 +264,6 @@ type
property Hint;
property Layout;
property MaxLength;
property NumbersOnly;
property ParentBiDiMode;
property ParentColor;
property ParentFont;