LO siento , es un methodo del slider de fivemac . ¿ no tiene equivalente en windows ? algo como oSlide:nValue ?cnavarro wrote:Manuel
Puedes compartir el metodo oSlide:GetValue()?
Aunque entiendo lo que deberia devolver, no puedo desarrollarlo ahora
Code: Select all
if !Empty( oBar )
@ 3, nRightPos BUTTON oSayZoom PROMPT "Zoom : 100%" OF oBar ;
SIZE 110, 16 PIXEL ;
ACTION oSayZoom:SetText("Zoom : "+ ;
AllTrim(str( ( ( oEditor:SetZoomBar( 0 )+10)*10 ) ) )+ "%" )
//oSayZoom:SetBezelStyle( 13 )
@ 3, nRightPos + 120 SLIDER oSlide SIZE 100,18 OF oBar PIXEL RANGE -9, 20 ;
MARKS 6 ON CHANGE ( oSayZoom:SetText("Zoom : "+ ;
RTrim(Str( ((oEditor:SetZoomBar( nValSlider() )+10)*10) ) )+ "%" ))
//RTrim(Str( ((oEditor:SetZoomBar( oSlide:nGetVal( oSlide:nPos ) )+10)*10) ) )+ "%" ))
//oSlide:SetMinMaxValue( -9, 20 )
//oSlide:bChange := {|| oSayZoom:SetText("Zoom : "+ ;
// AllTrim(Str( ((oEditor:SetZoomBar( oSlide:GetValue() )+10)*10) ) )+ "%" )}
..../....
Function nValSlider()
Local nPos
nPos := oSlide:nPos
nPos := oSlide:nGetVal( nPos )
Return nPos
endif
Con el código que pones tendría que funcionar sin problema pues supongo que oslide es estática para que la vea la función en onchangecnavarro wrote:Ya me he dado cuenta
Y he mirado el codigo fuente de FiveMac y ya se mas o menos por donde pueden ir los tiros, aunque ahora no tengo tiempo para pruebas
Nada, no hay manera, lo dejo por imposible, no me reconoce ni las datas ni los metodos cuando lo llamo, ya mirare por que: las variables bien definidas, son static, etc
"Message not found: nPos"
"Message not found: nGetVal"
etc.Qué opinas de la imagen del post anterior?Code: Select all
if !Empty( oBar ) @ 3, nRightPos BUTTON oSayZoom PROMPT "Zoom : 100%" OF oBar ; SIZE 110, 16 PIXEL ; ACTION oSayZoom:SetText("Zoom : "+ ; AllTrim(str( ( ( oEditor:SetZoomBar( 0 )+10)*10 ) ) )+ "%" ) //oSayZoom:SetBezelStyle( 13 ) @ 3, nRightPos + 120 SLIDER oSlide SIZE 100,18 OF oBar PIXEL RANGE -9, 20 ; MARKS 6 ON CHANGE ( oSayZoom:SetText("Zoom : "+ ; RTrim(Str( ((oEditor:SetZoomBar( nValSlider() )+10)*10) ) )+ "%" )) //RTrim(Str( ((oEditor:SetZoomBar( oSlide:nGetVal( oSlide:nPos ) )+10)*10) ) )+ "%" )) //oSlide:SetMinMaxValue( -9, 20 ) //oSlide:bChange := {|| oSayZoom:SetText("Zoom : "+ ; // AllTrim(Str( ((oEditor:SetZoomBar( oSlide:GetValue() )+10)*10) ) )+ "%" )} ..../.... Function nValSlider() Local nPos nPos := oSlide:nPos nPos := oSlide:nGetVal( nPos ) Return nPos endif
.
. Se ve superbien .Code: Select all
Function main()
local oDlg, oFont
local oSlide, oSayZoom
local n, nVar := 0
DEFINE FONT oFont NAME "Arial" SIZE 0, -30 BOLD
DEFINE DIALOG oDlg TITLE "Sliders dialog" ;
FROM 50, 50 TO 400, 500 PIXEL
@ 80, 20 BUTTON oSayZoom PROMPT "Zoom 100%" SIZE 150, 50 ;
FONT oFont PIXEL OF oDlg ;
ACTION ( oSlide:Set(0), ActualizaZoom( nVar, oSayZoom) )
@ 10, 20 SLIDER oSlide VAR nVar OF oDlg ;
RIGHT DIRECTION ;
RANGE -10, 20 ;
MARKS 10 ;
ON CHANGE ActualizaZoom( nVar, oSayZoom ) ;
SIZE 142, 20 PIXEL
ACTIVATE DIALOG oDlg
RELEASE FONT oFont
return nil
Function ActualizaZoom( nVar, oSay )
local nPorcent:= (nVar+10) *10
if( nPorcent == 0 , nPorcent:= 10 , )
oSay:setText("Zoom "+ alltrim(str( nPorcent))+"%" )
//oEditor:SetZoomBar( nVar ) // actualiza el zoom de scintilla
Return nil
Esta chulísimocnavarro wrote:Por cierto, para el tema de la lista de Funciones, etc. se me ha ocurrido esto (fijate en el oTree de la izquierda) a ver que os parece
Ya esta implementado con una DATA que permite activarlo/desactivarlo
En mi version de Windows no tengo problemas con el boton derecho del raton (he definido mi propio metodo RButton...) en mi clase e incluso como ya he comentado, he definido menus contextuales con opciones distintas dependiendo del margen en el que nos encontremos ( en el que estemos situados con el boton derecho ), y el que aparece dentro del texto es el normal (quiero modificarlo mas adelante)mastintin wrote:Menudo arreón le has dado al scintilla
Como comentario , he investigado que eventos maneja scintilla y el botón derecho del raton parece que no lo notifica así que lo de poder tener menu contextual cuando estamos sobre el texto al menos en Mac no va a ser sencillo .
Perfecto, el problema era la clausula ... VAR nVar ...mastintin wrote:cristobal lo tengo , este código funciona perfecto . Es auto contenido ...Code: Select all
Function main() local oDlg, oFont local oSlide, oSayZoom local n, nVar := 0 DEFINE FONT oFont NAME "Arial" SIZE 0, -30 BOLD DEFINE DIALOG oDlg TITLE "Sliders dialog" ; FROM 50, 50 TO 400, 500 PIXEL @ 80, 20 BUTTON oSayZoom PROMPT "Zoom 100%" SIZE 150, 50 ; FONT oFont PIXEL OF oDlg ; ACTION ( oSlide:Set(0), ActualizaZoom( nVar, oSayZoom) ) @ 10, 20 SLIDER oSlide VAR nVar OF oDlg ; RIGHT DIRECTION ; RANGE -10, 20 ; MARKS 10 ; ON CHANGE ActualizaZoom( nVar, oSayZoom ) ; SIZE 142, 20 PIXEL ACTIVATE DIALOG oDlg RELEASE FONT oFont return nil Function ActualizaZoom( nVar, oSay ) local nPorcent:= (nVar+10) *10 if( nPorcent == 0 , nPorcent:= 10 , ) oSay:setText("Zoom "+ alltrim(str( nPorcent))+"%" ) //oEditor:SetZoomBar( nVar ) // actualiza el zoom de scintilla Return nil
Manuel, quizas habría que añadir:mastintin wrote: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
Code: Select all
METHOD SetZoom( nZ ) CLASS TScintilla
Local nZoomFactor := ::SendEdit( SCI_GETZOOM, 0, 0 )
DEFAULT nZ := 0
if !empty( ::GetText() )
if nZ > -11 .and. nZ < 21
::SendEdit( SCI_SETZOOM, nZ, 0 )
endif
nZoomFactor := ::SendEdit( SCI_GETZOOM, 0, 0 )
endif
Return nZoomFactor
Code: Select all
Function loadKeyworks2()
local cCad
local cJson
local hVar:= {=>}
local aVar
local cFile := path()+"/cadfunction.json"
if !File( cFile)
cCad:= cadComand()
aVar := hb_atokens(cCad," ")
hVar["cFun"]:= aVar
cJson = hb_JsonEncode(hVar)
hb_memowrit( cFile, cjson )
else
hb_jsondecode( memoread( cfile ), @hvar )
aVar:=hVar["cFun"]
cCad:= ""
for i =1 to len(aVar)
cCad += aVar[i]+" "
next
endif
Return cCad
//----------------------------------------------------------------------------//
Function loadKeyworks1()
local cCad
local cJson
local hVar:= {=>}
local aVar
local cFile := path()+"/cadcommad.json"
if !File( cFile)
cCad:= CadFunction()
aVar := hb_atokens(cCad," ")
hVar["cCad"]:= aVar
cJson = hb_JsonEncode(hVar)
hb_memowrit( cFile, cjson )
else
hb_jsondecode( memoread( cfile ), @hvar )
aVar:=hVar["cCad"]
cCad:= ""
for i =1 to len(aVar)
cCad += aVar[i]+" "
next
endif
Return cCad
61ABB280 SS:ESP:002B:0018F754Hay que distinguir entre ficheros para coloreado y de definicion de sintaxis para la tooltipmastintin wrote:Para poder gestionar las "palabras claves" he creado estas dos funciones , a ver que os parecen .
Las he realizado como son por dos motivos . 1.- son soportados por harbour y son multi plataforma . 2.- las puedo recuperar muy fácilmente en un array y así usar xbrowse para su edición ( por ejemplo).Code: Select all
Function loadKeyworks2() local cCad local cJson local hVar:= {=>} local aVar local cFile := path()+"/cadfunction.json" if !File( cFile) cCad:= cadComand() aVar := hb_atokens(cCad," ") hVar["cFun"]:= aVar cJson = hb_JsonEncode(hVar) hb_memowrit( cFile, cjson ) else hb_jsondecode( memoread( cfile ), @hvar ) aVar:=hVar["cFun"] cCad:= "" for i =1 to len(aVar) cCad += aVar[i]+" " next endif Return cCad //----------------------------------------------------------------------------// Function loadKeyworks1() local cCad local cJson local hVar:= {=>} local aVar local cFile := path()+"/cadcommad.json" if !File( cFile) cCad:= CadFunction() aVar := hb_atokens(cCad," ") hVar["cCad"]:= aVar cJson = hb_JsonEncode(hVar) hb_memowrit( cFile, cjson ) else hb_jsondecode( memoread( cfile ), @hvar ) aVar:=hVar["cCad"] cCad:= "" for i =1 to len(aVar) cCad += aVar[i]+" " next endif Return cCad
Ahora las pregunta . ¿ Lo meteremos en un solo archivo todo o lo hacemos en varios ( 1 por tipo ) ? ¿ como lo veis ? ¿ que nombre-nombres queréis para el archivo en caso de hacerlo así ?