FiveTech Software tech support forums

cnavarro wrote:Manuel
Puedes compartir el metodo oSlide:GetValue()?
Aunque entiendo lo que deberia devolver, no puedo desarrollarlo ahora

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

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?

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

mastintin wrote:Menudo arreón le has dado al scintilla . Se ve superbien .
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 .

mastintin wrote:cristobal lo tengo , este código funciona perfecto . Es auto contenido ...

Code: Select all | Expand

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

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

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
 

mastintin wrote:Para poder gestionar las "palabras claves" he creado estas dos funciones , a ver que os parecen .

Code: Select all | Expand

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í ?