diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-30 22:58:09 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-30 23:09:53 +0200 |
| commit | 8a354aca4f68f063905e698ffe5081c5e1f2d71d (patch) | |
| tree | dc634dd4b1a2cee632f9afd9c30cb9887a5f1c6a /src/corelib/gdi/fpg_gdi.pas | |
| parent | c09c7fcf5e48fee76bc53d2fd4e6d1018f6d47d4 (diff) | |
| download | fpGUI-8a354aca4f68f063905e698ffe5081c5e1f2d71d.tar.xz | |
debug: replaced debug writeln() statements with SendDebug() calls.
Debugging with the debug server is much easier than looking at command line
output.
Diffstat (limited to 'src/corelib/gdi/fpg_gdi.pas')
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index 513ab71a..abeecbca 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -40,7 +40,7 @@ uses fpg_base, fpg_impl {$IFDEF DEBUG} - ,dbugintf + ,fpg_dbugintf {$ENDIF DEBUG} ,fpg_OLEDragDrop ; @@ -877,7 +877,7 @@ begin begin {$IFDEF DEBUG} if uMsg <> WM_MOUSEMOVE then - writeln('fpGFX/GDI: Found a mouse button event'); + SendDebug('fpGFX/GDI: Found a mouse button event'); {$ENDIF} // msgp.mouse.x := smallint(lParam and $FFFF); // msgp.mouse.y := smallint((lParam and $FFFF0000) shr 16); @@ -1413,7 +1413,7 @@ var wg: TfpgWidget; begin {$IFDEF DND_DEBUG} - writeln('TfpgGDIWindow.HandleDNDLeave '); + SendDebug('TfpgGDIWindow.HandleDNDLeave '); {$ENDIF} FUserMimeSelection := ''; wg := self as TfpgWidget; @@ -1437,7 +1437,7 @@ var msgp: TfpgMessageParams; begin {$IFDEF DND_DEBUG} - writeln('TfpgGDIWindow.HandleDNDEnter '); + SendDebug('TfpgGDIWindow.HandleDNDEnter '); {$ENDIF} wg := self as TfpgWidget; if wg.AcceptDrops then @@ -1500,7 +1500,7 @@ begin if FDropPos <> PT then begin {$IFDEF DND_DEBUG} - writeln('TfpgGDIWindow.HandleDNDPosition '); + SendDebug('TfpgGDIWindow.HandleDNDPosition '); {$ENDIF} FDropPos.x := PT.x; FDropPos.y := PT.y; @@ -1526,7 +1526,7 @@ begin exit; {$IFDEF DND_DEBUG} - Writeln('TfpgGDIWindow.HandleDNDDrop'); + SendDebug('TfpgGDIWindow.HandleDNDDrop'); {$ENDIF} wg := self as TfpgWidget; |