Page 1 of 1

TsBrowse de M. Mercado para VS2022

Posted: Sat Jun 03, 2023 10:52 pm
by 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.

Re: TsBrowse de M. Mercado para VS2022

Posted: Sun Jun 04, 2023 7:52 am
by Antonio Linares

Re: TsBrowse de M. Mercado para VS2022

Posted: Sun Jun 04, 2023 3:29 pm
by Adolfo
GRAAAAACiAS master

Re: TsBrowse de M. Mercado para VS2022

Posted: Sun Jun 04, 2023 4:33 pm
by 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

Re: TsBrowse de M. Mercado para VS2022

Posted: Mon Jun 05, 2023 12:36 am
by carlos vargas
que versión de tsbrowse, la 6 o la anterior?

Re: TsBrowse de M. Mercado para VS2022

Posted: Mon Jun 05, 2023 1:20 am
by Adolfo
Carlos... la que descargue del link enviado por Antonio, parece ser la 7.0

Pero la 6.0 creo que tambien funcionaria

Saludos

Re: TsBrowse de M. Mercado para VS2022

Posted: Mon Jun 05, 2023 9:39 am
by Antonio Linares
Adolfo,

Aqui tienes el fichero getbtn.c corregido:

Code: Select all | Expand

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