From b90196f307199c3735edc0f1762cbaf8e90108b8 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 2 Nov 2010 09:54:49 +0000
Subject: [PATCH] ideintf: strings property editor: count characters instead of
 bytes (issue #17753)

git-svn-id: trunk@28036 -
---
 ideintf/stringspropeditdlg.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ideintf/stringspropeditdlg.pas b/ideintf/stringspropeditdlg.pas
index 0b0d36a037..45cc90b21c 100644
--- a/ideintf/stringspropeditdlg.pas
+++ b/ideintf/stringspropeditdlg.pas
@@ -22,7 +22,7 @@ unit StringsPropEditDlg;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Buttons, Dialogs, StdCtrls,
+  Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Dialogs, StdCtrls,
   TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel;
   
 type
@@ -64,7 +64,7 @@ var
   I: Integer;
 begin
   NumChars := 0;
-  for I := 0 to Memo.Lines.Count - 1 do Inc(NumChars, Length(Memo.Lines[I]));
+  for I := 0 to Memo.Lines.Count - 1 do Inc(NumChars, Utf8Length(Memo.Lines[I]));
 
   if Memo.Lines.Count = 1 then
     StatusLabel.Caption := Format(ois1LineDChars, [NumChars])