Mejoras para scintilla

[cnavarro]

Actualizado
https://www.dropbox.com/s/fpvjiim0uiq9z ... 1.zip?dl=0

[Pablo César]

Pablo, lo has probado?

Hola Cristobal,

No lo habia podido probar hasta ahora (me guié apenas por la imagen que tu habias mostrado). Pero vengo acompañando este tu trabajo y luce muy bueno.

Yo soy usuário de HMG y trabajo con padron UNICODE, es lo único que estrañé, pero entiendo que hay un largo camino por delante.

Me gustó mucho este nuevo layout, el primero que era al estilo Win8, no me gustaba.

Si me permites ser crítico, lo que hé notado, que al alterar cualquier prg y deshaces de cualquier cambios, al salir este pregunta si deseas grabar. Mismo no habiendo cambio alguno.

Te deseo mucho suceso y agradezco tu grandiosa voluntad.

Felicitaciones.

Un gran abrazo ! Y seguiré acompañando con mucho entusiasmo...

[cnavarro]

Cristobal,

Yo he estado este fin de semana trabajando en la versión de fivedit.prg (antes sciedit.prg) de FWH para ver si lo completo y asi podemos ofrecer algo terminado y funcionando

Una vez lo termine, revisaré todas tus mejoras y novedades y a ver en que puedo ayudar

Otro look
A ver qué opinión os merece y estoy intentando que este listo para el dia de Reyes, a ver que tal se portan....

[Antonio Linares]

Cristobal,

Se ve muy bien!

La prueba de fuego es poder olvidarnos de nuestro editor habitual y trabajar comodamente desde el nuevo

[sysctrl2]

Me gusta !

[sysctrl2]

Las teclas CTRL+O ( Open )
CTRL + S ( Save )
Son clásicas en los editores de textos.

saludos.

[sysctrl2]

por ejemplo MultiEdit,
cuando escribes, (, ", [ {
se cierran automáticamente,

y si escribes,

IF, case, while, etc.

serian unas excelentes mejoras !!

nos olvidaríamos de mucho editores que ya no tienen soporte.

saludos.

[Antonio Linares]

Cesar,

Yo estoy terminando de completar el ejemplo FWH\samples\sciedit.prg (renombrado ahora como Fivedit.prg) y no he querido publicarlo aún, pues quiero que la primera versión que se ofrezca gratuitamente y con todo el código fuente incluido, tenga un nivel de funcionalidad que permita realmente ya trabajar con él. De ahí que no quiero poner en circulación versiones incompletas.

De todas formas, si alguien quiere probar lo que ya está hecho y ver como está quedando solo tiene que decirlo

[cnavarro]

Cesar, gracias

Y respecto a tus comentarios, son detalles que tendre en cuenta, espero que haya muchas mas peticiones

[Baxajaun]

Cristobal,

se ve de cine. Muchas gracias por compartir.

Antonio, no tienes más que enviarlo y lo probaré.

Muchas gracias a ambos.

Un abrazo,

[cnavarro]

El repositorio está abierto

https://bitbucket.org/navarro_cristobal/fivedit

Ir a la seccion de descargas ( ahi está todo lo necesario para probarlo ) o descargar el repositorio entero (aunque no es necesario, ya que aun no incluye codigo fuente)
Agradeceria vuestros comentarios

[cnavarro]

Cristobal , he implementado lo del zoom en sciedit de fivemac, pero tu codigo de zoom no me funcionaba adecuadamente y lo he repensado ....
el codigo en la clase :

Code: Select all

METHOD SetZoom( nZ ) CLASS TScintilla

    Local  nZoomFactor := ::SendEdit( SCI_GETZOOM, 0, 0 )
    DEFAULT nZ  := 0
    if nZ > -11 .and. nZ < 21
       ::SendEdit( SCI_SETZOOM, nZ, 0 )
    endif
    nZoomFactor := ::SendEdit( SCI_GETZOOM, 0, 0 )

Return nZoomFactor
 

He colocado un boton Flat con el prompt con el porcentaje , al pulsarlo asigno 0 al zoom y coloco el prompt adecuadamente.
. el slider lo he limitado para que coja valores desde -9 a 20
He calculado el porcentaje con ( nValorSlider+10 ) *10 siendo -9 el 10% o el 100% y 20 el 300%

el codigo del editor. Ojo es codigo fivemac pero adaptable a fwh faclimente ...

Code: Select all

@ 2, 210 BUTTON oSayZoom PROMPT "Zoom : 100%"  OF oWnd SIZE 110, 16 ;
    ACTION oSayZoom:setText("Zoom : "+ alltrim(str( ( ( oEditor:setZoom( 0 )+10)*10 ) ) )+ "%" )

    oSayZoom:SetBezelStyle( 13 )

 @ 1, 324 SLIDER oSlide SIZE 100,18 OF oWnd

  oSlide:SetMinMaxValue( -9, 20 )

oSlide:bChange := {|| oSayZoom:setText("Zoom : "+ alltrim(str( ( ( oEditor:setZoom( oSlide:GetValue() )+10)*10 ) ) )+ "%" ) }

 

Manuel, el zoom tambien funciona por defecto con la tecla CTRL + rueda de raton
Lo digo porque se ha de actualizar el texto del porcentaje del zoom cuando este evento ocurre
A ver si puedes probar el nuevo .exe

[cnavarro]

El repositorio está abierto

https://bitbucket.org/navarro_cristobal/fivedit

Ir a la seccion de descargas ( ahi está todo lo necesario para probarlo ) o descargar el repositorio entero (aunque no es necesario, ya que aun no incluye codigo fuente)
Agradeceria vuestros comentarios

Bugs actuales (evidentemente no son los unicos):
En el coloreado de código falla en los siguientes casos:

Code: Select all

// Uso de la funcion 
if( <cond>, <Accion/Func .T.>, <Accion/Func .F.> )
// Si funciona bien con 
iif(<cond>, <Accion/Func .T.>, <Accion/Func .F.> )
 

Uso del return en el desarrollo de la funcion

Code: Select all

if < cond >
   return < uValor >
endif
 

Espero que vayais añadiendo aqui los restantes bugs que encontreis

Estoy añadiendo la implementacion de las Tools externas segun el desarrollo de Antonio

[jmartial]

Hola Cristobal,

No puedo probarlo, al arrancar el IDE me dice que falta la dll: MSVCP120.dll

¿Cómo lo soluciono y por qué ahora es necesaria?

[cnavarro]

Ni idea
Voy a verlo en Windows 7, yo uso Windows 8.1