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

RxFPC: fix show hint for RxDBGrid cell

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7359 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-04-05 19:57:18 +00:00
parent 8b0581017d
commit 8cb1f22c1f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5652,15 +5652,15 @@ begin
if (CellRect_.Bottom > CursorPos.Y) and (CellRect_.Right > CursorPos.X) then if (CellRect_.Bottom > CursorPos.Y) and (CellRect_.Right > CursorPos.X) then
if Assigned(FOnDataHintShow) then if Assigned(FOnDataHintShow) then
begin begin
Processed := False;
rec := DataLink.ActiveRecord; rec := DataLink.ActiveRecord;
try try
DataLink.ActiveRecord := Cell.y - 1; DataLink.ActiveRecord := Cell.y - 1;
HintStr_ := tCol.Field.DisplayText; HintStr_ := tCol.Field.DisplayText;
FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
finally finally
DataLink.ActiveRecord := rec; DataLink.ActiveRecord := rec;
end; end;
Processed := False;
FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
if Processed then if Processed then
HintStr := HintStr_; HintStr := HintStr_;
end; end;