From ca93fe85e5d9d36a479170eb54a7d60720b80bd9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 15 Feb 2011 18:58:18 +0000
Subject: [PATCH] cody: fixed percent separator, bug #18758

git-svn-id: trunk@29563 -
---
 components/codetools/ide/ppulistdlg.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/ide/ppulistdlg.pas b/components/codetools/ide/ppulistdlg.pas
index 1f3f150288..e9649ca525 100644
--- a/components/codetools/ide/ppulistdlg.pas
+++ b/components/codetools/ide/ppulistdlg.pas
@@ -586,7 +586,7 @@ begin
   Result:=IntToStr(round(d*10000));
   while length(Result)<3 do Result:='0'+Result;
   Result:=copy(Result,1,length(Result)-2)
-          +DefaultFormatSettings.ThousandSeparator+RightStr(Result,2)+'%';
+          +DefaultFormatSettings.DecimalSeparator+RightStr(Result,2)+'%';
 end;
 
 function TPPUListDialog.BytesToStr(b: int64): string;