From 7fe3eb65180b16fe4f5eacf57ee7f839b430ecd5 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Wed, 27 Dec 2017 14:01:10 +0100
Subject: [PATCH] Fixed #6: Text details not shown when first selecting

---
 X2Log.Observer.MonitorForm.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/X2Log.Observer.MonitorForm.pas b/X2Log.Observer.MonitorForm.pas
index 8e475c2..124c538 100644
--- a/X2Log.Observer.MonitorForm.pas
+++ b/X2Log.Observer.MonitorForm.pas
@@ -780,11 +780,22 @@ end;
 
 
 procedure TX2LogObserverMonitorForm.SetVisibleDetails(AControl: TControl);
+var
+  text: string;
+
 begin
   if Assigned(AControl) then
   begin
     AControl.BringToFront;
-    AControl.Visible := True;
+
+    if (AControl = reDetails) and (not reDetails.HandleAllocated) then
+    begin
+      // TRichEdit clears it's text when it is first shown, at least on Delphi XE2
+      text := reDetails.Text;
+      reDetails.Visible := True;
+      reDetails.Text := text;
+    end else
+      AControl.Visible := True;
   end;
 
   reDetails.Visible := (AControl = reDetails);