Hola Cristobal.
Gracias... lo probare y te aviso
Saludos
Hola Cristobal.
Gracias... lo probare y te aviso
Saludos
----------------------------------- NEW VERSION 11/06/2017 ----------------------------
Minor bugs fixed
Cristobal buenísimo tu trabajo... cada vez más
Por cierto incluye algún método para formatear el código?
Para PRGs el propio (x)Harbour tiene esa funcionalidad y para lenguaje C mira esto http://astyle.sourceforge.net/ podrías integrarlo sin muchos problemas ![]()


Cristóbal como te digo está incluido en Harbour... mira en harbour\contrib\hbformat\utils\hbformat.prg como ejemplo de la clase HBFormatCode() que está en harbour\contrib\hbformat\hbfmtcls.prg ![]()
#include "Fivewin.ch"
Function Main()
local oRef
local cFileName := "Hola.prg"
oRef := HBFormatCode():New( hb_aParams(), hb_FNameMerge( hb_DirBase(), "hbformat.ini" ) )
IF oRef:nErr > 0
? "Initialization error", hb_ntos( oRef:nErr ), iif( oRef:nLineErr == 0, "in parameter", "on line " + hb_ntos( oRef:nLineErr ) ), ":", oRef:cLineErr
RETURN nil
ENDIF
Reformat( oRef, cFileName )
Return nil
//----------------------------------------------------------------------------//
Function ReFormat( oRef, cFileName )
local aFile
IF ! Empty( aFile := oRef:File2Array( cFileName ) )
if oRef:Reformat( aFile )
XBrowse( aFile )
? oRef:Array2Source( aFile )
? oRef:cExtSave
? oRef:Array2File( cFileName, aFile ) //
// mi fichero ini contiene la entrada
// cExtSave = FMT
// por eso leo este fichero
? MemoRead( hb_FNameMerge( hb_DirBase(), "Hola.FMT" ) )
endif
ELSE
? cFileName + " isn't found ..."
ENDIF
Return nil
//----------------------------------------------------------------------------//------------------------------------- NEW VERSION 15/06/2017 ----------------------
Fwdbg.dll not found, imposible to continueNo entiendo bien qué te puede pasar porque la definición de los proyectos no se ha modificado y yo sigo usando los mismos proyectos desde el principio sin tener que haberlos cambiado, pero como son procesos en los que se han de tener en cuenta muchos detalles, es posible que alguno se me haya pasado, pero en las pruebas que he realizado desde que me lo comentaste no he conseguido "cazarlo"
En cuanto al otro tema asegúrate que no tienes marcada la opción "Debug Mode" en la pestaña de Harbour ( Configuración )



Gabriel,
Voy a volverlo a probar
------------------------------------------ EDITADO -------------------------------
Tienes razón, da error en XP
Voy a ver si puedo hacer una versión compatible con XP
El problema es el uso de funciones de GDIPLUS
Leandro
Lo has probado con la última actualización del 17/06/2017 ?
Gracias Cristobal
Saludos,
Gabriel