summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2014-03-11 16:15:30 +0000
committerGraeme Geldenhuys <graemeg@gmail.com>2014-07-15 12:00:43 +0100
commit5250f2f9d149177fb949a734726d59f49317c3b6 (patch)
treef843015eb9775680ac5234bf6e11c7c8092e20f8
parent4230f1f68f80a97bb0f55b5b0a2a5b50cc147469 (diff)
downloadfpGUI-5250f2f9d149177fb949a734726d59f49317c3b6.tar.xz
Removes WriteLn() statement in GDI backend
Us SendDebug() instead - which means it will not cause a problem on Windows non-console applications.
-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 }