1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index eabce751..4cfdf4cb 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -289,6 +289,7 @@ function  fpgRect(ALeft, ATop, AWidth, AHeight: integer): TfpgRect;
 // Debug rountines
 procedure PrintRect(var Rect: TRect);
 procedure PrintRect(var Rect: TfpgRect);
+procedure PrintCoord(const x, y: TfpgCoord);
 procedure DumpStack;
 
 
@@ -470,6 +471,11 @@ begin
       ' bottom=', Rect.Bottom, ' width=', Rect.Width, ' height=', Rect.Height);
 end;
 
+procedure PrintCoord(const x, y: TfpgCoord);
+begin
+  writeln('x=', x, '  y=', y);
+end;
+
 procedure DumpStack;
 begin
   writeln(' Stack trace:');