1 files changed, 8 insertions, 1 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index 85b1258b..150a6ecc 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -127,7 +127,9 @@ uses
   ,Project
   ,UnitList
   ,BuilderThread
+  {$IFDEF DEBUGSVR}
   ,dbugintf
+  {$ENDIF}
   ,ideutils
   ;
 
@@ -770,7 +772,9 @@ begin
   inherited Create(AOwner);
   OnShow  := @FormShow;
   OnClose := @FormClose;
+  {$IFDEF DEBUGSVR}
   SendDebug('TMainForm.Create');
+  {$ENDIF}
 end;
 
 destructor TMainForm.Destroy;
@@ -781,7 +785,9 @@ end;
 
 procedure TMainForm.AfterCreate;
 begin
+  {$IFDEF DEBUGSVR}
   SendMethodEnter('TMainForm.AfterCreate');
+  {$ENDIF}
   {%region 'Auto-generated GUI code' -fold}
   {@VFD_BODY_BEGIN: MainForm}
   Name := 'MainForm';
@@ -1269,8 +1275,9 @@ begin
   FRecentFiles.ShowFullPath    := gINI.ReadBool('Options', 'ShowFullPath', True);
   FRecentFiles.LoadMRU;
 
-
+  {$IFDEF DEBUGSVR}
   SendMethodExit('TMainForm.AfterCreate');
+  {$ENDIF}
 end;