TsBrowse de M. Mercado para VS2022

[Adolfo]

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.

[Antonio Linares]

Estimado Adolfo,

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

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

[Adolfo]

GRAAAAACiAS master

[Adolfo]

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

[carlos vargas]

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

[Adolfo]

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

Pero la 6.0 creo que tambien funcionaria

Saludos

[Antonio Linares]

Adolfo,

Aqui tienes el fichero getbtn.c corregido:

Code: Select all  Expand view  RUN

/*
 * $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%
*/