From 11bf00865b3c5727859fd32080b404da181e9cfb Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 19 Jul 2014 03:16:50 +0000
Subject: [PATCH] richview: added DataPtr to TLineInfo, fix compiling with
 trunk

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richview/richview.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/richview/richview.pas b/components/richview/richview.pas
index 3833f1b75..b5680e93a 100644
--- a/components/richview/richview.pas
+++ b/components/richview/richview.pas
@@ -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 }