From 71b470a98c22a30c1e4e1f9389fb0fbb3dd59a41 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 5 Sep 2001 04:45:57 +0000
Subject: [PATCH] New functions added

---
 harbour/contrib/hgf/win32/win32.c | 97 +++++++++++++++++++++++++++++--
 1 file changed, 91 insertions(+), 6 deletions(-)

diff --git a/harbour/contrib/hgf/win32/win32.c b/harbour/contrib/hgf/win32/win32.c
index b324135d15..e8fc7e3f4f 100644
--- a/harbour/contrib/hgf/win32/win32.c
+++ b/harbour/contrib/hgf/win32/win32.c
@@ -89,15 +89,15 @@ HB_FUNC( WINCREATESTDWINDOW )
                         GetModuleHandle( NULL ), NULL) );
 }
 
-HB_FUNC( HB_PM_SHOWMODAL )
+HB_FUNC( HB_FORMSHOWMODAL )
 {
    MSG  msg;
 
-   ShowWindow( (HWND) hb_parnl( 1 ),1 );
-   while (GetMessage( &msg, NULL, 0, 0) )
+   ShowWindow( ( HWND ) hb_parnl( 1 ), 1 );
+   while( GetMessage( &msg, NULL, 0, 0 ) )
    {
-      TranslateMessage (&msg) ;
-      DispatchMessage (&msg) ;
+      TranslateMessage( &msg );
+      DispatchMessage( &msg );
    }
 }
 
@@ -239,4 +239,89 @@ HB_FUNC( NLOWORD )
 HB_FUNC( NHIWORD )
 {
    hb_retnl( HIWORD( hb_parnl( 1 ) ) );
-}
\ No newline at end of file
+}
+
+HB_FUNC( WINGETWIDTH )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   hb_retnl( rct.right - rct.left );
+}
+
+HB_FUNC( WINSETWIDTH )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   MoveWindow( hWnd, rct.left, rct.top, hb_parnl( 2 ),
+               rct.bottom - rct.top, TRUE );
+}
+
+HB_FUNC( WINGETHEIGHT )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   hb_retnl( rct.bottom - rct.top );
+}
+
+HB_FUNC( WINSETHEIGHT )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   MoveWindow( hWnd, rct.left, rct.top, rct.right - rct.left,
+               hb_parnl( 2 ), TRUE );
+}
+
+HB_FUNC( WINGETTOP )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   hb_retnl( rct.top );
+}
+
+HB_FUNC( WINSETTOP )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   MoveWindow( hWnd, rct.left, hb_parnl( 2 ), rct.right - rct.left,
+               rct.bottom - rct.top, TRUE );
+}
+
+
+HB_FUNC( WINGETLEFT )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   hb_retnl( rct.left );
+}
+
+HB_FUNC( WINSETLEFT )
+{
+   HWND hWnd = ( HWND ) hb_parnl( 1 );
+   RECT rct;
+
+   GetWindowRect( hWnd, &rct );
+
+   MoveWindow( hWnd, hb_parnl( 2 ), rct.top, rct.right - rct.left,
+               rct.bottom - rct.top, TRUE );
+}