topic-43284

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

TsBrowse de M. Mercado para VS2022
Posted: Sat Jun 03, 2023 10:52 PM

Hola Fivewinners

Alguien tendra la tsbrowse.lib de Manuel Mercado pero para MS Visual Studio 2022

Yo la tengo para Borland C 7.0 y estoy probando pasarme a VS y no tengo esa libreria en ese compilador .

Tenia los fuentes pero quizas donde los deje jajaja

Se los agradeceria.

Saludos.

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TsBrowse de M. Mercado para VS2022
Posted: Sun Jun 04, 2023 07:52 AM

Estimado Adolfo,

http://www.fivetechsoft.com/files/utilities/tsbrowse.zip

guardado también aqui:
https://github.com/FiveTechSoft/FWH_tools/blob/master/tsbrowse.zip

regards, saludos

Antonio Linares
www.fivetechsoft.com

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: TsBrowse de M. Mercado para VS2022
Posted: Sun Jun 04, 2023 03:29 PM

GRAAAAACiAS master

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: TsBrowse de M. Mercado para VS2022
Posted: Sun Jun 04, 2023 04:33 PM

Sigo con la molestia...
No he podido construir la lib por estos errores

Al compilar GETBTN.C tengo errores por diferencias entre clipdefs.h de HARBOUR 3.2 y minwindef.h de VS2022

clipdefs.h
(78) typedef unsigned int WORD; Error C2371 Nueva definicion de tipos basicos distintos
(100) typedef USHORT BOOL; Error C2371 Nueva definicion de tipos basicos distintos

minwindef.h
(157) typedef int BOOL;
(159) typedef unsigned short WORD;

y en clipdefs.h este otro error
(112) typedef HB_VMHANDLE HANDLE; Error C2040 Se diferencia en los niveles de direccionamiento indirecto de Void

Y mis conocimientos de C llegan hasta un poco antes.
Mis opciones de compilacion son :
C:\VS2022\BIN\cl.exe -nologo -TC -W3 -O2 -c /GS- -IC:\HBVS\include -Ic:\fwh\include -IC:\VS2022\include -D__FLAT__ /GA -Fo"getbtn.obj" "getbtn.c"

Cualquier ayuda sera bienvenida
Saludos desde Chile

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: TsBrowse de M. Mercado para VS2022
Posted: Mon Jun 05, 2023 12:36 AM

que versión de tsbrowse, la 6 o la anterior?

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: TsBrowse de M. Mercado para VS2022
Posted: Mon Jun 05, 2023 01:20 AM

Carlos... la que descargue del link enviado por Antonio, parece ser la 7.0

Pero la 6.0 creo que tambien funcionaria

Saludos

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TsBrowse de M. Mercado para VS2022
Posted: Mon Jun 05, 2023 09:39 AM

Adolfo,

Aqui tienes el fichero getbtn.c corregido:

Code (fw): Select all Collapse

/*
 * $Id: getbtn.c,v 1.1 2000/11/20 20:47:07 RRamirez Exp $
 * The author of this program is Ricardo Ramirez.
 * Is included with TSBrowse class only for Harbour tests.
 */

#define __HARBOUR__
#define STRICT

#include <hbApi.h>
// #include <WinTen.h>
#include <Windows.h>
// #include <ClipApi.h>

#ifdef __cplusplus
 extern "C" {
#endif

#ifdef __cplusplus
 }
#endif

#ifndef __HARBOUR__
   CLIPPER GETBTN( PARAMS )  // ( hWnd, nLen ) --> Nil
#else
   HB_FUNC( GETBTN )
#endif
{
   HWND hWnd = ( HWND ) hb_parnl( 1 );

    RECT rect;

   GetClientRect( hWnd, &rect );
   rect.right -= (short) hb_parni( 2 ) ;
   SendMessage( hWnd, EM_SETRECTNP, 0, ( LONG ) &rect );
}
/*
builc.bat
set xpath=%path%
PATH=V:.;C:\NOVELL\CLIENT32;C:\WINDOWS;C:\WINDOWS\COMMAND;E:\ETC\CL53\BIN;E:\ETC\MW;E:\ETC\BIN;E:\ETC\B4;E:\ETC\BC\BIN;C:\WINDOWS;Z:.;Y:.;X:.;W:.

BCC.EXE -3 -c -ml -O2 -G -B -Tq -IE:\ETC\CL53\INCLUDE;E:\bc\INCLUDE;e:\fw\include %1%

set path=%xpath%
*/

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion