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

RxFPC:fix TRxDBGridLookupComboEditor.msg_GetValue

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7650 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-09-07 12:03:46 +00:00
parent b40e213839
commit 33197e9e71
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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