HMGforum.com

Code: Select all

HB_FUNC( LISTBOXSETMULTITAB )
{
   PHB_ITEM wArray;
   int      nTabStops[ TOTAL_TABS ];
   int      l, i;
   DWORD    dwDlgBase = GetDialogBaseUnits();
   int      baseunitX = LOWORD( dwDlgBase );

   HWND hwnd = ( HWND ) HB_PARNL( 1 );

   wArray = hb_param( 2, HB_IT_ARRAY );

   l = ( int ) hb_parinfa( 2, 0 ) - 1;

   for( i = 0; i <= l; i++ )
      nTabStops[ i ] = MulDiv( hb_arrayGetNI( wArray, i + 1 ), 4, baseunitX );

   SendMessage( hwnd, LB_SETTABSTOPS, l, ( LPARAM ) &nTabStops );
}