FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TSBROWSE - TSBUTTON 64 bits
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
TSBROWSE - TSBUTTON 64 bits
Posted: Sat Sep 21, 2024 06:11 PM

Hola,

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

Gracias,

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon Sep 23, 2024 09:32 AM
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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon Sep 23, 2024 07:17 PM
Antonio, la versi贸n es v.7 del 15-09-2009
sbutton.hbp
Code (fw): Select all Collapse
-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

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Sun May 04, 2025 05:13 AM
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 Collapse
..\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 ) ;
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Sun May 04, 2025 05:58 AM

Patricio,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon May 05, 2025 11:40 AM
Echale un vistazo
https://github.com/FiveTechSoft/FWH_tools/blob/master/tsbuttonu_ManuelMercado_Unicode_Cristobal.zip
https://github.com/FiveTechSoft/FWH_tools/blob/master/tsbuttonu.zip
https://github.com/FiveTechSoft/FWH_tools/blob/master/tsbrowse.zip
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon May 05, 2025 01:54 PM
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
*=============================================================================
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Fri May 09, 2025 12:21 PM
Patricio Avalos Aguirre wrote: 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
*=============================================================================
Las versiones que se colgaron fueron modificadas algunas por mi, aunque evidentemente no se modificara ni el .ch ni el copyright, ni fecha de versiones, deber铆as probarlas a ver
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon May 12, 2025 02:58 AM
Estimados ahora tengo 1 error

alguna ayudita
Code: Select all Collapse
   int nVertText    = hb_parnll( 23 ) ;
   COLORREF clrTo   = hb_parnl( 24 ) ;
   BOOL bOpaque     = hb_parl( 25 ) ;
   HBRUSH wBrush    = (HBRUSH) hb_parnl( 26 ) ;

   BOOL b3DInv      = ( HB_ISLOG( 27 ) ? ! hb_parl( 27 ) : FALSE ) ;
   BOOL b3D         = ( HB_ISLOG( 27 ) ? TRUE : FALSE ) ;

   COLORREF nClr3DL = hb_parnl( 28 ) ;
   COLORREF nClr3DS = hb_parnl( 29 ) ;
..\source\function\TSBFuncs.c:
..\source\function\TSBFuncs.c:58:23: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type
'long' [-Wint-to-pointer-cast]
HBRUSH wBrush = (HBRUSH) hb_parnl( 26 ) ;
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon May 12, 2025 04:16 AM
HBRUSH wBrush = (HBRUSH) hb_parnll( 26 ) ;

Est谩 l铆nea c谩mbiala as铆:
int nVertText = hb_parni( 23 ) ; // para un int se usa hb_parni()
regards, saludos

Antonio Linares
www.fivetechsoft.com
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TSBROWSE - TSBUTTON 64 bits
Posted: Mon May 12, 2025 08:16 PM

muchas gracias antonio quedo compilada para 64bit,

voy a probarla y cuando este 100% operativa la publico para alguien que la necesite

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions