From 71e0209dda503307f4abe7141a1f7f994bb823c1 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Fri, 24 Apr 2020 09:06:20 +0000 Subject: [PATCH] RxFPC:RxDBGrid - fix UpDown editor git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7397 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxdb/rxdbgrid.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas index aafbd9a17..03c56ec4c 100644 --- a/components/rx/trunk/rxdb/rxdbgrid.pas +++ b/components/rx/trunk/rxdb/rxdbgrid.pas @@ -2547,10 +2547,10 @@ begin F.Value:=0; 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 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 V:=true; @@ -2585,10 +2585,10 @@ begin F.Value:=0; 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 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 V:=true;