From 9cfd930f4625f115cf1be92b96368800bd035da4 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 22 Feb 2009 19:43:06 +0000
Subject: [PATCH] LCL/UTF-8: fix UTF8FindNearestCharStart (it kept looking at
 the 1st char in the string, assuming wrong start positions for others)

git-svn-id: trunk@18797 -
---
 lcl/lclproc.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index e92bfb2296..e6ca4557b4 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3227,6 +3227,7 @@ begin
       if (BytePos<0) then exit;
       inc(Result,CharLen);
       if (BytePos=0) then exit;
+      inc(UTF8Str,CharLen);
     end;
   end;
 end;