diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-21 09:15:02 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-21 09:15:02 +0200 |
| commit | bc7e3c21ee53986a53535013638ea267abca2f3d (patch) | |
| tree | f84b18a88039c9f7a984fba3eb796b4d277d63ef | |
| parent | 6a38a1bda815f0a40ab4fc16172da215d1a64186 (diff) | |
| download | fpGUI-bc7e3c21ee53986a53535013638ea267abca2f3d.tar.xz | |
new overloaded version of PrintCoord() helper procedure.
| -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); |