Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Postby cnavarro » Tue Jan 16, 2018 7:47 pm

sygecom wrote:Cristobal Navarro,

Si no es pedir más. ¿Podría dar una ruta de ejemplo de UPLOAD?

Gracias


No es posible hacerlo sin las APIS
( Bueno, si es posible, enviando el fichero a la carpeta de DRIVE local del ordenador y sincronizando, pero no creo que eso sea lo que buscas )

Con mi lib de APIS de google, si se puede. A ver si tengo tiempo y pongo un ejemplo

sygecom wrote: Cristobal Navarro,

If it is not asking for more. Could you give a sample route of UPLOAD?

Thanks


It is not possible to do it without the APIs
(Well, it's possible, sending the file to the local DRIVE folder of the computer and synchronizing, but I do not think that's what you're looking for)

With my APIS lib of google, yes, you can. Let's see if I have time and I'll give an example
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 18.01

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3982
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Postby Xevi » Tue Jan 16, 2018 10:24 pm

Jejeje...

Y ya, puestos a pedir, una vez SI SE PUEDE subir un archivo, compartirlo y recoger el link de descarga, no??? Sería el NO VA MAS!!! y todo en "silencioso" jejeje
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 131
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Postby sygecom » Wed Jan 17, 2018 3:27 pm

Cristobal Navarro, Gracias.
User avatar
sygecom
 
Posts: 42
Joined: Tue Mar 11, 2008 3:18 am
Location: Brasil

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Postby cnavarro » Thu Jan 18, 2018 3:05 pm

Xevi wrote:Jejeje...

Y ya, puestos a pedir, una vez SI SE PUEDE subir un archivo, compartirlo y recoger el link de descarga, no??? Sería el NO VA MAS!!! y todo en "silencioso" jejeje


Done

viewtopic.php?f=6&t=34903&start=15#p209198

English

viewtopic.php?f=3&t=34904&start=15#p209197
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 18.01

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3982
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Postby cnavarro » Mon Jan 29, 2018 3:05 pm

Bueno, no pongo el arbolito ya

Aqui pongo una forma de poder cambiar el ACTION de un menuitem o de un button de una button bar
Está aplicado a la button bar y menu de la pantalla del preview de un report, que me ha servido como ejemplo

Code: Select all  Expand view

#include "Fivewin.ch"
#include "report.ch"

static oWnd

Static bOldActionMnu
Static bOldActionBar
Static oRep

//----------------------------------------------------------------------------//

Function Main()

   Test()

Return nil

//----------------------------------------------------------------------------//

Function Test()

   local oWndEdit, oBar, oIcon, oImage
   local cName := "FiveWin: Sample of Change Action MenuItem and Button of ButtonBar ( C.Navarro - 27/01/2018 )"

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE cName + " - " + FWVERSION ; //      MDI ;
      MENU BuildMenu()

   SET MESSAGE OF oWnd TO cName

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Program"
      MENU
         MENUITEM "&Report" ACTION MyReport()
         SEPARATOR
         MENUITEM "&End..." ACTION oWnd:End()
      ENDMENU

   ENDMENU

return oMenu

//----------------------------------------------------------------------------//
// Guardamos la action que tenia el item seleccionado
//----------------------------------------------------------------------------//

Function SaveActionMnu( n, m )

   DEFAULT n  := 1   // Numero de orden del item del menu principal
   DEFAULT m  := 1   // Numero de orden del item dentro del menu 'n'  - Print

   // Guardamos la accion que tenia el menuitem
   bOldActionMnu := oRep:oDevice:oPreview:oWnd:oMenu:aMenuItems[ n ]:bAction:aMenuItems[ m ]:bAction
   oRep:oDevice:oPreview:oWnd:oMenu:aMenuItems[ n ]:bAction:aMenuItems[ m ]:bAction := { || ChangeActionMnu( n, m ) }

Return nil

//----------------------------------------------------------------------------//
// Nueva action en el item, ejecutando también la anterior action que tenía
//----------------------------------------------------------------------------//


Function ChangeActionMnu( n, m )

   // Cualquier accion que quieras ejecutar
   MsgInfo( oRep:oDevice:oPreview:oWnd:oMenu:aMenuItems[ n ]:bAction:aMenuItems[ m ]:cPrompt )
   // Ejecutar la accion que tenia por defecto
   // Para cerrar la ventana seria oRep:oDevice:oPreview:oWnd:End()
   Eval( bOldActionMnu )

Return nil

//----------------------------------------------------------------------------//
// Guardamos la action que tenia el button seleccionado
//----------------------------------------------------------------------------//

Function SaveActionBar( n )

   DEFAULT n  := 7  // Numero de orden del boton en el buttonbar - Print

   // Guardamos la accion que tenia el boton
   bOldActionBar   := oRep:oDevice:oPreview:oWnd:oBar:aControls[ n ]:bAction
   oRep:oDevice:oPreview:oWnd:oBar:aControls[ n ]:bAction := { || ChangeActionBar( n ) }

Return nil

//----------------------------------------------------------------------------//
// Nueva action en el button, ejecutando también la anterior action que tenía
//----------------------------------------------------------------------------//

Function ChangeActionBar( n )

   // Cualquier accion que quieras ejecutar
   // Para cerrar la ventana seria oRep:oDevice:oPreview:oWnd:End()
   //oRep:oDevice:oPreview:oWnd:End()
   MsgInfo( oRep:oDevice:oPreview:oWnd:oBar:aControls[ n ]:cTooltip )
   // Ejecutar la accion que tenia por defecto
   //Eval( bOldActionBar )

Return nil

//----------------------------------------------------------------------------//

Function MyReport()

   local aData, i, d, aTmp := {}

   aData    := { ;
      { Date() - 30, "Line-1", 1000 }, ;
      { Date() - 30, "Line-2", 1500 }, ;
      { Date(),      "Line-3", 2000 }, ;
      { Date(),      "Line-4", 2500 }  }
     
   For i := 1 to 240
      AAdd( aTmp, "Number: " + StrZero( i, 3 ) )
   Next i

   i := 1

   REPORT oRep PREVIEW

   COLUMN TITLE "Date"   DATA aData[ i, 1 ]
   COLUMN TITLE "Text"   DATA aData[ i, 2 ]
   COLUMN TITLE "Amount" DATA aData[ i, 3 ] PICTURE "99,999.99" TOTAL

   END REPORT

   WITH OBJECT oRep
      :bWhile        := { || i <= Len( aData ) }
      :bSkip         := { || i++ }
   END

   ACTIVATE REPORT oRep

return nil

//----------------------------------------------------------------------------//
// Tenemos que redefinir la function que tenemos en Fivewin
// Porque el objeto oPreview no se genera hasta que no se ha realizado el
// listado guardándolo en metafiles. Después ya se ejecuta esta function que es
// la que muestra estos metafiles en pantalla
// Mirar el metodo ACTIVATE del Report.
// Si se pudiera ejecutar esta function antes de crear el listado no haria falta
// redefinirla, pero eso crearia el problema de que los metafiles no han sido
// creados aún.
//----------------------------------------------------------------------------//

function RPreview( oDevice, oReport )

   local oPreview

   oDevice:oPreview := TPreview():New( oDevice, oReport )
   oDevice:oPreview:oWnd:bInit   := { || SaveActionMnu( 1, 3 ), SaveActionBar( 7 ) }
   oDevice:oPreview:Activate()

return oPreview

//----------------------------------------------------------------------------//

 
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 18.01

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3982
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Previous

Return to Utilities / Utilidades

Who is online

Users browsing this forum: No registered users and 1 guest