FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TSBrowse en 64Bits
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
TSBrowse en 64Bits
Posted: Thu Feb 20, 2014 07:08 PM

Hola a todos

Alguien de ustedes ya est谩 trabajando con la clase TsBrowse v.9 con FWH64.

Estoy usando FW13.11, Visual Studio 2012.

He compilado el c贸digo fuente, modifcado el programa Tsbfuncs.c. y genero la liber铆a, sin embargo al correr la aplicaci贸n obtengo un GPF al llamar el evento ::Create() de la clase.

Si alguien esta intersado , le puedo enviar los fuentes que he modificado

Saludos.

Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: TSBrowse en 64Bits
Posted: Thu Feb 20, 2014 10:39 PM
Buen d铆a

Hice algunos cambios en la recepci贸n de par谩metros de la funci贸n TSDrawCell(), pero al ejecutar alg煤n ejemplo , no visualizo informaci贸n.
Podr铆an orientarme y decirme si estoy utilzando la funci贸n incorrecta ?

Saludos

Code (fw): Select all Collapse
HB_FUNC( TSDRAWCELL )
/*
聽 聽 聽 聽 聽 聽 ( PARAMS ) // ( hWnd, hDC, nRow, nColumn , nWidth ,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 uData, nAlign , nClrFore, nClrBack ,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 hFont, nBitmap, nHeightCell,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 b3DLook, nLineStyle, nClrLine, nHeadFoot,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 nHeightHead, nHeightFoot, hHeightSuper,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 lAdjBmpl, lMultiLine, nVAlign, nVertText,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 聽 nClrTo, lDegrad, hBrush )
*/
{
聽 聽HWND hWnd 聽 聽 聽 聽= (HWND) hb_parni( 1 ) ;
聽 聽HDC 聽hDC 聽 聽 聽 聽 = (HDC) hb_parni( 2 ) ;
聽 聽int 聽nRow 聽 聽 聽 聽= hb_parni( 3 ) ;
聽 聽int 聽nColumn 聽 聽 = hb_parni( 4 ) ;
聽 聽int 聽nWidth 聽 聽 聽= hb_parni( 5 ) ;
聽 聽LPSTR cData 聽 聽 聽= (LPSTR) hb_parcx( 6 ) 聽;
聽 聽int 聽nLen 聽 聽 聽 聽= ( INT ) hb_parclen( 6 ) ;
聽 聽DWORD nAlign 聽 聽 = hb_parnl( 7 ) ;
聽 聽COLORREF clrFore = hb_parnl( 8 ) ;
聽 聽COLORREF clrBack = hb_parnl( 9 ) ;
聽 聽HFONT hFont 聽 聽 聽= (HFONT) hb_parni( 10 ) ;
聽 聽HBITMAP hBitMap 聽= (HBITMAP) hb_parni( 11 ) ;
聽 聽int nHeightCell 聽= hb_parni( 12 ) ;
聽 聽BOOL b3DLook 聽 聽 = hb_parl( 13 ) ;
聽 聽int nLineStyle 聽 = hb_parni( 14 ) ;
聽 聽COLORREF clrLine = hb_parnl( 15 ) ;
聽 聽int nHeadFoot 聽 聽= hb_parni( 16 ) ;
聽 聽int nHeightHead 聽= hb_parni( 17 ) ;
聽 聽int nHeightFoot 聽= hb_parni( 18 ) ;
聽 聽int nHeightSuper = hb_parni( 19 ) ;
聽 聽BOOL bAdjBmp 聽 聽 = hb_parl( 20 ) ;
聽 聽BOOL bMultiLine 聽= hb_parl( 21 ) ;
聽 聽int nVAlign 聽 聽 聽= hb_parni( 22 ) ;
聽 聽int nVertText 聽 聽= hb_parni( 23 ) ;
聽 聽COLORREF clrTo 聽 = hb_parnl( 24 ) ;
聽 聽BOOL bOpaque 聽 聽 = hb_parl( 25 ) ;
聽 聽HBRUSH wBrush 聽 聽= (HBRUSH) hb_parnl( 26 ) ;
聽 聽BOOL b3DInv 聽 聽 聽= ( HB_IS_LOGICAL( 27 ) ? ! hb_parl( 27 ) : FALSE ) ;
聽 聽BOOL b3D 聽 聽 聽 聽 = ( HB_IS_LOGICAL( 27 ) ? TRUE : FALSE ) ;
聽 聽COLORREF nClr3DL = hb_parnl( 28 ) ;
聽 聽COLORREF nClr3DS = hb_parnl( 29 ) ;
聽 聽long lCursor 聽 聽 = hb_parnl( 30 ) ;
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: TSBrowse en 64Bits
Posted: Sat Feb 22, 2014 04:15 PM

como te fue con lo que te envie?
estoy en karlos.vargas at gmail dot com
en gtalk

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: TSBrowse en 64Bits
Posted: Wed Feb 26, 2014 03:12 PM

Carlos, ya est谩 funcionando la clase en FWH64 :-)

Muchas gracias por el apoyo

Saludos

Continue the discussion