diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-11-15 12:57:29 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-11-15 12:57:29 +0200 |
| commit | 4aa35767f025c7142c3a19ec0eaeee100edd7e33 (patch) | |
| tree | c08152b3a8932c54958be5e9df4a1427c7a92ce1 /src/gui | |
| parent | 547a05ba9eceead51932a4d107edbf8af478154e (diff) | |
| download | fpGUI-4aa35767f025c7142c3a19ec0eaeee100edd7e33.tar.xz | |
Fixed compiler errors when DEBUG define is defined globally.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/fpg_form.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas index a0cd1e98..0e1dc3c5 100644 --- a/src/gui/fpg_form.pas +++ b/src/gui/fpg_form.pas @@ -205,12 +205,12 @@ end; procedure TfpgBaseForm.MsgActivate(var msg: TfpgMessageRec); begin {$IFDEF DEBUG} - SendDebug(Classname + ' ' + Name + '.BaseForm - MsgActivate'); + DebugLn(Classname + ' ' + Name + '.BaseForm - MsgActivate'); {$ENDIF} if (fpgApplication.TopModalForm = nil) or (fpgApplication.TopModalForm = self) then begin {$IFDEF DEBUG} - SendDebug('Inside if block'); + DebugLn('Inside if block'); {$ENDIF} FocusRootWidget := self; @@ -434,7 +434,7 @@ var itf: IInterface; {$ENDIF} begin - {$IFDEF Debug} + {$IFDEF CStackDebug} itf := DebugMethodEnter('TfpgBaseForm.HandleKeyPress - ' + ClassName + ' ('+Name+')'); {$ENDIF} // find the TfpgMenuBar |