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

rxdbgrid - fix AV on open form whith empty grid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2516 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-09-18 16:29:12 +00:00
parent 7939e193c6
commit 8fb214f590
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rxdbgrid.pas
View File

@@ -2330,7 +2330,7 @@ begin
begin
F := GetFieldFromGridColumn(aCol);
C := ColumnFromGridColumn(aCol) as TRxColumn;
if Assigned(C.FOnDrawColumnCell) then
if Assigned(C) and Assigned(C.FOnDrawColumnCell) then
C.OnDrawColumnCell(Self, aRect, aCol, TColumn(ColumnFromGridColumn(aCol)), aState)
else
begin