void wvt_Rect2ArrayEx( RECT * rc, PHB_ITEM aRect )
{
hb_arraySetNL( aRect, 1, rc->left );
hb_arraySetNL( aRect, 2, rc->top );
hb_arraySetNL( aRect, 3, rc->right );
hb_arraySetNL( aRect, 4, rc->bottom );
}
PHB_ITEM wvt_Size2Array( SIZE * siz )
{
PHB_ITEM aSize = hb_itemArrayNew( 2 );
hb_arraySetNL( aSize, 1, siz->cx );
hb_arraySetNL( aSize, 2, siz->cy );
return aSize;
}
PHB_ITEM wvt_Point2Array( POINT * pt )
{
PHB_ITEM aPoint = hb_itemArrayNew( 2 );
hb_arraySetNL( aPoint, 1, pt->x );
hb_arraySetNL( aPoint, 2, pt->y );
return aPoint;
}
PHB_ITEM wvt_Rect2Array( RECT * rc )
{
PHB_ITEM aRect = hb_itemArrayNew( 4 );
hb_arraySetNL( aRect, 1, rc->left );
hb_arraySetNL( aRect, 2, rc->top );
hb_arraySetNL( aRect, 3, rc->right );
hb_arraySetNL( aRect, 4, rc->bottom );
return aRect;
}
void hbwapi_stor_POINT( POINT * p, int iParam )
{
PHB_ITEM pStru = hb_param( iParam, HB_IT_ANY );
if( pStru && HB_IS_HASH( pStru ) )
{
s_hb_hashSetCItemNL( pStru, "x", p->x );
s_hb_hashSetCItemNL( pStru, "y", p->y );
}
else if( pStru && HB_IS_ARRAY( pStru ) && hb_arrayLen( pStru ) >= 2 )
{
hb_arraySetNL( pStru, 1, p->x );
hb_arraySetNL( pStru, 2, p->y );
}
}
void hbwapi_stor_RECT( RECT * p, int iParam )
{
PHB_ITEM pStru = hb_param( iParam, HB_IT_ANY );
if( pStru && HB_IS_HASH( pStru ) )
{
s_hb_hashSetCItemNL( pStru, "left" , p->left );
s_hb_hashSetCItemNL( pStru, "top" , p->top );
s_hb_hashSetCItemNL( pStru, "right" , p->right );
s_hb_hashSetCItemNL( pStru, "bottom", p->bottom );
}
else if( pStru && HB_IS_ARRAY( pStru ) && hb_arrayLen( pStru ) >= 4 )
{
hb_arraySetNL( pStru, 1, p->left );
hb_arraySetNL( pStru, 2, p->top );
hb_arraySetNL( pStru, 3, p->right );
hb_arraySetNL( pStru, 4, p->bottom );
}
}
static int CALLBACK FontEnumCallBack( LOGFONT * lplf, TEXTMETRIC * lpntm,
DWORD dwFontType, LPVOID pArray )
{
PHB_ITEM pSubItems = hb_itemArrayNew( 4 );
HB_ARRAYSETSTR( pSubItems, 1, lplf->lfFaceName );
hb_arraySetL( pSubItems, 2, ( lplf->lfPitchAndFamily & FIXED_PITCH ) != 0 );
hb_arraySetL( pSubItems, 3, ( dwFontType & TRUETYPE_FONTTYPE ) != 0 );
hb_arraySetNL( pSubItems, 4, lpntm->tmCharSet );
hb_arrayAddForward( ( PHB_ITEM ) pArray, pSubItems );
hb_itemRelease( pSubItems );
return 1;
}
PHB_ITEM wvg_logfontTOarray( LPLOGFONT lf, HB_BOOL bEmpty )
{
PHB_ITEM aFont = hb_itemNew( NULL );
hb_arrayNew( aFont, 15 );
if( bEmpty )
{
hb_arraySetC( aFont, 1, NULL );
hb_arraySetNL( aFont, 2, 0 );
hb_arraySetNL( aFont, 3, 0 );
hb_arraySetNL( aFont, 4, 0 );
hb_arraySetL( aFont, 5, 0 );
hb_arraySetL( aFont, 6, 0 );
hb_arraySetL( aFont, 7, 0 );
hb_arraySetNI( aFont, 8, 0 );
hb_arraySetNI( aFont, 9, 0 );
hb_arraySetNI( aFont, 10, 0 );
hb_arraySetNI( aFont, 11, 0 );
hb_arraySetNI( aFont, 12, 0 );
hb_arraySetNI( aFont, 13, 0 );
hb_arraySetNI( aFont, 14, 0 );
hb_arraySetNInt( aFont, 15, 0 );
}
else
{
HB_ARRAYSETSTR( aFont, 1, lf->lfFaceName );
hb_arraySetNL( aFont, 2, lf->lfHeight );
hb_arraySetNL( aFont, 3, lf->lfWidth );
hb_arraySetNL( aFont, 4, lf->lfWeight );
hb_arraySetL( aFont, 5, lf->lfItalic );
hb_arraySetL( aFont, 6, lf->lfUnderline );
hb_arraySetL( aFont, 7, lf->lfStrikeOut );
hb_arraySetNI( aFont, 8, lf->lfCharSet );
hb_arraySetNI( aFont, 9, lf->lfEscapement );
hb_arraySetNI( aFont, 10, lf->lfOrientation );
hb_arraySetNI( aFont, 11, lf->lfOutPrecision );
hb_arraySetNI( aFont, 12, lf->lfClipPrecision );
hb_arraySetNI( aFont, 13, lf->lfQuality );
hb_arraySetNI( aFont, 14, lf->lfPitchAndFamily );
}
return aFont;
}
void wvt_Size2ArrayEx( SIZE * siz, PHB_ITEM aSize )
{
hb_arraySetNL( aSize, 1, siz->cx );
hb_arraySetNL( aSize, 2, siz->cy );
}
void wvt_Point2ArrayEx( POINT * pt, PHB_ITEM aPoint )
{
hb_arraySetNL( aPoint, 1, pt->x );
hb_arraySetNL( aPoint, 2, pt->y );
}
