paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:49:30 +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

6
components/lazcontrols/spinex.pp
View File

@ -109,7 +109,6 @@ type
FIncrement: T; FIncrement: T;
FMaxValue: T; FMaxValue: T;
FMinValue: T; FMinValue: T;
FInitialValue: T;
FMinRepeatValue: Byte; FMinRepeatValue: Byte;
FMustSetModifiedToTrueInOnChange: Boolean; FMustSetModifiedToTrueInOnChange: Boolean;
FNullValue: T; FNullValue: T;
@ -126,16 +125,15 @@ type
function GetUpDown: TUpDown; function GetUpDown: TUpDown;
function GetValue: T; function GetValue: T;
function IncrementStored: Boolean; function IncrementStored: Boolean;
function IsLimited: Boolean;
function IsOutOfLimits(AValue: T): Boolean; function IsOutOfLimits(AValue: T): Boolean;
function MaxValueStored: Boolean; function MaxValueStored: Boolean;
function MinValueStored: Boolean; function MinValueStored: Boolean;
procedure SetOrientation(AValue: TUDOrientation); procedure SetOrientation(AValue: TUDOrientation);
procedure UpdateControl;
procedure UpDownChangingEx(Sender: TObject; var {%H-}AllowChange: Boolean; procedure UpDownChangingEx(Sender: TObject; var {%H-}AllowChange: Boolean;
{%H-}NewValue: SmallInt; Direction: TUpDownDirection); {%H-}NewValue: SmallInt; Direction: TUpDownDirection);
procedure UpDownClick(Sender: TObject; {%H-}Button: TUDBtnType); procedure UpDownClick(Sender: TObject; {%H-}Button: TUDBtnType);
protected protected
FInitialValue: T;
function GetBuddyClassType: TControlClass; override; function GetBuddyClassType: TControlClass; override;
procedure DoEnter; override; procedure DoEnter; override;
function RealGetText: TCaption; override; function RealGetText: TCaption; override;
@ -144,6 +142,7 @@ type
procedure EditKeyDown(var Key: word; Shift: TShiftState); override; procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
procedure EditMouseWheelUp(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override; procedure EditMouseWheelUp(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
procedure EditMouseWheelDown(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 SafeInc(AValue: T): T; virtual; abstract;
function SafeDec(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. 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 SetMinValue(const AValue: T); virtual;
procedure SetIncrement(const AIncrement: T); virtual; procedure SetIncrement(const AIncrement: T); virtual;
function TextIsNumber(const S: String; out ANumber: T): Boolean; virtual; abstract; function TextIsNumber(const S: String; out ANumber: T): Boolean; virtual; abstract;
procedure UpdateControl;
procedure InitializeWnd; override; procedure InitializeWnd; override;
procedure FinalizeWnd; override; procedure FinalizeWnd; override;
procedure Loaded; override; procedure Loaded; override;