www.FiveTechSoft.com
by mastintin » Sun Dec 28, 2014 3:01 pm
cnavarro wrote:Manuel
Puedes compartir el metodo oSlide:GetValue()?
Aunque entiendo lo que deberia devolver, no puedo desarrollarlo ahora
by cnavarro » Sun Dec 28, 2014 3:18 pm
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
by mastintin » Sun Dec 28, 2014 4:45 pm
cnavarro 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.
- Code: Select all Expand view
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
Qué opinas de la imagen del post anterior?
.
. Se ve superbien .by mastintin » Sun Dec 28, 2014 5:23 pm
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 nilby Antonio Linares » Sun Dec 28, 2014 5:25 pm
cnavarro 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
by cnavarro » Sun Dec 28, 2014 5:49 pm
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 .
by cnavarro » Sun Dec 28, 2014 6:09 pm
mastintin wrote:cristobal lo tengo , este código funciona perfecto . Es auto contenido ...
- Code: Select all Expand view
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
by cnavarro » Sun Dec 28, 2014 9:09 pm
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 Expand view
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
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
by mastintin » Mon Dec 29, 2014 6:42 am
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
by mastintin » Mon Dec 29, 2014 7:54 am
by cnavarro » Mon Dec 29, 2014 8:51 am
by cnavarro » Mon Dec 29, 2014 8:58 am
mastintin wrote:Para poder gestionar las "palabras claves" he creado estas dos funciones , a ver que os parecen .
- Code: Select all Expand view
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
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).
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í ?
by jmartial » Mon Dec 29, 2014 9:03 am
by cnavarro » Mon Dec 29, 2014 9:15 am
by mastintin » Mon Dec 29, 2014 9:16 am
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 33 guests