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

RxFPC:RxDBGrid - fix draw last collumn with OnDrawColumnCell event defined - ID0030781

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5292 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-10-25 06:22:32 +00:00
parent ad77570e2d
commit 40d7ee77b6
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/rxdbgrid.pas
View File

@ -3741,10 +3741,13 @@ var
S: string; S: string;
F: TField; F: TField;
C: TRxColumn; C: TRxColumn;
j: integer; j, DataCol: integer;
begin begin
if Assigned(OnDrawColumnCell) and not (CsDesigning in ComponentState) then if Assigned(OnDrawColumnCell) and not (CsDesigning in ComponentState) then
OnDrawColumnCell(Self, aRect, aCol, TColumn(ColumnFromGridColumn(aCol)), aState) begin
DataCol := ColumnIndexFromGridColumn(aCol);
OnDrawColumnCell(Self, aRect, {aCol}DataCol, TColumn(ColumnFromGridColumn(aCol)), aState)
end
else else
begin begin
F := GetFieldFromGridColumn(aCol); F := GetFieldFromGridColumn(aCol);