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

LazControl: LazIntegerEdit, clean up / comments

Browse Source
This commit is contained in:
Martin 2024-08-15 16:06:49 +02:00
parent f356184e3b
commit cab5b39fe0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/laznumedit.pas
View File

@ -11,10 +11,6 @@ uses
and redirect the calls and redirect the calls
*) *)
const
Min_Limit = low(Int64);
Max_Limit = High(Int64);
type type
TLazIntegerEditBaseChangeEvent = procedure(ASender: TObject; ACurrentBase: Integer; var ANewBase: integer; var APrefix) of object; TLazIntegerEditBaseChangeEvent = procedure(ASender: TObject; ACurrentBase: Integer; var ANewBase: integer; var APrefix) of object;
@ -22,6 +18,9 @@ type
{ TLazIntegerEditGen } { TLazIntegerEditGen }
generic TLazIntegerEditGen<T: TCustomEdit> = class(T) generic TLazIntegerEditGen<T: TCustomEdit> = class(T)
protected const
Min_Limit = low(Int64);
Max_Limit = High(Int64);
private private
FAllowMinus: Boolean; FAllowMinus: Boolean;
FAllowPlus: Boolean; FAllowPlus: Boolean;
@ -191,6 +190,7 @@ function QWord2Str(N: QWord; Base: Byte): string;
implementation implementation
// from StrUtils.Dec2Numb / Numb2Dec
function QWord2Str(N: QWord; Base: Byte): string; function QWord2Str(N: QWord; Base: Byte): string;
var var
C: Integer; C: Integer;