paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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;
imgNo: Integer; { for rvsJump# used as jump id }
gr: TPersistent;
DataPtr: Pointer;
end;
{------------------------------------------------------------------}
TCPInfo = class
@ -1319,7 +1320,7 @@ begin
TImageList(li.gr).DrawingStyle := dsSelected;
end;
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;
end;
if no = -2 then continue; { check point }