Wbrowse de Hernan modificado Harbour BCC,MVC y MINGW

[nnicanor]

Para todos lo que usan en Wbrowse de Hernan y que tienen dificultades para usarlo en Harbour, aqui les dejo links de descarga con las clases corregidas para que puedan usarlo con cualquier compilador, estos link solo duran 60 dias por lo cual sugiero que los coloquen en un sitio donde todos puedan tener acceso.


Harbour Borland: WBRWLINEH.C File size: 49.73 KB
Harbour Microsoft Visual C: WBRWLINEH_VC.C File size: 49.91 KB
xHarbour Borland: WBRWLINEX.C File size: 49.33 KB
Harbour Mingw: wbrwlinehg.c File size: 51.27 KB
Wbrowseh Borland y MSVC, Harbour y xHarbour: WBROWSEH.PRG File size: 125.7 KB
Wbrowse Mingw: wbrowsehg.prg File size: 125.7 KB


Slds,

[Andrés González]

Hay un error en el cuarto fichero no permite descargarlo.

[nnicanor]

Corregido,


Slds,

[Andrés González]

Nicanor, por favor, me puedes decir a que se puede deber estos errores, que me da en el fichero c, fijate que utilizo el xharbor y bc582, todo lo demás lo coge bien, pero el c, me da errores, creo que debe ser cuestión de configuración ya que creo que el fichero que has puesto debe ser el bueno y no deberia dar errores.


--------------------Configuration: Gantt - Release--------------------
bcc32 -O2 -M -c -v -IG:\FWH\1201\xHarbour\INCLUDE -oWBRWLINEX.obj G:\FWH\Samples\tGrantt\Arturo1\WBRWLINEX.C
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
g:\fwh\samples\tgrantt\arturo1\wbrwlinex.c:
Error E2303 g:\fwh\samples\tgrantt\arturo1\wbrwlinex.c 76: Type name expected
Error E2141 g:\fwh\samples\tgrantt\arturo1\wbrwlinex.c 100: Declaration syntax error
Error E2303 g:\fwh\samples\tgrantt\arturo1\wbrwlinex.c 208: Type name expected
*** 3 errors in Compile ***
harbour G:\FWH\Samples\tGrantt\Arturo1\EGANTT.PRG /n /gc0 /q /iG:\FWH\1201\xHarbour\INCLUDE /w1 /l /oEGANTT.c
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9421)
Copyright 1999-2011, http://www.xharbour.org http://www.harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\xHarbour\INCLUDE -oEGANTT.obj EGANTT.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
egantt.c:
harbour G:\FWH\Samples\tGrantt\Arturo1\GANTT.PRG /n /gc0 /q /iG:\FWH\1201\xHarbour\INCLUDE /w1 /l /oGANTT.c
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9421)
Copyright 1999-2011, http://www.xharbour.org http://www.harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\xHarbour\INCLUDE -oGANTT.obj GANTT.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
gantt.c:
harbour G:\FWH\Samples\tGrantt\Arturo1\WBROWSEH.PRG /n /gc0 /q /iG:\FWH\1201\xHarbour\INCLUDE /w1 /l /oWBROWSEH.c
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9421)
Copyright 1999-2011, http://www.xharbour.org http://www.harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\xHarbour\INCLUDE -oWBROWSEH.obj WBROWSEH.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
wbrowseh.c:
ilink32 -Gn -aa -Tpe -s -v c0w32.obj WBRWLINEX.obj EGANTT.obj GANTT.obj WBROWSEH.obj, Gantt.EXE,, G:\FWH\1201\FWH\LIB\FiveHX.lib G:\FWH\1201\FWH\LIB\FiveHC.lib G:\FWH\1201\xHarbour\LIB\rtl.lib G:\FWH\1201\xHarbour\LIB\vm.lib G:\FWH\1201\xHarbour\LIB\gtgui.lib G:\FWH\1201\xHarbour\LIB\lang.lib G:\FWH\1201\xHarbour\LIB\macro.lib G:\FWH\1201\xHarbour\LIB\rdd.lib G:\FWH\1201\xHarbour\LIB\dbfcdx.lib G:\FWH\1201\xHarbour\LIB\dbfntx.lib G:\FWH\1201\xHarbour\LIB\dbffpt.lib G:\FWH\1201\xHarbour\LIB\hbsix.lib G:\FWH\1201\xHarbour\LIB\debug.lib G:\FWH\1201\xHarbour\LIB\common.lib G:\FWH\1201\xHarbour\LIB\pp.lib G:\FWH\1201\xHarbour\LIB\codepage.lib G:\FWH\1201\xHarbour\LIB\pcrepos.lib G:\FWH\1201\xHarbour\LIB\ct.lib G:\BCC582\LIB\cw32.lib G:\BCC582\LIB\import32.lib G:\BCC582\LIB\psdk\odbc32.lib G:\BCC582\LIB\psdk\msimg32.lib G:\BCC582\LIB\psdk\nddeapi.lib G:\BCC582\LIB\psdk\iphlpapi.lib G:\BCC582\LIB\psdk\rasapi32.lib G:\BCC582\LIB\psdk\psapi.lib g:\policia\DWGCAD\adb5nd3.lib,,
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'WBRWLINEX.OBJ'
Gantt.EXE - 4 error(s), 0 warning(s)

[Andrés González]

Igual me sucede con los ficheros de harbour, son los mismos errores. No logro saber que es lo que tengo que configurar para que no me genere estos errores, parece que ele falta algun fichero de cabecera o algo para interpretar.


--------------------Configuration: Gantt - Release--------------------
bcc32 -O2 -M -c -v -IG:\FWH\1201\Harbour\INCLUDE -oWBRWLINEH.obj G:\FWH\Samples\tGrantt\Arturo1\WBRWLINEH.C
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
g:\fwh\samples\tgrantt\arturo1\wbrwlineh.c:
Error E2303 g:\fwh\samples\tgrantt\arturo1\wbrwlineh.c 86: Type name expected
Error E2141 g:\fwh\samples\tgrantt\arturo1\wbrwlineh.c 110: Declaration syntax error
Error E2303 g:\fwh\samples\tgrantt\arturo1\wbrwlineh.c 218: Type name expected
*** 3 errors in Compile ***
harbour G:\FWH\Samples\tGrantt\Arturo1\EGANTT.PRG /n /gc0 /q /iG:\FWH\1201\Harbour\INCLUDE /w1 /oEGANTT.c
Harbour 3.1.0dev (Rev. 17222)
Copyright (c) 1999-2012, http://harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\Harbour\INCLUDE -oEGANTT.obj EGANTT.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
egantt.c:
harbour G:\FWH\Samples\tGrantt\Arturo1\GANTT.PRG /n /gc0 /q /iG:\FWH\1201\Harbour\INCLUDE /w1 /oGANTT.c
Harbour 3.1.0dev (Rev. 17222)
Copyright (c) 1999-2012, http://harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\Harbour\INCLUDE -oGANTT.obj GANTT.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
gantt.c:
harbour G:\FWH\Samples\tGrantt\Arturo1\WBROWSEH.PRG /n /gc0 /q /iG:\FWH\1201\Harbour\INCLUDE /w1 /oWBROWSEH.c
Harbour 3.1.0dev (Rev. 17222)
Copyright (c) 1999-2012, http://harbour-project.org/
bcc32 -O2 -M -c -v -IG:\FWH\1201\Harbour\INCLUDE -oWBROWSEH.obj WBROWSEH.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
wbrowseh.c:
ilink32 -Gn -aa -Tpe -s -v c0w32.obj WBRWLINEH.obj EGANTT.obj GANTT.obj WBROWSEH.obj, Gantt.EXE,, g:\fwh\samples\myrpt\lib\myrpt.lib G:\FWH\1201\FWH\LIB\FiveH.lib G:\FWH\1201\FWH\LIB\FiveHC.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbrtl.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbvm.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\gtgui.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hblang.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbmacro.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbrdd.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\rddntx.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\rddcdx.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\rddfpt.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbsix.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbdebug.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbcommon.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbpp.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbcpage.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbwin.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbct.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\xhb.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\freeimage.lib G:\FWH\1201\Harbour\LIB\WIN\BCC\hbfimage.lib G:\BCC582\LIB\cw32.lib G:\BCC582\LIB\import32.lib G:\BCC582\LIB\psdk\odbc32.lib G:\BCC582\LIB\psdk\msimg32.lib G:\BCC582\LIB\psdk\nddeapi.lib G:\BCC582\LIB\psdk\iphlpapi.lib G:\BCC582\LIB\psdk\rasapi32.lib,,
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'WBRWLINEH.OBJ'
Gantt.EXE - 4 error(s), 0 warning(s)

[nnicanor]

Hola,

Para compilar con xHarbour debes usar el archivo WBRWLINEX.C, y para compilarlo usas los siguientes parametros para el BCC

-D__XHARBOUR__ -D__FLAT__ -D__HARBOUR__ -M -c -O2

Slds,

Nicanor

[nnicanor]

Para compilar con Harbour y BCC agregas los siguientes parametros al BCC

-D__HARBOUR__ -D__FLAT__ -M -c -O2


SLds

Nicanor

[Andrés González]

Gracias Nicanor, ahora no da ningun error.

[Andrés González]

Nicanor, disculpa no logoro el exe, ya que me pide el clsetrop2 con xharbour. Tienes inconveniente en decirme donde la consigo o proporcionarme dicha función.

[nnicanor]

Andres,

Agrega esto en el PRG

Code: Select all  Expand view  RUN

/*--------------------------------------------------------------------------*/
#pragma BEGINDUMP

#define HB_API_MACROS

#include <Windows.h>
#include <hbApi.h>

#include <windows.h>
#include <hbapi.h>

HB_FUNC( CLSETROP2 ) // ( hDll, Ctex )
{
   hb_retni(  SetROP2( ( HDC ) hb_parnl( 1 ), hb_parni( 2 ) ) );
}

#pragma ENDDUMP

 

La referencia esta en el siguiente hilo:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22535&p=120461&hilit=tgantt

[Andrés González]

Gracias Nicanor, ahora todo funciona perfecto. El problema principal era donde situar los flags en borland. Finalmente he descubierto que eso se puede configurar en el ustudio sin tocar para nada los bcc32.cfg, alli basta situar los includes y los lib, y en el fichero de configuracion de ustudio, se puede configurar para xharbour o harbour. A pesar de que todo funciona, el ejemplo que tengo de Arturo me falla al repintar el gantt ya que el utiliza una data con su nombre. Pero bueno, ahora ya puedo ver como funciona. Gracias.

[Andrés González]

Creo que el fallo que tengo es debido a que sigue cargando el twbrose de fivewin, he tenido que eliminar alguna linea para que me funcione, pero lo que muestra el browse no es el que toca. Pese a que pongo:

Code: Select all  Expand view  RUN

#xtranslate   twbrowse => twbrowseh

Sabes si tengo que hacer algo mas para que me coja el fichero que tu has puesto el wbrowseh.prg, aqui la clase se llama twbrowseh. Hay algun fichero de configuracion de la clase, no la veo por ningun lado, me refiero a un .ch.

He tenido que eliminar para que funcione lo siguiente, pero pierdo la cabecera:
oLbx:lCellstyle:=.t.
///oLbx:nFreeze:=1
oLbx:nlineStyle:=3
///Olbx:aHJustify:={2,2,2,2,2,2}
///olbx:bTextColor:={ |nRow,nCol| if(nCol==1,CLR_BLACK,)}
///olbx:bBkColor:={ |nRow,nCol| if(nCol==1,wClrBack,)}
///olbx:nHeaderHeight:=33 //permite definir el ancho de la cabecera del browse

[Andrés González]

Retiro lo dicho con la traducción anterior ya me coge la cabecera y lo muestra correctamente, ahora tengo que solucionar el problema de la data.

[nnicanor]

Andres,

Reemplaza todas las ocurrencias de twbrowseh por TWbrowse en Wbrowseh.prg, ya que de otro modo debes cambiar el control en los recursos de TWbrowse por TWbrowseh creo que es lo mas rapido para usar la clase sin cambios yo lo hice asi para mantener la clase original de FWH.

Slds

Nicanor

[vilian]

Para todos lo que usan en Wbrowse de Hernan y que tienen dificultades para usarlo en Harbour, aqui les dejo links de descarga con las clases corregidas para que puedan usarlo con cualquier compilador, estos link solo duran 60 dias por lo cual sugiero que los coloquen en un sitio donde todos puedan tener acceso.


Harbour Borland: WBRWLINEH.C File size: 49.73 KB
Harbour Microsoft Visual C: WBRWLINEH_VC.C File size: 49.91 KB
xHarbour Borland: WBRWLINEX.C File size: 49.33 KB
Harbour Mingw: wbrwlinehg.c File size: 51.27 KB
Wbrowseh Borland y MSVC, Harbour y xHarbour: WBROWSEH.PRG File size: 125.7 KB
Wbrowse Mingw: wbrowsehg.prg File size: 125.7 KB


Slds,

Does anyone have the files mentioned in this topic? can send me?