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

LazControl: LazIntegerEdit, result not set

Browse Source
This commit is contained in:
Martin 2024-08-15 23:52:12 +02:00
parent 5bdd772f03
commit 20445109d5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/laznumedit.pas
View File

@ -411,6 +411,7 @@ var
s: String;
n: Boolean;
begin
Result := True;
APrefix := '';
AVal := 0;
s := RealGetText;
@ -433,6 +434,7 @@ begin
AVal := -AVal;
{$POP}
except
Result := False;
if n then
AVal := Min_Limit
else