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

RxFPC:TRxDBGridExportPDF - export images from grid cell

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5095 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-08-19 14:06:03 +00:00
parent 9be6f7eac5
commit 67fc1fc7e0
5 changed files with 177 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3834,7 +3834,7 @@ begin
Assigned(RxColumn.ImageList) then
begin
AImageIndex := StrToIntDef(RxColumn.KeyList.Values[RxColumn.Field.AsString],
RxColumn.FNotInKeyListIndex);
RxColumn.NotInKeyListIndex);
if (AImageIndex > -1) and (AImageIndex < RxColumn.ImageList.Count) then
DrawCellBitmap(RxColumn, aRect, aState, AImageIndex);
end