diff options
| -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 |