From 05af6f9a4fb00dc56301509c4ecf475c3987fbbb Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Mon, 19 Feb 2024 22:56:05 +0100
Subject: [PATCH] IdeDebugger: Change precision used for float types. issue
 #40768

---
 ide/packages/idedebugger/idedebuggerwatchresprinter.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/packages/idedebugger/idedebuggerwatchresprinter.pas b/ide/packages/idedebugger/idedebuggerwatchresprinter.pas
index b8498112a0..2af7b291c0 100644
--- a/ide/packages/idedebugger/idedebuggerwatchresprinter.pas
+++ b/ide/packages/idedebugger/idedebuggerwatchresprinter.pas
@@ -457,9 +457,9 @@ begin
     end;
     rdkFloatVal: begin
       case AResValue.FloatPrecission of
-        dfpSingle:   Result := FloatToStrF(AResValue.AsFloat, ffGeneral,  8, 0);
-        dfpDouble:   Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 12, 0);
-        dfpExtended: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 15, 0);
+        dfpSingle:   Result := FloatToStrF(AResValue.AsFloat, ffGeneral,  9, 0);
+        dfpDouble:   Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 17, 0);
+        dfpExtended: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 21, 0);
       end;
     end;
     rdkChar:       Result := PrintChar;