From ab0524f4048768e480802cdb2bd48dad801e553b Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Sun, 9 Jan 2011 15:59:01 +0000
Subject: [PATCH] RichEdit.OnRE_URLClick fix

git-svn-id: https://svn.code.sf.net/p/kolmck/code@101 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
---
 KOL.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/KOL.pas b/KOL.pas
index 1d3b52a..3826885 100644
--- a/KOL.pas
+++ b/KOL.pas
@@ -14,7 +14,7 @@
   Key Objects Library (C) 2000 by Kladov Vladimir.
 
 ****************************************************************
-* VERSION 3.04++++
+* VERSION 3.04+5
 ****************************************************************
 
   K.O.L. - is a set of objects to create small programs
@@ -37351,13 +37351,13 @@ begin
     Buffer[ 0 ] := #0;
     Self_.Perform( EM_GETTEXTRANGE, 0, Integer( @Range ) );
     {$IFDEF UNICODE_CTRLS}
-    s := Buf_W[0]; //todo: check it!
+    s := Buf_W; //todo: check it!
     {$ELSE}
         {$IFDEF _D3orHigher}
         if  (Buffer[ 1 ] = #0) and (Range.chrg.cpMax - Range.chrg.cpMin > 1) then
             begin
             {$WARNINGS OFF}
-            s := Buf_W[ 0 ];
+            s := Buf_W;
             {$WARNINGS ON}
             end
         else