From 5a1f62c3b4370cc070111357e18b75b0f2dcebef Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 5 Sep 2001 04:43:16 +0000
Subject: [PATCH] Added new properties Top, Left, Height and Width.

---
 harbour/contrib/hgf/win32/tform.prg | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/harbour/contrib/hgf/win32/tform.prg b/harbour/contrib/hgf/win32/tform.prg
index 38d0c9aec0..f0e8c95837 100644
--- a/harbour/contrib/hgf/win32/tform.prg
+++ b/harbour/contrib/hgf/win32/tform.prg
@@ -75,12 +75,23 @@ CLASS TForm FROM TPersistent
    METHOD    HandleEvent( nMsg, nParam1, nParam2 )
    METHOD    ShowModal()
 
-   METHOD    Caption() INLINE WinGetText( ::hWnd ) PROPERTY
-
+   ACCESS    Caption() INLINE WinGetText( ::hWnd ) PROPERTY
    ASSIGN    Caption( cNewCaption ) INLINE ;
                 WinSetWindowText( ::hWnd, cNewCaption )
 
-   METHOD    Menu() INLINE ::oMainMenu PROPERTY
+   ACCESS    Top()    INLINE WinGetTop( ::hWnd )    PROPERTY
+   ASSIGN    Top( nNewTop ) INLINE WinSetTop( ::hWnd, nNewTop )
+
+   ACCESS    Left()   INLINE WinGetLeft( ::hWnd )   PROPERTY
+   ASSIGN    Left( nNewLeft ) INLINE WinSetLeft( ::hWnd, nNewLeft )
+
+   ACCESS    Height() INLINE WinGetHeight( ::hWnd ) PROPERTY
+   ASSIGN    Height( nNewHeight ) INLINE WinSetHeight( ::hWnd, nNewHeight )
+
+   ACCESS    Width()  INLINE WinGetWidth( ::hWnd )  PROPERTY
+   ASSIGN    Width( nNewWidth ) INLINE WinSetWidth( ::hWnd, nNewWidth )
+
+   ACCESS    Menu() INLINE ::oMainMenu PROPERTY
    ASSIGN    Menu( oNewMenu )
 
 ENDCLASS
@@ -134,7 +145,7 @@ return nil
 
 METHOD ShowModal() CLASS TForm
 
-   HB_PM_ShowModal( ::hWnd )
+   HB_FormShowModal( ::hWnd )
 
 return nil