From d644e38ff81f2e7002dd859c1916a423b79b42ca Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Thu, 18 Dec 2008 08:00:28 +0000
Subject: [PATCH] traceform was not so well hidden :)

---
 2.10/Source/Main.dfm   | 4 ++++
 2.10/Source/Tracer.pas | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm
index 49e9302..f814002 100644
--- a/2.10/Source/Main.dfm
+++ b/2.10/Source/Main.dfm
@@ -290,15 +290,19 @@ object MainForm: TMainForm
       Left = 571
       Top = 0
       Width = 8
+      Enabled = False
       ImageIndex = 39
       Style = tbsSeparator
+      Visible = False
     end
     object tbShowTrace: TToolButton
       Left = 579
       Top = 0
       Hint = 'Show trace window'
       Caption = 'tbShowTrace'
+      Enabled = False
       ImageIndex = 38
+      Visible = False
       OnClick = tbShowTraceClick
     end
   end
diff --git a/2.10/Source/Tracer.pas b/2.10/Source/Tracer.pas
index 330d2b6..8a96c99 100644
--- a/2.10/Source/Tracer.pas
+++ b/2.10/Source/Tracer.pas
@@ -95,12 +95,18 @@ begin
         TraceLevel := Registry.ReadInteger('TraceLevel')
       else
         TraceLevel := 0;
+      MainForm.tbShowTrace.Visible := true;
+      MainForm.tbShowTrace.Enabled := true;
+      MainForm.tbTraceSeparator.Visible := true;
+      MainForm.tbTraceSeparator.Enabled := true;
 
 {$else} // Tracer disabled in release version
 
       TraceLevel := 0;
       MainForm.tbShowTrace.Visible := false;
+      MainForm.tbShowTrace.Enabled := false;
       MainForm.tbTraceSeparator.Visible := false;
+      MainForm.tbTraceSeparator.Enabled := false;
 
 {$endif}