paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 07:01:21 +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; UpdateControl;
end; 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; function TCustomFloatSpinEditEx.ValueToStr(const AValue: Double): String;
var var

4
components/lazcontrols/spinex.pp
View File

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