static LPTSTR s_StringList( int iParam )
{
PHB_ITEM pItem = hb_param( iParam, HB_IT_ARRAY | HB_IT_STRING ), pArrItem;
LPTSTR lpStr = NULL;
if( pItem )
{
HB_SIZE nLen, nSize, nTotal, n, n1;
if( HB_IS_ARRAY( pItem ) )
{
nSize = hb_arrayLen( pItem );
for( n = nLen = 0; n < nSize; ++n )
{
pArrItem = hb_arrayGetItemPtr( pItem, n + 1 );
if( HB_IS_STRING( pArrItem ) )
{
n1 = HB_ITEMCOPYSTR( pArrItem, NULL, 0 );
if( n1 )
nLen += n1 + 1;
}
}
if( nLen )
{
nTotal = nLen + 1;
lpStr = ( LPTSTR ) hb_xgrab( nTotal * sizeof( TCHAR ) );
for( n = nLen = 0; n < nSize; ++n )
{
pArrItem = hb_arrayGetItemPtr( pItem, n + 1 );
if( HB_IS_STRING( pArrItem ) )
{
n1 = HB_ITEMCOPYSTR( pArrItem,
lpStr + nLen, nTotal - nLen );
if( n1 )
nLen += n1 + 1;
}
}
lpStr[ nLen ] = 0;
}
}
else
{
nLen = HB_ITEMCOPYSTR( pItem, NULL, 0 );
if( nLen )
{
lpStr = ( LPTSTR ) hb_xgrab( ( nLen + 1 ) * sizeof( TCHAR ) );
HB_ITEMCOPYSTR( pItem, lpStr, nLen );
lpStr[ nLen ] = 0;
}
}
}
return lpStr;
}
static void s_GetFileName( HB_BOOL fSave )
{
void * hInitDir, * hTitle, * hDefExt;
LPTSTR lpstrFilter;
OPENFILENAME ofn;
memset( &ofn, 0, sizeof( ofn ) );
#if defined( OPENFILENAME_SIZE_VERSION_400 )
ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400;
#else
ofn.lStructSize = sizeof( ofn );
#endif
ofn.hwndOwner = GetActiveWindow();
ofn.hInstance = GetModuleHandle( NULL );
ofn.nFilterIndex = hbwapi_par_DWORD( 6 );
ofn.lpstrFilter = lpstrFilter = s_dialogPairs( 5, &ofn.nFilterIndex );
ofn.nMaxFile = hbwapi_par_DWORD( 7 );
if( ofn.nMaxFile < 0x400 )
ofn.nMaxFile = ofn.nMaxFile == 0 ? 0x10000 : 0x400;
ofn.lpstrFile = ( LPTSTR )
memset( hb_xgrab( ofn.nMaxFile * sizeof( TCHAR ) ),
0, ofn.nMaxFile * sizeof( TCHAR ) );
ofn.lpstrInitialDir = HB_PARSTR( 3, &hInitDir, NULL );
ofn.lpstrTitle = HB_PARSTR( 2, &hTitle, NULL );
ofn.Flags = HB_ISNUM( 1 ) ? hbwapi_par_DWORD( 1 ) :
( OFN_EXPLORER | OFN_ALLOWMULTISELECT |
OFN_HIDEREADONLY | OFN_NOCHANGEDIR );
ofn.lpstrDefExt = HB_PARSTR( 4, &hDefExt, NULL );
if( ofn.lpstrDefExt && ofn.lpstrDefExt[ 0 ] == '.' )
++ofn.lpstrDefExt;
HB_ITEMCOPYSTR( hb_param( 8, HB_IT_ANY ), ofn.lpstrFile, ofn.nMaxFile );
if( fSave ? GetSaveFileName( &ofn ) : GetOpenFileName( &ofn ) )
{
HB_SIZE nLen;
for( nLen = 0; nLen < ofn.nMaxFile; ++nLen )
{
if( ofn.lpstrFile[ nLen ] == 0 &&
( nLen + 1 == ofn.nMaxFile || ofn.lpstrFile[ nLen + 1 ] == 0 ) )
break;
}
hb_stornint( ofn.Flags, 1 );
hb_stornint( ofn.nFilterIndex, 6 );
HB_RETSTRLEN( ofn.lpstrFile, nLen );
}
else
hb_retc_null();
hb_xfree( ofn.lpstrFile );
if( lpstrFilter )
hb_xfree( lpstrFilter );
hb_strfree( hInitDir );
hb_strfree( hTitle );
hb_strfree( hDefExt );
}
static LPTSTR s_dialogPairs( int iParam, DWORD * pdwIndex )
{
PHB_ITEM pItem = hb_param( iParam, HB_IT_ARRAY | HB_IT_STRING ), pArrItem;
LPTSTR lpStr = NULL;
DWORD dwMaxIndex = 0;
if( pItem )
{
HB_SIZE nLen, nSize, nTotal, n, n1, n2;
if( HB_IS_ARRAY( pItem ) )
{
nSize = hb_arrayLen( pItem );
for( n = nLen = 0; n < nSize; ++n )
{
pArrItem = hb_arrayGetItemPtr( pItem, n + 1 );
if( HB_IS_STRING( pArrItem ) )
{
n1 = HB_ITEMCOPYSTR( pArrItem, NULL, 0 );
if( n1 )
nLen += n1 * 2 + 2;
}
else if( hb_arrayLen( pArrItem ) >= 2 )
{
n1 = HB_ITEMCOPYSTR( hb_arrayGetItemPtr( pArrItem, 1 ), NULL, 0 );
n2 = HB_ITEMCOPYSTR( hb_arrayGetItemPtr( pArrItem, 2 ), NULL, 0 );
if( n1 && n2 )
nLen += n1 + n2 + 2;
}
}
if( nLen )
{
nTotal = nLen + 1;
lpStr = ( LPTSTR ) hb_xgrab( nTotal * sizeof( TCHAR ) );
for( n = nLen = 0; n < nSize; ++n )
{
pArrItem = hb_arrayGetItemPtr( pItem, n + 1 );
if( HB_IS_STRING( pArrItem ) )
{
n1 = HB_ITEMCOPYSTR( pArrItem,
lpStr + nLen, nTotal - nLen );
if( n1 )
{
nLen += n1 + 1;
n1 = HB_ITEMCOPYSTR( pArrItem,
lpStr + nLen, nTotal - nLen );
nLen += n1 + 1;
dwMaxIndex++;
}
}
else if( hb_arrayLen( pArrItem ) >= 2 )
{
n1 = HB_ITEMCOPYSTR( hb_arrayGetItemPtr( pArrItem, 1 ),
lpStr + nLen, nTotal - nLen );
if( n1 )
{
n2 = HB_ITEMCOPYSTR( hb_arrayGetItemPtr( pArrItem, 2 ),
lpStr + nLen + n1 + 1,
nTotal - nLen - n1 - 1 );
if( n2 )
{
nLen += n1 + n2 + 2;
dwMaxIndex++;
}
}
}
}
lpStr[ nLen ] = 0;
}
}
else
{
nLen = HB_ITEMCOPYSTR( pItem, NULL, 0 );
if( nLen )
{
lpStr = ( LPTSTR ) hb_xgrab( ( nLen * 2 + 3 ) * sizeof( TCHAR ) );
HB_ITEMCOPYSTR( pItem, lpStr, nLen + 1 );
for( n = n1 = 0; n < nLen; ++n )
{
if( lpStr[ n ] == 0 )
{
++n1;
if( lpStr[ n + 1 ] == 0 )
break;
}
}
if( n1 == 0 )
{
HB_ITEMCOPYSTR( pItem, lpStr + nLen + 1, nLen + 1 );
lpStr[ nLen * 2 + 2 ] = 0;
dwMaxIndex = 1;
}
else
{
if( n == nLen && lpStr[ n - 1 ] != 0 )
{
lpStr[ n + 1 ] = 0;
++n1;
}
if( ( n1 & 1 ) == 0 )
dwMaxIndex = ( DWORD ) n1;
else
{
hb_xfree( lpStr );
lpStr = NULL;
}
}
}
}
}
if( pdwIndex )
{
if( dwMaxIndex < *pdwIndex )
*pdwIndex = dwMaxIndex;
else if( dwMaxIndex && *pdwIndex == 0 )
*pdwIndex = 1;
}
return lpStr;
}
