paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC:fix av on destroy RxDBGrid after r7517

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7519 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2020-07-02 09:58:49 +00:00
parent 006ca0de49
commit 3aae7af514
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6854,11 +6854,16 @@ var
R: TPoint; R: TPoint;
C1: TGridCoord; C1: TGridCoord;
begin begin
R:=ScreenToClient(Mouse.CursorPos); if not (csDestroying in ComponentState) then
C1:=MouseCoord(R.X, R.Y); begin
C:=TRxColumn(ColumnFromGridColumn(C1.X)); R:=ScreenToClient(Mouse.CursorPos);
if Assigned(C) and Assigned(C.PopupMenu) then C1:=MouseCoord(R.X, R.Y);
Result:=C.PopupMenu C:=TRxColumn(ColumnFromGridColumn(C1.X));
if Assigned(C) and Assigned(C.PopupMenu) then
Result:=C.PopupMenu
else
Result:=inherited GetPopupMenu;
end
else else
Result:=inherited GetPopupMenu; Result:=inherited GetPopupMenu;
end; end;