summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/corelib/gdi/fpg_gdi.pas12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index 93d3a9ed..f1372928 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -2255,8 +2255,10 @@ var
c: longword;
begin
c := Windows.GetPixel(FWinGC, X, Y);
+ {$IFDEF DEBUG}
if c = CLR_INVALID then
- Writeln('fpGFX/GDI: TfpgGDICanvas.GetPixel returned an invalid color');
+ SendDebug('fpGFX/GDI: TfpgGDICanvas.GetPixel returned an invalid color');
+ {$ENDIF}
Result := WinColorTofpgColor(c);
end;
@@ -2972,7 +2974,7 @@ end;
destructor TfpgGDIDrag.Destroy;
begin
{$IFDEF DND_DEBUG}
- writeln('TfpgGDIDrag.Destroy ');
+ SendDebug('TfpgGDIDrag.Destroy ');
{$ENDIF}
inherited Destroy;
end;
@@ -2994,14 +2996,14 @@ begin
if FDragging then
begin
{$IFDEF DND_DEBUG}
- writeln('TfpgGDIDrag.Execute (already dragging)');
+ SendDebug('TfpgGDIDrag.Execute (already dragging)');
{$ENDIF}
Result := daIgnore;
end
else
begin
{$IFDEF DND_DEBUG}
- writeln('TfpgGDIDrag.Execute (new drag)');
+ SendDebug('TfpgGDIDrag.Execute (new drag)');
{$ENDIF}
FDragging := True;
wapplication.Drag := self;
@@ -3016,7 +3018,7 @@ begin
{$Note OLE DND: We are only handling strings at the moment, this needs to be extended to other types too }
itm := FMimeData[i];
{$IFDEF DND_DEBUG}
- writeln(' Processing mime-type: ', itm.Format);
+ SendDebug(' Processing mime-type: ', itm.Format);
{$ENDIF}
{ description of data we are sending }