Mejoras para scintilla

[cnavarro]

----------------------------------- NEW VERSION 11/06/2017 ----------------------------

Minor bugs fixed

https://bitbucket.org/fivetech/fivewin- ... ivedit.exe

[xmanuel]

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

[cnavarro]

Gracias Manu

Lo sé, FivEdit, tiene una function que realiza algo parecido, pero hace tiempo que no la toco, porque precisamente descubrí lo que mencionas
Fijate que la opción aparece "disable" si no tienes texto seleccionado



Pero, si tienes texto seleccionado, o pulsa F2 para seleccionar todo el texto, aparece "enable"



También aparece en el menú en la opción "Editar", última opción
Pero no he tenido tiempo de dedicarle a ello, pruébala y me comentas
Ah!, y si tú dominas la utilidad de Harbour y tienes tiempo de poner un ejemplo de uso por aquí, te lo agradecería, me harías ganar mucho tiempo
Por cierto, tu enlace también tiene muy buena pinta
Saludos

[xmanuel]

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

[cnavarro]

He sacado un poco de tiempo y efectivamente es sencillo y fácil de aprender el funcionamiento de la clase
Importante: añadir al proyecto la libreria hbformat.lib
Importante: rellenar en el fichero hbformat.ini o el que quieras, y no dejar en blanco la entrada cExtSave, para las pruebas
El fichero Hbformat.ini lo puedes copiar desde harbour\contrib\hbformat\utils a tu carpeta de trabajo

Algo asi

Code: Select all  Expand view

#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

//----------------------------------------------------------------------------//

 

Ahora lo más laborioso sería hacer un diálogo para poder elegir todas las opciones sin tener que editar el fichero INI
A ver si alguien se anima
Saludos

[cnavarro]

------------------------------------- NEW VERSION 15/06/2017 ----------------------

- Bugs Fixed

https://bitbucket.org/fivetech/fivewin- ... ivedit.exe

[leandro]

Cristobal buenos días

Te cuento que para poder compilar con la ultima versión, fue necesario crear un nuevo proyecto. El problema ahora radica en que cuando utilizo la opción ejecutar y valga la redundancia; no ejecuta el exe, busque en la carpeta en donde este el archivo generado y efectivamente allí esta, al querer correlo me arroja el siguiente mensaje de error:

Code: Select all  Expand view

Fwdbg.dll not found, imposible to continue

Busque la dll y la copie al lado del ejecutable; ya no me arroja el error, pero me abre el debug de fw.

La pregunta es: ¿Como hago para que no enlace el debug con el exe?

Saludos

[cnavarro]

No 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 )

[cnavarro]

------------------------------------------- NEW VERSION 17/06/2017 -------------------------------

Dialog Find text: fixed
Also allow find text into document or multiple files

https://bitbucket.org/fivetech/fivewin- ... ivedit.exe

[cnavarro]

[Frafive]

Cristobal, me da error en windows xp, no va con el xp ?
Saludos
Gabriel

[leandro]

Cristobal como vas?

De nuevo yo, con la ultima actualización, al momento de abrir un proyecto me arroja el siguiente error:

Code: Select all  Expand view

Application
===========
   Path and name: C:\dlymado.1\fivedit53\fivedit.exe (32 bits)
   Size: 6,522,368 bytes
   Compiler version: Harbour 3.2.0dev (r1603301435)
   FiveWin  version: FWH 17.04
   C compiler version: Microsoft Visual C++ 19.0.23506 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 8 secs
   Error occurred at: 20/06/2017, 11:32:13
   Error description: Error BASE/1004  Message not found: TPANEL:NORDEN
   Args:
     [   1] = O   TPANEL

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TPANEL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TPANEL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TPANEL:NORDEN( 0 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:BUILDEDITOR( 1678 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:OPENFILE( 6791 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:OPENPROJECT( 7006 )
   Called from: .\source\classes\TFIVEDIT.PRG => (b)TFIVEDIT_MENUPROJECT( 4599 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1378 )
   Called from: .\source\classes\WINDOW.PRG => TFIVEDITWND:COMMAND( 1110 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: \FWH\FWHTEAM\SAMPLES\fivedit.prg => TFIVEDITWND:HANDLEEVENT( 3043 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3381 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TFIVEDITWND:ACTIVATE( 1066 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:ACTIVATE( 742 )
   Called from: \FWH\FWHTEAM\SAMPLES\fivedit.prg => MAIN( 144 )
 

[cnavarro]

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

[cnavarro]

Leandro
Lo has probado con la última actualización del 17/06/2017 ?

[Frafive]

Gracias Cristobal

Saludos,
Gabriel