ide: hide debug button and messages via DEBUGSVR compiler define

2 files changed, 35 insertions, 29 deletions

diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index 5c56a33e..dacacc2a 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -22,7 +22,6 @@ type
     btnOpen: TfpgButton;
     btnSave: TfpgButton;
     btnSaveAll: TfpgButton;
-    btnTest: TfpgButton;
     pnlStatusBar: TfpgBevel;
     lblStatus: TfpgLabel;
     pnlClientArea: TfpgBevel;
@@ -52,6 +51,9 @@ type
     mnuSettings: TfpgPopupMenu;
     mnuHelp: TfpgPopupMenu;
     {@VFD_HEAD_END: MainForm}
+    {$ifdef DEBUGSVR}
+    btnTest: TfpgButton;
+    {$endif}
     pmOpenRecentMenu: TfpgPopupMenu;
     miRecentProjects: TfpgMenuItem;
     FRecentFiles: TfpgMRU;
@@ -773,12 +775,14 @@ var
   s: TfpgString;
   r: TfpgString;
 begin
+  {$ifdef DEBUGSVR}
   TempHourGlassCursor(TfpgWidget(self));
   s := cMacro_Compiler + ' -FU' +cMacro_Target+' -Fu' + cMacro_FPGuiLibDir;
-//  writeln('source string = ', s);
+  SendDebug('source string = ' + s);
   r := GMacroList.ExpandMacro(s);
-//  writeln('expanded string = ', r);
+  SendDebug('expanded string = ' + r);
   sleep(5000);
+  {$endif}
 end;
 
 function TMainForm.GetUnitsNode: TfpgTreeNode;
@@ -1283,20 +1287,6 @@ begin
     TabOrder := 6;
   end;
 
-  btnTest := TfpgButton.Create(Toolbar);
-  with btnTest do
-  begin
-    Name := 'btnTest';
-    SetPosition(168, 2, 80, 24);
-    Text := 'test';
-    Down := False;
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 7;
-    OnClick := @miTest;
-  end;
-
   pnlStatusBar := TfpgBevel.Create(self);
   with pnlStatusBar do
   begin
@@ -1659,6 +1649,20 @@ begin
   FRecentFiles.LoadMRU;
 
   {$IFDEF DEBUGSVR}
+  btnTest := TfpgButton.Create(Toolbar);
+  with btnTest do
+  begin
+    Name := 'btnTest';
+    SetPosition(168, 2, 80, 24);
+    Text := 'test';
+    Down := False;
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := '';
+    TabOrder := 7;
+    OnClick := @miTest;
+  end;
+
   SendMethodExit('TMainForm.AfterCreate');
   {$ENDIF}
 end;
diff --git a/examples/apps/ide/src/maximus.project b/examples/apps/ide/src/maximus.project
index 8c2f4261..6dab3088 100644
--- a/examples/apps/ide/src/maximus.project
+++ b/examples/apps/ide/src/maximus.project
@@ -3,16 +3,16 @@ ProjectName=maximus.project
 MainUnit=maximus.lpr
 TargetFile=maximus${EXEEXT}
 DefaultMake=0
-MakeOptionsCount=5
+MakeOptionsCount=6
 MakeOptionEnabled1=1,1,1,1,1,1
 MakeOptionEnabled2=1,1,1,1,1,0
-MakeOptionEnabled3=0,1,0,0,0,1
+MakeOptionEnabled3=1,1,0,0,0,1
 MakeOptionEnabled4=0,0,0,0,1,1
-MacroCount=6
-Macro1=TargetCPU=x86_64
-Macro2=TargetOS=linux
-Macro3=TargetCPU=i386
-Macro4=TargetOS=win32
+MacroCount=4
+Macro1=TargetCPU=i386
+Macro2=TargetOS=win32
+Macro3=FPGUI_DIR=/home/graemeg/programming/fpgui/
+Macro4=tiOPF_fpGUI_Dir=/home/graemeg/programming/3rdParty/tiOPF2/src/
 Macro5=FPGUI_DIR=/home/graemeg/programming/fpgui/
 Macro6=tiOPF_fpGUI_Dir=/home/graemeg/programming/3rdParty/tiOPF2/src/
 UnitDirsCount=7
@@ -26,11 +26,13 @@ UnitDirEnabled7=0,0,0,0,1,1,1,0,0,0
 UnitDirEnabled8=0,0,0,0,0,1,1,0,0,0
 UnitOutputDir=units/${TARGET}/
 MakeOptionEnabled5=1,0,0,0,0,0
+MakeOptionEnabled6=0,0,0,0,0,0
 MakeOption1=-l -Mobjfpc -Sch
 MakeOption2=-g -gl -O- -gw2 -godwarfsets
 MakeOption3=-B
 MakeOption4=-O2 -XX -Xs -CX
 MakeOption5=-veiw
+MakeOption6=-dDEBUGSVR
 UnitDir1=${FPGUIDIR}src/
 UnitDir2=${FPGUIDIR}src/corelib/
 UnitDir3=${FPGUIDIR}src/corelib/x11/
@@ -43,21 +45,21 @@ UnitDir7=${FPGUILIBDIR}
 UnitCount=20
 Unit1=builderthread.pas,0
 Unit2=filemonitor.pas,0
-Unit3=fpg_textedit.pas,0
+Unit3=fpg_textedit.pas,-1
 Unit4=frm_configureide.pas,0
 Unit5=frm_debug.pas,0
 Unit6=frm_find.pas,-1
 Unit7=frm_main.pas,-1
-Unit8=frm_procedurelist.pas,0
-Unit9=frm_projectoptions.pas,0
+Unit8=frm_procedurelist.pas,-1
+Unit9=frm_projectoptions.pas,-1
 Unit10=ideconst.pas,0
 Unit11=ideimages.pas,0
-Unit12=idemacros.pas,0
+Unit12=idemacros.pas,-1
 Unit13=ideutils.pas,0
 Unit14=maximus.lpr,0
 Unit15=mPasLex.pas,0
 Unit16=project.pas,-1
 Unit17=sha1.pas,0
 Unit18=stringhelpers.pas,0
-Unit19=synregexpr.pas,-1
+Unit19=synregexpr.pas,0
 Unit20=unitlist.pas,0