TSBROWSE - TSBUTTON 64 bits

[Cgallegoa]

Hola,

Pues eso, alguien ha logrado generar las geniales librerías del maestro Manuel Mercado, TSBrowse y TSButton, a 64 Bits ?

Gracias,

[Antonio Linares]

Carlos,

Es cuestión de identificar los fuentes más recientes, ó los que tú estés usando, y compilar en 64 bits y ver que dice el compilador de C

[Cgallegoa]

Antonio, la versión es v.7 del 15-09-2009
sbutton.hbp

Code: Select all | Expand

-gui

-hblib

..\SOURCE\CLASSES\TSBUTTON.PRG
..\SOURCE\CLASSES\TSBAR.PRG
..\SOURCE\CLASSES\TSGRADIE.PRG
..\SOURCE\CLASSES\TSLINES.PRG
..\SOURCE\CLASSES\TSRADIO.PRG
..\SOURCE\CLASSES\TSTSAY.PRG
..\SOURCE\FUNCTION\BPAINT.C

#PRUEBA1.RC

-info
#-traceonly
-workdir=

-optim-
-ldflag+=-aa
-Ic:\fwh64\include -ID:\LIB-64\TSBUTTON\INCLUDE\
-Lc:\fwh64\lib

-lFivehx64
-lFiveC64

-lct
-lhbzip
-ltip

-run

Resultado:

D:\LIB-64\TSBUTTON\LIB>c64

D:\LIB-64\TSBUTTON\LIB>set bcc=borland7764

D:\LIB-64\TSBUTTON\LIB>set path=c:\borland7764\bin

D:\LIB-64\TSBUTTON\LIB>set HB_USER_CFLAGS=-Ic:\borland7764\INCLUDE\windows\crtl -Ic:\borland7764\INCLUDE\windows\sdk -Lc:\borland7764\LIB

D:\LIB-64\TSBUTTON\LIB>set HB_USER_LDFLAGS=-Lc:\borland7764\LIB;c:\borland7764\LIB\psdk

D:\LIB-64\TSBUTTON\LIB>D:\xharbour64\bin\hbmk2.exe sbutton.hbp -xhb -comp=bcc64
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSBUTTON.PRG'...
Generating C source output to 'TSBUTTON.c'...
Done.
Lines 2538, Functions/Procedures 41, pCodes 12829
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSBAR.PRG'...
Generating C source output to 'TSBAR.c'...
Done.
Lines 959, Functions/Procedures 21, pCodes 5535
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSGRADIE.PRG'...
Generating C source output to 'TSGRADIE.c'...
Done.
Lines 292, Functions/Procedures 7, pCodes 1497
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSLINES.PRG'...
Generating C source output to 'TSLINES.c'...
Done.
Lines 262, Functions/Procedures 6, pCodes 1275
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSRADIO.PRG'...
Generating C source output to 'TSRADIO.c'...
Done.
Lines 1627, Functions/Procedures 30, pCodes 7986
xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\SOURCE\CLASSES\TSTSAY.PRG'...
Generating C source output to 'TSTSAY.c'...
Done.
Lines 591, Functions/Procedures 9, pCodes 2729
bcc64.exe: warning: argument unused during compilation: '-Lc:\borland7764\LIB' [-Wunused-command-line-argument]
TSBUTTON.c:
TSBAR.c:
TSGRADIE.c:
TSLINES.c:
TSRADIO.c:
TSTSAY.c:
..\SOURCE\FUNCTION\BPAINT.C:
In file included from ..\SOURCE\FUNCTION\BPAINT.C:7:
c:\fwh64\include\ClipApi.h:520:8: error: C++ requires a type specifier for all declarations
extern _mdAdd( LONG lClassHandle, PCLIPSYMBOL pMethodName, PCLIPFUNC pMethod );
~~~~~~ ^
c:\fwh64\include\ClipApi.h:535:96: error: invalid suffix on literal; C++11 requires a space between literal and
identifier [-Wreserved-user-defined-literal]
#define INSTVAR(Name,pCode) _mdAdd(ulHandle,_get_sym(Name),pCode); _mdAdd(ulHandle,_get_sym("_"Name),pCode)
^

..\SOURCE\FUNCTION\BPAINT.C:42:25: warning: cast to 'HWND__ *' from smaller integer type 'LONG' (aka 'long')
[-Wint-to-pointer-cast]
HWND hWnd = ( HWND ) _parnl( 1 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:43:25: warning: cast to 'HBITMAP__ *' from smaller integer type 'LONG' (aka 'long')
[-Wint-to-pointer-cast]
HBITMAP hBitMap1 = ( HBITMAP ) _parnl( 2 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:45:25: warning: cast to 'HFONT__ *' from smaller integer type 'LONG' (aka 'long')
[-Wint-to-pointer-cast]
HFONT hFont = ( HFONT ) _parnl( 4 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:52:25: warning: cast to 'HBRUSH__ *' from smaller integer type 'short'
[-Wint-to-pointer-cast]
HBRUSH wBrush = ( HBRUSH ) _parni( 11 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:63:25: warning: cast to 'HBITMAP__ *' from smaller integer type 'LONG' (aka 'long')
[-Wint-to-pointer-cast]
HBITMAP hShape = ( HBITMAP ) _parnl( 22 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:95:15: error: assigning to 'HFONT' (aka 'HFONT__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldFont = SelectObject( hDC, hFont ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:124:15: error: assigning to 'HBRUSH' (aka 'HBRUSH__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hBOld = SelectObject( hDC, wBrush ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:143:20: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRgn = SelectObject( hDC, hRgn ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:161:40: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 12, "", 0, 0, 0, RGB( 255, 212, 142 ), 0, FALSE, 0 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:172:43: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 12, "", 0, 0, 0, ClrBord, 0, FALSE, 0 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:179:39: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 3, "", 0, 0, MakeDarker( ClrBack, -40 ), MakeDarker( ClrBack, 40 ), 0, FALSE, 0 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:191:20: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRgn = SelectObject( hDC, hRgn ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:206:37: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 11, "", 0, 0, 0,
^
..\SOURCE\FUNCTION\BPAINT.C:222:20: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRgn = SelectObject( hDC, hRgn ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:251:40: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 11, "", 0, 0, 0, MakeDarker( ClrBack, - ( ! bMOver ? 40 : 120 ) ) , 0, FALSE, 0 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:267:20: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRgn = SelectObject( hDC, hRgn ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:276:20: error: assigning to 'HPEN' (aka 'HPEN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldPen = SelectObject( hDC, hPen ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:278:19: error: assigning to 'HBRUSH' (aka 'HBRUSH__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hBOld = SelectObject( hDC, hBrush ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:286:37: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, 11, "", 0, 0, 0, RGB( 255, 255, 255 ), 0, FALSE, iCorner ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:307:20: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRgn = SelectObject( hDC, hRgn ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:335:22: error: assigning to 'HBRUSH' (aka 'HBRUSH__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hBOld = SelectObject( hDC, hBrush ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:352:37: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rctm, 8, "", 0, 0, MakeDarker( iDegType ? ClrBack : lBkColor, bMPress ? 128 : -128 ),
^
..\SOURCE\FUNCTION\BPAINT.C:380:58: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, iShape == 3 ? 10 : 9, "", 0, 0, 0, ClrBord, 0, FALSE, iCorner ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:397:43: warning: ISO C++11 does not allow conversion from string literal to 'LPSTR'
(aka 'char *') [-Wwritable-strings]
cDrawBoxes( hDC, &rct, iType, "", 0, 0, MakeDarker( iDegType ? ClrBack : lBkColor, -64 ),
^
..\SOURCE\FUNCTION\BPAINT.C:471:23: error: assigning to 'HRGN' (aka 'HRGN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldRg1 = SelectObject( hDC, hRgn1 ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:494:26: error: assigning to 'HBITMAP' (aka 'HBITMAP__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hBmOld1 = SelectObject( hdcBmp, ( HBITMAP ) hBitMap1 ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:727:14: error: assigning to 'HPEN' (aka 'HPEN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldPen = SelectObject( hDC, hPen2 ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:773:14: error: assigning to 'HPEN' (aka 'HPEN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldPen = SelectObject( hDC, hPen1 ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:810:17: warning: cast to 'HWND__ *' from smaller integer type 'short'
[-Wint-to-pointer-cast]
HWND hWnd = ( HWND ) _parni( 1 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:816:27: warning: cast to 'HWND__ *' from smaller integer type 'short'
[-Wint-to-pointer-cast]
VertSeparator( hDC, (HWND) _parni( 1 ), (int) _parni( 2 ), (COLORREF) _parnl( 3 ), (BOOL) _parl( 4 ) ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:818:27: warning: cast to 'HWND__ *' from smaller integer type 'short'
[-Wint-to-pointer-cast]
HorzSeparator( hDC, (HWND) _parni( 1 ), (int) _parni( 2 ), (COLORREF) _parnl( 3 ), (BOOL) _parl( 4 ) ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:831:20: warning: cast to 'HWND__ *' from smaller integer type 'short'
[-Wint-to-pointer-cast]
HWND hWnd = ( HWND ) _parni( 1 ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:884:14: error: assigning to 'HPEN' (aka 'HPEN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldPen = SelectObject( hDC, hBlack ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:957:14: warning: using integer absolute value function 'abs' when argument is of floating
point type [-Wabsolute-value]
iRed = abs( clr2r - clr1r ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:957:14: note: use function 'std::abs' instead
iRed = abs( clr2r - clr1r ) ;
^~~
std::abs
..\SOURCE\FUNCTION\BPAINT.C:957:14: note: include the header <cmath> or explicitly provide a declaration for 'std::abs'
..\SOURCE\FUNCTION\BPAINT.C:958:14: warning: using integer absolute value function 'abs' when argument is of floating
point type [-Wabsolute-value]
iGreen = abs( clr2g - clr1g ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:958:14: note: use function 'std::abs' instead
iGreen = abs( clr2g - clr1g ) ;
^~~
std::abs
..\SOURCE\FUNCTION\BPAINT.C:958:14: note: include the header <cmath> or explicitly provide a declaration for 'std::abs'
..\SOURCE\FUNCTION\BPAINT.C:959:14: warning: using integer absolute value function 'abs' when argument is of floating
point type [-Wabsolute-value]
iBlue = abs( clr2b - clr1b ) ;
^
..\SOURCE\FUNCTION\BPAINT.C:959:14: note: use function 'std::abs' instead
iBlue = abs( clr2b - clr1b ) ;
^~~
std::abs
..\SOURCE\FUNCTION\BPAINT.C:959:14: note: include the header <cmath> or explicitly provide a declaration for 'std::abs'
..\SOURCE\FUNCTION\BPAINT.C:992:19: error: assigning to 'HPEN' (aka 'HPEN__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldPen = SelectObject( hDC, hPen ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~
..\SOURCE\FUNCTION\BPAINT.C:994:19: error: assigning to 'HBRUSH' (aka 'HBRUSH__ *') from incompatible type 'HGDIOBJ'
(aka 'void *')
hOldBrush = SelectObject( hDC, hBrush ) ;
^~~~~~~~~~~~~~~~~~~~~~~~~~~
fatal error: too many errors emitted, stopping now [-ferror-limit=]
21 warnings and 20 errors generated.
hbmk2[sbutton]: Error: Running C/C++ compiler. 1
bcc64.exe -c -q -Ic:\borland7764\INCLUDE\windows\crtl -Ic:\borland7764\INCLUDE\windows\sdk -Lc:\borland7764\LIB -tW -ID:\xharbour64\include -Ic:\fwh64\include -I"D:\LIB-64\TSBUTTON\INCLUDE" TSBUTTON.c TSBAR.c TSGRADIE.c TSLINES.c TSRADIO.c TSTSAY.c ..\SOURCE\FUNCTION\BPAINT.C

[Patricio Avalos Aguirre]

hola a tod@s

alguien tiene corriendo la libreria tsbrowse9 del maestro Manuel Mercado
me sale muchos errores en un prg en C(TSBFuncs.c)

Code: Select all | Expand

..\source\function\TSBFuncs.c:
In file included from ..\source\function\TSBFuncs.c:14:
c:\fwh64\include\ClipApi.h:520:8: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
extern _mdAdd( LONG lClassHandle, PCLIPSYMBOL pMethodName, PCLIPFUNC pMethod );
~~~~~~ ^
..\source\function\TSBFuncs.c:48:23: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HWND hWnd        = (HWND) _parni( 1 ) ;
                      ^
..\source\function\TSBFuncs.c:49:23: warning: cast to 'HDC' (aka 'struct HDC__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HDC  hDC         = (HDC) _parni( 2 ) ;
                      ^
..\source\function\TSBFuncs.c:58:23: warning: cast to 'HFONT' (aka 'struct HFONT__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HFONT hFont      = (HFONT) _parni( 10 ) ;
                      ^
..\source\function\TSBFuncs.c:59:23: warning: cast to 'HBITMAP' (aka 'struct HBITMAP__ *') from smaller integer type
      'short' [-Wint-to-pointer-cast]
   HBITMAP hBitMap  = (HBITMAP) _parni( 11 ) ;
                      ^
..\source\function\TSBFuncs.c:74:23: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type
      'LONG' (aka 'long') [-Wint-to-pointer-cast]
   HBRUSH wBrush    = (HBRUSH) _parnl( 26 ) ;
                      ^
..\source\function\TSBFuncs.c:381:23: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HWND hWnd        = (HWND) _parni( 1 ) ;
                      ^
..\source\function\TSBFuncs.c:383:23: warning: cast to 'HFONT' (aka 'struct HFONT__ *') from smaller integer type
      'short' [-Wint-to-pointer-cast]
   HFONT hFont      = (HFONT) _parni( 3 ) ;
                      ^
..\source\function\TSBFuncs.c:417:17: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HWND hWnd  = (HWND) _parni( 1 ) ;
                ^
..\source\function\TSBFuncs.c:448:14: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
        HWND hWnd = ( HWND ) _parni( 1 ) ;
                    ^
..\source\function\TSBFuncs.c:482:18: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
   HWND  hWnd  = (HWND) _parni( 1 ) ;
                 ^
..\source\function\TSBFuncs.c:483:18: warning: cast to 'HFONT' (aka 'struct HFONT__ *') from smaller integer type
      'short' [-Wint-to-pointer-cast]
   HFONT hFont = (HFONT) _parni( 2 ) ;
                 ^
..\source\function\TSBFuncs.c:522:14: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'short'
      [-Wint-to-pointer-cast]
        HWND hWnd = ( HWND ) _parni( 1 ) ;
                    ^
..\source\function\TSBFuncs.c:547:20: warning: cast to 'HBITMAP' (aka 'struct HBITMAP__ *') from smaller integer type
      'short' [-Wint-to-pointer-cast]
   HBITMAP hBmp  = (HBITMAP) _parni( 1 ) ;
                   ^
..\source\function\TSBFuncs.c:563:20: warning: cast to 'HBITMAP' (aka 'struct HBITMAP__ *') from smaller integer type
      'short' [-Wint-to-pointer-cast]
   HBITMAP hBmp  = (HBITMAP) _parni( 1 ) ;
   

[Antonio Linares]

Patricio,

Cambia todos esos _parni( ... ) a _parnll( ... ) (DOBLE L)

[cnavarro]

Echale un vistazo
https://github.com/FiveTechSoft/FWH_too ... stobal.zip
https://github.com/FiveTechSoft/FWH_too ... uttonu.zip
https://github.com/FiveTechSoft/FWH_too ... browse.zip

[Patricio Avalos Aguirre]

Gracias Cristóbal

es una versión antigua la que esta ahí
*=============================================================================
* TSBrowse.ch Version 4.0 1/Jan/2002
* Creating Browse From resources
*=============================================================================
contra esta
=============================================================================
* TSBrowse.ch Version 9.0 1/Nov/2009
* Creating Browse From resources
*=============================================================================