From fb0dc6ae2ba088fb3661a85a01cf6701197d6232 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Mon, 19 Mar 2018 08:18:44 +0000
Subject: [PATCH] * Correct logic for showing correct initial value editor

git-svn-id: trunk@57529 -
---
 components/fpreport/design/frmfpreportvariables.pp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/components/fpreport/design/frmfpreportvariables.pp b/components/fpreport/design/frmfpreportvariables.pp
index 7ae41a1cf0..4812a77131 100644
--- a/components/fpreport/design/frmfpreportvariables.pp
+++ b/components/fpreport/design/frmfpreportvariables.pp
@@ -250,7 +250,9 @@ end;
 function TReportVariablesForm.GetType: TResultType;
 begin
   if (CBType.ItemIndex in [ord(Low(TResultType))..ord(High(TResultType))]) then
-     Result:=TResultType(CBType.ItemIndex);
+    Result:=TResultType(CBType.ItemIndex)
+  else
+    Result:=rtString;
 end;
 
 function TReportVariablesForm.GetCurrentIsExpression: Boolean;
@@ -339,8 +341,12 @@ Var
   T : TResultType;
 
 begin
+  // First hide all
   For T in TResultType do
-    FValueControls[T].Visible:=(CBType.Itemindex=Ord(T));
+    FValueControls[T].Visible:=False;
+  // Show correct one.
+  // Need to do it like this, because float is used for different types...
+  FValueControls[GetType].Visible:=True;
 end;
 
 procedure TReportVariablesForm.SaveCurrentVariable;