diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-18 09:25:07 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-18 09:25:07 +0200 |
commit | 98fef4daeeeb4a3a89d01c977eed58399bff187c (patch) | |
tree | aab87856dfae88c560d2f60e4e121cd0e4054b11 /examples/apps | |
parent | aba5255674e2ca93c347a4e9115eb410ed5b3065 (diff) | |
download | fpGUI-98fef4daeeeb4a3a89d01c977eed58399bff187c.tar.xz |
ide: hide debugsvr calls inside IFDEF statements
Diffstat (limited to 'examples/apps')
-rw-r--r-- | examples/apps/ide/src/frm_main.pas | 9 |
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; |