FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Error compilando TsBrowse9 con HB 3 y BCC582
Adolfo
Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
Error compilando TsBrowse9 con HB 3 y BCC582
Posted: Fri Oct 21, 2011 12:39 AM

Eso amigos

Es en el TsbFuncs.c
Ya cambie los _parXX por hb_parxx y los isXXXX por hb_isxxx
Inclui

define HB_API_INTERNAL

y el resto de las cabeceras asi

include <hbApi.h> / set your own path if needed /

//#include <WinTen.h> / set your own path if needed /

include <Windows.h>

//#include <ClipApi.h> / set your own path if needed /

include <shellapi.h>

include <StdLib.h>

include <hbstack.h>

include <hbvm.h>

pero me surgen estos errores

c:\fwhlibs\tsbrowse9\source\function\TSBFUNCS.C:
Warning W8065 TSBFUNCS.C 69: Call to function 'HB_ISLOGICAL' with no prototype in function HB_FUN_TSDRAWCELL
Warning W8065 TSBFUNCS.C 70: Call to function 'HB_ISLOGICAL' with no prototype in function HB_FUN_TSDRAWCELL
Warning W8057 TSBFUNCS.C 309: Parameter 'PARAMS' is never used in function HB_FUN_TSDRAWCELL
Warning W8057 TSBFUNCS.C 400: Parameter 'PARAMS' is never used in function HB_FUN_TSBRWSCROLL
Warning W8057 TSBFUNCS.C 429: Parameter 'PARAMS' is never used in function HB_FUN_TSBRWHSCROLL
Warning W8057 TSBFUNCS.C 465: Parameter 'PARAMS' is never used in function HB_FUN_ROWFROMPIX
Warning W8057 TSBFUNCS.C 504: Parameter 'PARAMS' is never used in function HB_FUN_SBGETHEIGHT
Warning W8057 TSBFUNCS.C 530: Parameter 'PARAMS' is never used in function HB_FUN_COUNTROWS
Warning W8057 TSBFUNCS.C 546: Parameter 'PARAMS' is never used in function HB_FUN_SBMPHEIGHT
Warning W8057 TSBFUNCS.C 562: Parameter 'PARAMS' is never used in function HB_FUN_SBMPWIDTH
Error E2227 TSBFUNCS.C 790: Extra parameter in call to hb_parni in function HB_FUN_CHANGESYSCOLORS
Error E2227 TSBFUNCS.C 791: Extra parameter in call to hb_parnl in function HB_FUN_CHANGESYSCOLORS
Warning W8057 TSBFUNCS.C 795: Parameter 'PARAMS' is never used in function HB_FUN_CHANGESYSCOLORS

Alguien con alguna ayuda por ahi.
Me comunique con MMercado, pero dice estar alejado de la programacion y dedicado a funciones mas bien administrativas, que no compilo con BCC582 en su momento y lo dejo hasta ahi.

Es la ultima lib que me falta para pasar de xharbour 1.2.1 a HARBOUR 3.1

Gracias de antemano

;-) 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: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error compilando TsBrowse9 con HB 3 y BCC582
Posted: Fri Oct 21, 2011 06:08 AM

Adolfo,

Cambia HB_LOGICAL() por HB_LOG() y borra todos los PARAMS

regards, saludos

Antonio Linares
www.fivetechsoft.com
Adolfo
Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
Re: Error compilando TsBrowse9 con HB 3 y BCC582
Posted: Fri Oct 21, 2011 12:34 PM

Gracias Antonio

Funciono Perfecto.. seguimos en la migracion...

;-) 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
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Error compilando TsBrowse9 con HB 3 y BCC582
Posted: Thu Jul 26, 2012 10:42 PM
Hola

hice todo pero igual me sale error

me sale este errror al compilar,
Code (fw): Select all Collapse
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
..\source\function\TSBFUNCS.C:
Warning W8065 ..\source\function\TSBFUNCS.C 71: Call to function 'HB_LOG' with no prototype in function HB_FUN_TSDRAWCELL
Warning W8065 ..\source\function\TSBFUNCS.C 72: Call to function 'HB_LOG' with no prototype in function HB_FUN_TSDRAWCELL

//ORIGINAL XHARBOUR
   BOOL b3DInv      = ( ISLOGICAL( 27 ) ? ! _parl( 27 ) : FALSE ) ;
   BOOL b3D         = ( ISLOGICAL( 27 ) ? TRUE : FALSE ) ;

//CAMBIADA PARA HARBOUR
   BOOL b3DInv      = ( HB_LOG( 27 ) ? ! hb_parl( 27 ) : FALSE ) ;
   BOOL b3D         = ( HB_LOG( 27 ) ? TRUE : FALSE ) ;



ESTE ES EL INICIO
Code (fw): Select all Collapse
/***************************************************************

This file contains the special painting routines used by TSBrowse Class
Last update: November 30th, 2009

***************************************************************/

#define _HB_API_INTERNAL

#include <hbApi.h> /* set your own path if needed */
//#include <WinTen.h> /* set your own path if needed */
#include <Windows.h>
//#include <ClipApi.h> /* set your own path if needed */
#include <shellapi.h>
#include <StdLib.h>
#include <hbstack.h>
#include <hbvm.h>
void WndBoxDraw( HDC, LPRECT, HPEN, HPEN, int, BOOL ) ;
void cDrawCursor( HWND, LPRECT, long, COLORREF ) ;
void DrawCheck( HDC, LPRECT, HPEN, int, BOOL ) ;
DWORD GetTextExtent( HDC, LPCSTR, int ) ;
extern void DrawBitmap( HDC, HBITMAP, WORD wCol, WORD wRow, WORD wWidth, WORD wHeight, DWORD dwRaster ) ;
extern void DrawMasked( HDC hdc, HBITMAP hbm, WORD y, WORD x ) ;
extern void MaskRegion( HDC hDC, RECT * rct, COLORREF cTransparent, COLORREF cBackground ) ;
static void GoToPoint( HDC, int, int ) ;
static void DegradColor( HDC, RECT *, COLORREF, signed long ) ;

//---------------------------------------------------------------------------//
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