paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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 begin
if Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then if Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
begin begin
F:=FLDS.DataSet.FieldByName(LookupDisplay); // F:=FLDS.DataSet.FieldByName(LookupDisplay);
F:=FLDS.DataSet.FieldByName(LookupField);
if Assigned(F) then if Assigned(F) then
begin begin
sText := F.DisplayText; sText := F.DisplayText;
@ -3048,7 +3049,8 @@ begin
CheckEditingKey; CheckEditingKey;
if (AResult) and Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then if (AResult) and Assigned(FGrid.SelectedField) and Assigned(FLDS.DataSet) then
begin begin
F:=FLDS.DataSet.FieldByName(LookupDisplay); //F:=FLDS.DataSet.FieldByName(LookupDisplay);
F:=FLDS.DataSet.FieldByName(LookupField);
if Assigned(F) then if Assigned(F) then
begin begin
if (FGrid<>nil) and Visible then begin if (FGrid<>nil) and Visible then begin