pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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;
C1: TGridCoord;
begin
R:=ScreenToClient(Mouse.CursorPos);
C1:=MouseCoord(R.X, R.Y);
C:=TRxColumn(ColumnFromGridColumn(C1.X));
if Assigned(C) and Assigned(C.PopupMenu) then
Result:=C.PopupMenu
if not (csDestroying in ComponentState) then
begin
R:=ScreenToClient(Mouse.CursorPos);
C1:=MouseCoord(R.X, R.Y);
C:=TRxColumn(ColumnFromGridColumn(C1.X));
if Assigned(C) and Assigned(C.PopupMenu) then
Result:=C.PopupMenu
else
Result:=inherited GetPopupMenu;
end
else
Result:=inherited GetPopupMenu;
end;