e7d2031895
* contrib/make_b32_all.bat
* contrib/make_vc_all.bat
* contrib/Makefile
- contrib/telepath
+ contrib/hbtpathy
* contrib/hbtpathy/common.mak
* contrib/hbtpathy/Makefile
- contrib/what32
+ contrib/hbwhat32
- contrib/win32
+ contrib/hbw32
* contrib/hbw32/common.mak
* contrib/hbw32/Makefile
- contrib/adordd
+ contrib/hbrddado
- contrib/gtwvg
+ contrib/hbgtwvg
- contrib/rdd_ads
+ contrib/hbrddads
- contrib/tip
+ contrib/hbtip
* contrib/hbtip/common.mak
* contrib/hbtip/Makefile
- contrib/bmdbfcdx
+ contrib/hbbmcdx
* contrib/hbct/Makefile
* contrib/hbct/common.mak
* contrib/hbgt/common.mak
* contrib/hbgt/Makefile
* contrib/hbnf/common.mak
* contrib/hbnf/Makefile
* Contrib lib rename finished.
; Please report build (or other) problems.
148 lines
3.2 KiB
C
148 lines
3.2 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// What32
|
|
// ViewPort functions
|
|
|
|
#define HB_OS_WIN_32_USED
|
|
#define _WIN32_WINNT 0x0400
|
|
|
|
#include <windows.h>
|
|
#include "item.api"
|
|
#include "hbapi.h"
|
|
|
|
extern PHB_ITEM Rect2Array( RECT *rc );
|
|
extern BOOL Array2Rect(PHB_ITEM aRect, RECT *rc );
|
|
extern PHB_ITEM Point2Array( POINT *pt );
|
|
extern BOOL Array2Point(PHB_ITEM aPoint, SIZE *pt );
|
|
extern PHB_ITEM Size2Array( SIZE *siz );
|
|
extern BOOL Array2Size(PHB_ITEM aSize, SIZE *siz );
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI GetViewportExtEx( IN HDC, OUT LPSIZE);
|
|
|
|
// Syntax
|
|
// GetViewPortExtEx(hDC)->aSize, or NIL
|
|
|
|
HB_FUNC( GETVIEWPORTEXTEX )
|
|
{
|
|
SIZE siz ;
|
|
PHB_ITEM aSize ;
|
|
|
|
if ( GetViewportExtEx( (HDC) hb_parnl( 1 ), &siz ) )
|
|
{
|
|
aSize = Size2Array( &siz );
|
|
_itemReturn( aSize );
|
|
_itemRelease( aSize );
|
|
}
|
|
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI GetViewportOrgEx( IN HDC, OUT LPPOINT);
|
|
|
|
// Syntax
|
|
// GetViewportOrgEx(hDC) -> aOrigin, or NIL
|
|
|
|
HB_FUNC( GETVIEWPORTORGEX )
|
|
{
|
|
POINT pt ;
|
|
PHB_ITEM aPoint;
|
|
|
|
if ( GetViewportOrgEx( (HDC) hb_parnl( 1 ), &pt ) )
|
|
{
|
|
aPoint = Point2Array( &pt );
|
|
_itemReturn( aPoint );
|
|
_itemRelease( aPoint );
|
|
}
|
|
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI GetWindowExtEx( IN HDC, OUT LPSIZE);
|
|
|
|
// Syntax
|
|
// GetWindowExEx(hDC) -> aSize, or NIL
|
|
|
|
HB_FUNC( GETWINDOWEXTEX )
|
|
{
|
|
SIZE siz ;
|
|
PHB_ITEM aSize ;
|
|
|
|
if ( GetWindowExtEx( (HDC) hb_parnl( 1 ), &siz ) )
|
|
{
|
|
aSize = Size2Array( &siz );
|
|
_itemReturn( aSize );
|
|
_itemRelease( aSize );
|
|
}
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI ScaleViewportExtEx( IN HDC, IN int, IN int, IN int, IN int, OUT LPSIZE);
|
|
|
|
// Syntax
|
|
// ScaleViewport(hDC, xNum, xDeNum, yNum, yDeNum ) -> aOldSize, or NIL on failure
|
|
|
|
HB_FUNC( SCALEVIEWPORTEXTEX )
|
|
{
|
|
SIZE siz ;
|
|
PHB_ITEM aSize ;
|
|
|
|
if ( ScaleViewportExtEx( (HDC) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ),
|
|
hb_parni( 4 ) , hb_parni( 5 ), &siz ) )
|
|
{
|
|
aSize = Size2Array( &siz );
|
|
_itemReturn( aSize );
|
|
_itemRelease( aSize );
|
|
|
|
}
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI SetViewportExtEx( IN HDC, IN int, IN int, OUT LPSIZE);
|
|
|
|
// Syntax
|
|
// SetViewportExtEx( hDC, nXExt, nYExt ) -> aOldSize, or NIL
|
|
|
|
HB_FUNC( SETVIEWPORTEXTEX )
|
|
{
|
|
SIZE siz ;
|
|
PHB_ITEM aSize ;
|
|
|
|
if ( SetViewportExtEx( (HDC) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ), &siz ) )
|
|
{
|
|
aSize = Size2Array( &siz );
|
|
_itemReturn( aSize );
|
|
_itemRelease( aSize );
|
|
|
|
}
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINGDIAPI BOOL WINAPI SetViewportOrgEx( IN HDC, IN int, IN int, OUT LPPOINT);
|
|
|
|
// Syntax
|
|
// SetViewportOrgEx( hDC, X, Y) -> aOldOrg, or NIL on failure
|
|
|
|
HB_FUNC( SETVIEWPORTORGEX )
|
|
{
|
|
POINT pt ;
|
|
PHB_ITEM aPoint ;
|
|
|
|
if ( SetViewportOrgEx( (HDC) hb_parnl( 1 ),hb_parni( 2 ), hb_parni( 3 ), &pt ) )
|
|
{
|
|
aPoint = Point2Array( &pt );
|
|
_itemReturn( aPoint );
|
|
_itemRelease( aPoint );
|
|
|
|
}
|
|
}
|
|
|
|
|