Mejoras para scintilla

[cnavarro]

[cnavarro]

New Version
ListBox sustituido por XBrowse en la lista de funciones

[cnavarro]

Nueva version
En relacion a _, aun me faltan las funciones de FW y hacer el mantenimiento de ellas (añadir,modificar, etc)
Añadido lista de marcas

https://bitbucket.org/navarro_cristobal/fivedit

[Antonio Linares]

Cristobal,

Yo soy partidario de usar el font "Courier New", pero supongo que es cuestión de gustos

[cnavarro]

A mandar, ahora lo subo

---------------------------

Actualizado: 21/12/2014 - 22:10

https://bitbucket.org/navarro_cristobal/fivedit
-------------------------------

Eliminado Bug
Añadido efectos estéticos
Añadido menus contextuales en margenes del editor
Ya genera el ejecutable independientemente donde coloques el ejecutable (pero de momento la carpeta de ..\bitmaps ha de estar accesible)

[cnavarro]

Antonio, y compañeros
Si habéis probado el ejemplo de FWH SciEdit2.prg el comportamiento al pulsar TAB no es el adecuado para el uso del editor (el control pierde el foco, como es normal)
No encuento la forma de solucionarlo
He probado :oJump, etc pero seguramente no enfoco el problema correctamente
Alguna ayuda?

[Antonio Linares]

Cristobal,

Prueba a hacer:

oSincitilla:nDlgCode = DLGC_WANTALLKEYS

Revisa como está implementado el método:

METHOD GetDlgCode( nLastKey ) CLASS TControl

[cnavarro]

Antonio, fue lo primero que probé
Pero no doy con ello
Feliz Navidad

[Antonio Linares]

Cristobal,

En la Clase TScintilla prueba a añadir _ más aqui:

METHOD KeyDown( nKey, nFlags ) CLASS TScintilla

Code: Select all

      case nKey == VK_TAB .and. GetKeyState( VK_SHIFT )
           return nil

      case nKey == VK_TAB
           return nil
 

para que no se procesen en TControl KeyDown()

[cnavarro]

Tambien lo habia probado antes de solicitar vuestra ayuda
Uso el ::SetFocus(), crea el Tab pero se me posiciona el cursor al principio del fichero

Code: Select all

      Case nKey == VK_TAB
           //El control pierde el foco
           ::SetFocus()
           //::GoLine( nLine )
           //nPosAct   := ::SendEditor( SCI_GETCURRENTPOS, 0, 0)
           //::GotoPos( nPosAct ) //+ ::SendEditor( SCI_GETTABWIDTH, 0, 0 ) )
           //::Tab()
           //::InsertChars( Chr( VK_TAB ), SCI_LINEEND )
           Return nil
 

Un saludo

[mastintin]

Cristobal ,Antonio . en mi FWH tengo sciedit2.rc pero no tengo sciedit2.prg.
Cristobal, ¿ Al final estas usando el código gdi+ para los pngs ? .
Saludos.

[cnavarro]

Te lo envio
Yo solo la tengo en una version 12.03, lo que no puedo acordarme es si venía con la distribucion o es un fichero mio (esto no lo creo, pero ya la memoria falla )
Aun no he tenido tiempo de meterme a fondo con el tema. Cuando empiece ya tendras noticias mias

[Antonio Linares]

Manuel,

En FWH samples no está

[Antonio Linares]

Cristobal,

Pero al final haces return nil ?

Si no lo haces llegará al final y llamará a ::Super:KeyDown() que procesara el saltar al siguiente.

[cnavarro]

Antonio, claro

Antonio, si nunca ha estado entonces es un ejemplo mio que coloqué ahi