From 33197e9e7173ce2c576274b01a8a9c2bac078a1e Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 7 Sep 2020 12:03:46 +0000
Subject: [PATCH] RxFPC:fix TRxDBGridLookupComboEditor.msg_GetValue

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7650 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbgrid.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index cb7184dd9..578e976e9 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -3020,7 +3020,8 @@ var
 begin
   if Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
   begin
-    F:=FLDS.DataSet.FieldByName(LookupDisplay);
+//    F:=FLDS.DataSet.FieldByName(LookupDisplay);
+    F:=FLDS.DataSet.FieldByName(LookupField);
     if Assigned(F) then
     begin
       sText := F.DisplayText;
@@ -3048,7 +3049,8 @@ begin
   CheckEditingKey;
   if (AResult) and Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
   begin
-    F:=FLDS.DataSet.FieldByName(LookupDisplay);
+    //F:=FLDS.DataSet.FieldByName(LookupDisplay);
+    F:=FLDS.DataSet.FieldByName(LookupField);
     if Assigned(F) then
     begin
       if (FGrid<>nil) and Visible then begin