From b59fae6eb9d505d812b370dac35fbbe64eb04e2a Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Thu, 15 Feb 2018 16:52:16 +0100
Subject: [PATCH] Reverted changes from prior commit as the new fix is cleaner

---
 X2Log.Observer.MonitorForm.dfm |  7 +++----
 X2Log.Observer.MonitorForm.pas | 10 +---------
 2 files changed, 4 insertions(+), 13 deletions(-)

diff --git a/X2Log.Observer.MonitorForm.dfm b/X2Log.Observer.MonitorForm.dfm
index f9e40c6..b4b7300 100644
--- a/X2Log.Observer.MonitorForm.dfm
+++ b/X2Log.Observer.MonitorForm.dfm
@@ -114,7 +114,6 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
         ScrollBars = ssBoth
         TabOrder = 0
         Visible = False
-        ExplicitHeight = 451
       end
       object sbDetailsImage: TScrollBox
         Left = 0
@@ -233,7 +232,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
         end
         item
           Position = 3
-          Width = 354
+          Width = 358
           WideText = 'Message'
         end>
     end
@@ -267,7 +266,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
         Left = 116
         Top = 0
         Width = 46
-        Height = 22
+        Height = 13
         Caption = '    Filter:  '
         Layout = tlCenter
       end
@@ -318,7 +317,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
     Left = 448
     Top = 48
     Bitmap = {
-      494C01010A004000080110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C01010A0040000C0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000003000000001002000000000000030
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
diff --git a/X2Log.Observer.MonitorForm.pas b/X2Log.Observer.MonitorForm.pas
index 74eb1c7..89bb3b0 100644
--- a/X2Log.Observer.MonitorForm.pas
+++ b/X2Log.Observer.MonitorForm.pas
@@ -800,15 +800,7 @@ begin
   if Assigned(AControl) then
   begin
     AControl.BringToFront;
-
-    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;
+    AControl.Visible := True;
   end;
 
   reDetails.Visible := (AControl = reDetails);