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

richview: added DataPtr to TLineInfo, fix compiling with trunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2014-07-19 03:16:50 +00:00
parent 7f6277ca08
commit 11bf00865b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/richview/richview.pas
View File

@ -50,6 +50,7 @@ type
Center: Boolean; Center: Boolean;
imgNo: Integer; { for rvsJump# used as jump id } imgNo: Integer; { for rvsJump# used as jump id }
gr: TPersistent; gr: TPersistent;
DataPtr: Pointer;
end; end;
{------------------------------------------------------------------} {------------------------------------------------------------------}
TCPInfo = class TCPInfo = class
@ -1319,7 +1320,7 @@ begin
TImageList(li.gr).DrawingStyle := dsSelected; TImageList(li.gr).DrawingStyle := dsSelected;
end; end;
TImageList(li.gr).Draw(canv, dli.Left-xshift, dli.Top-yshift, li.imgNo); TImageList(li.gr).Draw(canv, dli.Left-xshift, dli.Top-yshift, li.imgNo);
TImageList(li.gr).DrawingStyle := dsNormal; TImageList(li.gr).DrawingStyle := ImgList.dsNormal;
continue; continue;
end; end;
if no = -2 then continue; { check point } if no = -2 then continue; { check point }