pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:RxDBGrid - fix UpDown editor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7397 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-04-24 09:06:20 +00:00
parent 21987bd7d9
commit 71e0209dda
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -2547,10 +2547,10 @@ begin
F.Value:=0; F.Value:=0;
if F is TLongintField then if F is TLongintField then
V:=(TLongintField(F).MinValue <> 0) and (TLongintField(F).MaxValue <> 0) and (TLongintField(F).MinValue < F.Value) V:=((TLongintField(F).MinValue <> 0) or (TLongintField(F).MaxValue <> 0)) and (TLongintField(F).MinValue < F.Value)
else else
if F is TFloatField then if F is TFloatField then
V:=(TFloatField(F).MinValue <> 0) and (TFloatField(F).MaxValue <> 0) and (TFloatField(F).MinValue < F.Value) V:=((TFloatField(F).MinValue <> 0) or (TFloatField(F).MaxValue <> 0)) and (TFloatField(F).MinValue < F.Value)
else else
V:=true; V:=true;
@ -2585,10 +2585,10 @@ begin
F.Value:=0; F.Value:=0;
if F is TLongintField then if F is TLongintField then
V:=(TLongintField(F).MinValue <> 0) and (TLongintField(F).MaxValue <> 0) and (TLongintField(F).MaxValue > F.Value) V:=((TLongintField(F).MinValue <> 0) or (TLongintField(F).MaxValue <> 0)) and (TLongintField(F).MaxValue > F.Value)
else else
if F is TFloatField then if F is TFloatField then
V:=(TFloatField(F).MinValue <> 0) and (TFloatField(F).MaxValue <> 0) and (TFloatField(F).MaxValue < F.Value) V:=((TFloatField(F).MinValue <> 0) or (TFloatField(F).MaxValue <> 0)) and (TFloatField(F).MaxValue > F.Value)
else else
V:=true; V:=true;