paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:37:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix compilation of descendants of SpinEdit-like controls with FPC 3.3.1

Browse Source
This commit is contained in:
wp_xyz 2024-02-18 16:44:53 +01:00
parent 5168d97f96
commit 6a91a7a772
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazcontrols/spinex.pp
View File

@ -109,7 +109,6 @@ type
FIncrement: T;
FMaxValue: T;
FMinValue: T;
FInitialValue: T;
FMinRepeatValue: Byte;
FMustSetModifiedToTrueInOnChange: Boolean;
FNullValue: T;
@ -126,16 +125,15 @@ type
function GetUpDown: TUpDown;
function GetValue: T;
function IncrementStored: Boolean;
function IsLimited: Boolean;
function IsOutOfLimits(AValue: T): Boolean;
function MaxValueStored: Boolean;
function MinValueStored: Boolean;
procedure SetOrientation(AValue: TUDOrientation);
procedure UpdateControl;
procedure UpDownChangingEx(Sender: TObject; var {%H-}AllowChange: Boolean;
{%H-}NewValue: SmallInt; Direction: TUpDownDirection);
procedure UpDownClick(Sender: TObject; {%H-}Button: TUDBtnType);
protected
FInitialValue: T;
function GetBuddyClassType: TControlClass; override;
procedure DoEnter; override;
function RealGetText: TCaption; override;
@ -144,6 +142,7 @@ type
procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
procedure EditMouseWheelUp(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
procedure EditMouseWheelDown(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
function IsLimited: Boolean;
function SafeInc(AValue: T): T; virtual; abstract;
function SafeDec(AValue: T): T; virtual abstract;
function SameValue(AValue1, AValue2: T): boolean; virtual; abstract; //because it is wrong to use Math.SameValue for e.g. Integer derived classes.
@ -153,6 +152,7 @@ type
procedure SetMinValue(const AValue: T); virtual;
procedure SetIncrement(const AIncrement: T); virtual;
function TextIsNumber(const S: String; out ANumber: T): Boolean; virtual; abstract;
procedure UpdateControl;
procedure InitializeWnd; override;
procedure FinalizeWnd; override;
procedure Loaded; override;