From e76dfaf3bd26d85a4f1b8b15a50a25047d005446 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 10 Feb 2006 12:15:21 +0000
Subject: [PATCH] fixed typo

git-svn-id: trunk@8725 -
---
 languages/lazaruside.de.po | 2 +-
 lcl/lclproc.pas            | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/languages/lazaruside.de.po b/languages/lazaruside.de.po
index f5d7703027..5f49a8c956 100644
--- a/languages/lazaruside.de.po
+++ b/languages/lazaruside.de.po
@@ -1514,7 +1514,7 @@ msgstr "Kopiere die Auswahl in die Zwischenablage"
 
 #: lazarusidestrconsts:dlgcopywordatcursoroncopynone
 msgid "Copy word on copy none"
-msgstr "Kopiere Wort wenn nichts ausgeweählt"
+msgstr "Kopiere Wort wenn nichts ausgewählt"
 
 #: lazarusidestrconsts:liscopyingawholeformisnotimplemented
 msgid "Copying a whole form is not implemented."
diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 130d52d7e4..195f8ee400 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -209,7 +209,7 @@ function DbgS(const i: int64): string; overload;
 function DbgS(const r: TRect): string; overload;
 function DbgS(const p: TPoint): string; overload;
 function DbgS(const p: pointer): string; overload;
-function DbgS(const e: extended): string; overload;
+function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
 function DbgS(const b: boolean): string; overload;
 function DbgSName(const p: TObject): string; overload;
 function DbgSName(const p: TClass): string; overload;
@@ -1352,9 +1352,9 @@ begin
   Result:=HexStr(PtrInt(p),2*sizeof(PtrInt));
 end;
 
-function DbgS(const e: extended): string;
+function DbgS(const e: extended; MaxDecimals: integer): string;
 begin
-  Result:=FloatToStr(e);
+  Result:=copy(FloatToStr(e),1,MaxDecimals);
 end;
 
 function DbgS(const b: boolean): string;