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

RxDBGrid:fix AV on calc collumn width. Patch from ssadragon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2739 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-05-21 17:01:09 +00:00
parent bcbeed383b
commit 0e48d1843c
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/rxdbgrid.pas
View File

@ -3719,7 +3719,10 @@ begin
begin begin
for I := 0 to AColList.Count - 1 do for I := 0 to AColList.Count - 1 do
begin begin
S := TRxColumn(AColList[i]).Field.DisplayText; if Assigned(TRxColumn(AColList[i]).Field) then
S := TRxColumn(AColList[i]).Field.DisplayText
else
S:='';
with TRxColumn(AColList[i]) do with TRxColumn(AColList[i]) do
if (KeyList.Count > 0) and (PickList.Count > 0) then if (KeyList.Count > 0) and (PickList.Count > 0) then
begin begin