diff options
| -rw-r--r-- | src/corelib/fpg_main.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index 64c224d4..b341b0fd 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -371,6 +371,7 @@ function fpgRectToRect(const ARect: TfpgRect): TRect; procedure PrintRect(const Rect: TRect); procedure PrintRect(const Rect: TfpgRect); procedure PrintCoord(const x, y: TfpgCoord); +procedure PrintCoord(const pt: TPoint); function PrintCallTrace(const AClassName, AMethodName: string): IInterface; procedure PrintCallTraceDbgLn(const AMessage: string); procedure DumpStack; @@ -703,7 +704,12 @@ begin dec(iCallTrace); inherited Destroy; end; - + +procedure PrintCoord(const pt: TPoint); +begin + PrintCoord(pt.X, pt.Y); +end; + function PrintCallTrace(const AClassName, AMethodName: string): IInterface; begin Result := TPrintCallTrace.Create(AClassName, AMethodName); |