from:"Jose Miguel"

[Harbour] hbvpdf.lib with image

2009-09-17 Thread Jose Miguel

Hello

The library hbvpdf.lib
When printing an image and the file does not exist, does not close the pdf and 
gives error
What are the sources that supports and what types of pages?
Saludos
Jose Miguel

Ejemplos y programas para Harbour + MiniGUI Extended 
http://www.embalajesterra.com/misdoc/programas/programas.html




  Yahoo! Cocina

Encontra las mejores recetas con Yahoo! Cocina.


http://ar.mujer.yahoo.com/cocina/___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] MenuItem

2008-01-04 Thread Jose Miguel

Hola/Hello

Cuando presiono un numero en el menu se selecciona siempre el primer item, 
alguna solucion?
-
When I press I number in menu always selects the first item, some solution?

Este el el codigo/this is the code

  // TopBar() creates the menu at the very top of the screen
oTopBar := TopBar( 2, 0, 79)
oTopBar:ColorSpec :="b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"

  // Create a new popup menu named FILE and add it to the TopBar object
oPopUpA:= PopUp()
oPopUpA:ColorSpec:= "b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"
oTopBar:AddItem( MenuItem ( "&Remesas",oPopUpA) )

  // Add some menu items to the newly created File popup
   oItem :=MenuItem( "&1-Altas/modif. Remesas  " ,{|| REMALT()  }, 
49,"Altas y modificacion de Remesas", 11)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&2-Consultar Remesas " ,{|| REMCON()  }, 
50,"Consulta de Remesas", 12)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&3-Apertura/Cambio Ejercicio " ,{|| REMEJE()  }, 
51,"Aperturar o cambiar de ejerccio", 13)
   oPopUpA:AddItem( oItem)
   oPopUpA:AddItem( MenuItem( MENU_SEPARATOR ) )
   oItem :=MenuItem( "&4-TERMINAR  " ,{|| .t.  }, 52,"Salir 
del programa", 999)
   oPopUpA:AddItem( oItem)

   // Return our TopBar object back to MENU_Test()
   return ( oTopBar)




Ejemplos y programas para MiniGUI Extended 
http://www.gateos.com/misdoc/programas/programas.html


   
-

Yahoo! Encuentros
Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros.
 Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] MenuItem

2008-01-04 Thread Jose Miguel

hola adjunto envio el fichero del menu, selecciona "3-Apertura/Cambio 
Ejercicio" pulsando el numero 3 y comprobaras que se selecciona la opcion 1, 
gracias

hello attached envio the file of menu, selects "3-Apertura/Cambio Ejercicio" 
pressing I number 3 and you verified that option 1 is selected, thanks

Saludos
Jose Miguel

Szakáts Viktor <[EMAIL PROTECTED]> escribió: Hi Jose,

Could you post a working example for this problem,
so that I can compare the behavior to C5.3.

Brgds,
Viktor

On 2008.01.04., at 16:30, Jose Miguel wrote:

> Hola/Hello
>
> Cuando presiono un numero en el menu se selecciona siempre el primer  
> item, alguna solucion?
> -
> When I press I number in menu always selects the first item, some  
> solution?
>
> Este el el codigo/this is the code
>
/***
*
*  Menu.prg
*
*  Sample menu handling functions
*
*  Copyright (c) 1990-1995, Computer Associates International Inc.
*  All rights reserved.
*
*  This is not meant to run as a standalone file.  There are function
*  calls from within this file (such as MyCreateFile()) that do not
*  exist.  This code can be modified, however, for your use.  If it
*  is modified, use the /n switch when compiling.
*
*  Compile: CLIPPER menu /n
*  Link: EXOSPACE FI menu
*
***/

   #include "button.ch"   // Menu definitions
   #include "inkey.ch"// Key definitions

// This function sets up the environment and then calls MENU_Create() to
// create the menu.  Finally, it waits for a menu event to occur by calling
// the MenuModal() function.

PROCEDURE MAIN()

   local oInfo

   // Allow mouse actions to take place
   SET( _SET_EVENTMASK, INKEY_ALL )

   // Make the mouse cursor visible
   msetcursor(.T.)

   // Clear the screen
   cls

   // Create the menu
   oInfo=MENU_Create()

   // Wait for a menu event and do not exit until File/Exit is chosen
   MENUSELA:=0
   MENUSEL1:=1
   MENUSEL2:=1
   MENUSEL3:=1
   KEYBOAR CHR(13)
   DO WHILE .T.
  cls
  SET CONSOLE ON
  CLOSE DATABASES
  MENUSELA:=MenuModal(oInfo,MENUSEL1,24,1,79,"r/w")
  IF MENUSELA=999
 EXIT
  ENDIF
  MENUSEL1:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),1,1))
  MENUSEL2:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),2,1))
  MENUSEL3:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),3,1))
  TECLA2:="CHR(13)"
  IF MENUSEL2<>0
 FOR N=2 TO MENUSEL2
TECLA2:=TECLA2+"+CHR(24)"
 NEXT
  ENDIF
  IF MENUSEL3<>0
 TECLA2:=TECLA2+"+CHR(13)"
 FOR N=2 TO MENUSEL3
TECLA2:=TECLA2+"+CHR(24)"
 NEXT
  ENDIF
  IF LEN(TECLA2)>0
 KEYBOARD &TECLA2
  ENDIF
   ENDDO
SET CONSOLE OFF

   return

// This function will create the menu and return the newly created
// MenuObject as its return value.  This menu consists of three "Main Menu 
choices" ..
// File, Edit, and Options.  Additionally, the Edit TopBarMenu item has a 
secondary menu for
// one of its menu items.

function MENU_Create()
   local oTopBar, oPopUp, oPopUpB, oItem

  // TopBar() creates the menu at the very top of the screen
oTopBar := TopBar( 2, 0, 79)
oTopBar:ColorSpec :="b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"

  // Create a new popup menu named FILE and add it to the TopBar object
oPopUpA:= PopUp()
oPopUpA:ColorSpec:= "b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"
oTopBar:AddItem( MenuItem ( "&Remesas",oPopUpA) )

  // Add some menu items to the newly created File popup
   oItem :=MenuItem( "&1-Altas/modif. Remesas  " ,{|| MENU2(11)  }, 
49,"Altas y modificacion de Remesas", 11)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&2-Consultar Remesas " ,{|| MENU2(12)  }, 
50,"Consulta de Remesas", 12)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&3-Apertura/Cambio Ejercicio " ,{|| MENU2(13)  }, 
51,"Aperturar o cambiar de ejerccio", 13)
   oPopUpA:AddItem( oItem)
   oPopUpA:AddItem( MenuItem( MENU_SEPARATOR ) )
   oItem :=MenuItem( "&4-TERMINAR  " ,{|| .t.  }, 52,"Salir 
del programa", 999)
   oPopUpA:AddItem( oItem)

  // Create a second popup menu named EDIT and attach it to oTopBar
oPopUpA:= PopUp()
oPopUpA:ColorSpec:= "b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"
oTopBar:AddItem( MenuItem ( "&Listados",oPopUpA) )

  // Add some menu items to this EDIT popup menu
   oItem :=MenuItem( "&1-Listado Remesas por Fecha " ,{|| MENU2(21)}, 
49,"Listado Remesas por Fecha", 21)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&2-Listado Remesas por Cliente   " ,{|| MENU2(22)}, 
50,"Listado Remesas por Cliente", 22)
   oPopUpA:AddItem( oItem)
   oItem :=MenuItem( "&3-Imprimir Remesa Standard  " ,{|| MENU2

Re: [Harbour] MenuItem

2008-01-05 Thread Jose Miguel

Hello

I have proven it with Harbour Compiler Devel build (SVN 2007-12-20 15:00), that 
is harbour of Minigui Ext.
Not like obtaining a recent version but
Saludos
Jose Miguel

Szakáts Viktor <[EMAIL PROTECTED]> escribió: Thank you. Please try with lastest 
repository.

Brgds,
Viktor

On 2008.01.04., at 22:34, Jose Miguel wrote:

> hola adjunto envio el fichero del menu, selecciona "3-Apertura/ 
> Cambio Ejercicio" pulsando el numero 3 y comprobaras que se  
> selecciona la opcion 1, gracias
> 
> hello attached envio the file of menu, selects "3-Apertura/Cambio  
> Ejercicio" pressing I number 3 and you verified that option 1 is  
> selected, thanks
>
> Saludos
> Jose Miguel
>
> Szakáts Viktor  escribió: Hi Jose,
>
> Could you post a working example for this problem,
> so that I can compare the behavior to C5.3.
>
> Brgds,
> Viktor
>
> On 2008.01.04., at 16:30, Jose Miguel wrote:
>
> > Hola/Hello
> >
> > Cuando presiono un numero en el menu se selecciona siempre el primer
> > item, alguna solucion?
> > -
> > When I press I number in menu always selects the first item, some
> > solution?
> >
> > Este el el codigo/this is the code
> >
> /***
> *
> *  Menu.prg
> *
> *  Sample menu handling functions
> *
> *  Copyright (c) 1990-1995, Computer Associates International Inc.
> *  All rights reserved.
> *
> *  This is not meant to run as a standalone file.  There are function
> *  calls from within this file (such as MyCreateFile()) that do not
> *  exist.  This code can be modified, however, for your use.  If it
> *  is modified, use the /n switch when compiling.
> *
> *  Compile: CLIPPER menu /n
> *  Link: EXOSPACE FI menu
> *
> ***/
>
>#include "button.ch"   // Menu definitions
>#include "inkey.ch"// Key definitions
>
>
> // This function sets up the environment and then calls  
> MENU_Create() to
> // create the menu.  Finally, it waits for a menu event to occur by  
> calling
> // the MenuModal() function.
>
> PROCEDURE MAIN()
>
>local oInfo
>
>// Allow mouse actions to take place
>SET( _SET_EVENTMASK, INKEY_ALL )
>
>// Make the mouse cursor visible
>msetcursor(.T.)
>
>// Clear the screen
>cls
>
>// Create the menu
>oInfo=MENU_Create()
>
>// Wait for a menu event and do not exit until File/Exit is chosen
>MENUSELA:=0
>MENUSEL1:=1
>MENUSEL2:=1
>MENUSEL3:=1
>KEYBOAR CHR(13)
>DO WHILE .T.
>   cls
>   SET CONSOLE ON
>   CLOSE DATABASES
>   MENUSELA:=MenuModal(oInfo,MENUSEL1,24,1,79,"r/w")
>   IF MENUSELA=999
>  EXIT
>   ENDIF
>   MENUSEL1:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),1,1))
>   MENUSEL2:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),2,1))
>   MENUSEL3:=VAL(SUBSTR(LTRIM(STR(MENUSELA)),3,1))
>   TECLA2:="CHR(13)"
>   IF MENUSEL2<>0
>  FOR N=2 TO MENUSEL2
> TECLA2:=TECLA2+"+CHR(24)"
>  NEXT
>   ENDIF
>   IF MENUSEL3<>0
>  TECLA2:=TECLA2+"+CHR(13)"
>  FOR N=2 TO MENUSEL3
> TECLA2:=TECLA2+"+CHR(24)"
>  NEXT
>   ENDIF
>   IF LEN(TECLA2)>0
>  KEYBOARD &TECLA2
>   ENDIF
>ENDDO
> SET CONSOLE OFF
>
>return
>
>
>
> // This function will create the menu and return the newly created
> // MenuObject as its return value.  This menu consists of three  
> "Main Menu choices" ..
> // File, Edit, and Options.  Additionally, the Edit TopBarMenu item  
> has a secondary menu for
> // one of its menu items.
>
> function MENU_Create()
>local oTopBar, oPopUp, oPopUpB, oItem
>
>
>   // TopBar() creates the menu at the very top of the screen
> oTopBar := TopBar( 2, 0, 79)
> oTopBar:ColorSpec :="b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"
>
>   // Create a new popup menu named FILE and add it to the TopBar  
> object
> oPopUpA:= PopUp()
> oPopUpA:ColorSpec:= "b/w,gr+/rb,r/w,w+/rb,n+/w,w+/b"
> oTopBar:AddItem( MenuItem ( "&Remesas",oPopUpA) )
>
>   // Add some menu items to the newly created File popup
>oItem :=MenuItem( "&1-Altas/modif. Remesas  " ,{||  
> MENU2(11)  }, 49,"Altas y modificacion de Remesas", 11)
>oPopUpA:AddItem( oItem)
>oItem :=MenuItem( "&2-Consultar Remesas " ,{||  
> MENU2(12)  }, 50,"Consulta de Remesas", 12)
>oPopUpA:AddItem( oItem)
>oItem :=MenuItem( "&am

Re: [Harbour] MenuItem

2008-01-05 Thread Jose Miguel

Hello, I have seen that it has made a modification, thank you very much, will 
prove in proxima update of Minigui ext.  
Greetings and thanks
Jose Miguel

Szakáts Viktor <[EMAIL PROTECTED]> escribió: Hi, I've fixed this problem 
yesterday (see the Changelog
sent just before my previous reply), so pls retry with
the latest SVN, to see if it fixes the problem.

Brgds,
Viktor




Ejemplos y programas para MiniGUI Extended 
http://www.gateos.com/misdoc/programas/programas.html


   
-

Yahoo! Encuentros
Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros.
 Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] GET FECHA

2008-01-05 Thread Jose Miguel

Hola/Hello

Cuando edito un campo fecha se desplazan los guiones, es correcto?
---
When I publish a field date move the scripts, he is correct?

FECHA:=DATE()
@ 4,16 GET FECHA

Saludos
Jose Miguel



Ejemplos y programas para MiniGUI Extended 
http://www.gateos.com/misdoc/programas/programas.html


   
-

Yahoo! Encuentros
Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros.
 Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] DIRECTOY and subfolders?

2008-01-26 Thread Jose Miguel

Hola, Existe algun comando como DIRECTOY que incluya las subcarpetas?
--
Hello, Exists algun commando like DIRECTOY that includes the subfolders?

Saludos
Jose Miguel



Ejemplos y programas para Harbour + MiniGUI Extended 
http://www.gateos.com/misdoc/programas/programas.html


   
-

Tarjeta de crédito Yahoo! de Banco Supervielle.Solicitá tu nueva Tarjeta de 
crédito. De tu PC directo a tu casa. 
 Visitá www.tuprimeratarjeta.com.ar___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Wvt_SetFont( 'Lucida Console',18, 11, 0 )

2008-06-30 Thread Jose Miguel

Hola


Somebody knows to use this commando



Wvt_SetFont( 'Lucida Console',18, 11, 0 )
gtwvt.lib even gives
error Me connecting the bookstore I perhaps connect it bad
is for a mixed program hmg -ext + console
--
Alguien sabe utilizar este comando

Wvt_SetFont( 'Lucida Console',18, 11, 0 )

Me da error incluso enlazando la libreria gtwvt.lib

quizas la enlazo mal, nose.

Es para un programa mixto hmg ext + console



Saludos

Jose Miguel



Ejemplos y programas para Harbour + MiniGUI Extended 
http://www.embalajesterra.com/misdoc/programas/programas.html




  

¡Buscá desde tu celular!

Yahoo! oneSEARCH ahora está en Claro

http://ar.mobile.yahoo.com/onesearch___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] hbvpdf.lib with image

[Harbour] MenuItem

Re: [Harbour] MenuItem

Re: [Harbour] MenuItem

Re: [Harbour] MenuItem

[Harbour] GET FECHA

[Harbour] DIRECTOY and subfolders?

[Harbour] Wvt_SetFont( 'Lucida Console',18, 11, 0 )

8 matches

Site Navigation

Mail list logo

Footer information