topic-36308

Board index FiveWin para Harbour/xHarbour Problema menu con MenuBegin()

Page: 1 2 (22 posts)

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 01:03 PM

Saludos

Por alguna razon este menu no funciona aun cuando la sintaxis aparenta estar Ok

Code (fw): Select all Collapse

#include "FiveWin.ch"

static oWnd

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

function Main()

   local oWndEdit, oBar, oIcon, oImage
   local cName := "Ejemplo de Menu"

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Ventana Principla" ;
      MDI ;
      MENU BuildMenu() ;
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Salir ?" )

return nil

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

function BuildMenu()

   local oMenu

   oMenu := MenuBegin( .F.,,, .F., .F. )

      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&About...",, .F.,, {|oMenuItem|MsgAbout( "FiveWin", "FiveTech" )},,,,,,, .F.,,, .F. )
         MenuAddItem()
         MenuAddItem( "&End...",, .F.,, {|oMenuItem|oWnd:End()},,,,,,, .F.,,, .F. )
      MenuEnd()

      MenuAddItem( "&Child Windows",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&Tiled",, .F.,, {|oMenuItem|oWnd:Tile()},,,,,,, .F.,,, .F. )
         MenuAddItem( "&Cascade",, .F.,, {|oMenuItem|oWnd:Cascade()},,,,,,, .F.,,, .F. )
      MenuEnd()
   MenuEnd()

return oMenu

Agradezco recomendaciones

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 01:41 PM

Code (fw): Select all Collapse

#include "FiveWin.ch"

static oWnd

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

function Main()

   local oWndEdit, oBar, oIcon, oImage
   local cName := "Ejemplo de Menu"

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Ventana Principla" ;
      MDI ;
      MENU BuildMenu() ;
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Salir ?" )

return nil

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

function BuildMenu()

   local oMenu

   /*
   oMenu := MenuBegin( .F.,,, .F., .F. )

      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&About...",, .F.,, {|oMenuItem|MsgAbout( "FiveWin", "FiveTech" )},,,,,,, .F.,,, .F. )
         MenuAddItem()
         MenuAddItem( "&End...",, .F.,, {|oMenuItem|oWnd:End()},,,,,,, .F.,,, .F. )
      MenuEnd()

      MenuAddItem( "&Child Windows",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&Tiled",, .F.,, {|oMenuItem|oWnd:Tile()},,,,,,, .F.,,, .F. )
         MenuAddItem( "&Cascade",, .F.,, {|oMenuItem|oWnd:Cascade()},,,,,,, .F.,,, .F. )
      MenuEnd()
   MenuEnd()
   */

   MENU oMenu 2007

      MENUITEM "&Information"

      MENU
         MENUITEM   "&About..." ;
            ACTION  MsgInfo( "FiveWin Tutorial" + Chr( 13 ) + FWCOPYRIGHT ) ;
            MESSAGE "Information about this application"

         SEPARATOR

         MENUITEM   "&End..."  ;
            ACTION  If( MsgYesNo( "Want to end ?" ), oWnd:End(),) ;
            MESSAGE "End this application"
      ENDMENU

      MENUITEM "&Files"

      MENU
         MENUITEM   "&Customers..." ;
            ACTION  msginfo("just a test") ;
            MESSAGE "Customers maintainance"

         MENUITEM   "&Stock" ;
            ACTION  MsgInfo( "Any option from here" ) ;
            MESSAGE "Stock maintainance"
      ENDMENU

      MENUITEM "&Utils"

      MENU
         MENUITEM   "&Calculator..." ;
            ACTION  WinExec( "Calc" ) ;
            MESSAGE "Run Windows calculator"

         MENUITEM   "C&alendar..." ;
            ACTION  WinExec( "Calendar" ) ;
            MESSAGE "Run Windows calendar"

         MENUITEM   "&Some fun..." ;
            ACTION  WinExec( "Sol" ) ;
            MESSAGE "Play a game..."
      ENDMENU

   ENDMENU

return oMenu

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 01:44 PM

karinha wrote:

Code (fw): Select all Collapse

#include "FiveWin.ch"

static oWnd

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

function Main()

   local oWndEdit, oBar, oIcon, oImage
   local cName := "Ejemplo de Menu"

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Ventana Principla" ;
      MDI ;
      MENU BuildMenu() ;
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Salir ?" )

return nil

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

function BuildMenu()

   local oMenu

   /*
   oMenu := MenuBegin( .F.,,, .F., .F. )

      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&About...",, .F.,, {|oMenuItem|MsgAbout( "FiveWin", "FiveTech" )},,,,,,, .F.,,, .F. )
         MenuAddItem()
         MenuAddItem( "&End...",, .F.,, {|oMenuItem|oWnd:End()},,,,,,, .F.,,, .F. )
      MenuEnd()

      MenuAddItem( "&Child Windows",, .F.,,,,,,,,, .F.,,, .F. )
      MenuBegin( .F.,,, .F., .F. )
         MenuAddItem( "&Tiled",, .F.,, {|oMenuItem|oWnd:Tile()},,,,,,, .F.,,, .F. )
         MenuAddItem( "&Cascade",, .F.,, {|oMenuItem|oWnd:Cascade()},,,,,,, .F.,,, .F. )
      MenuEnd()
   MenuEnd()
   */

   MENU oMenu 2007

      MENUITEM "&Information"

      MENU
         MENUITEM   "&About..." ;
            ACTION  MsgInfo( "FiveWin Tutorial" + Chr( 13 ) + FWCOPYRIGHT ) ;
            MESSAGE "Information about this application"

         SEPARATOR

         MENUITEM   "&End..."  ;
            ACTION  If( MsgYesNo( "Want to end ?" ), oWnd:End(),) ;
            MESSAGE "End this application"
      ENDMENU

      MENUITEM "&Files"

      MENU
         MENUITEM   "&Customers..." ;
            ACTION  msginfo("just a test") ;
            MESSAGE "Customers maintainance"

         MENUITEM   "&Stock" ;
            ACTION  MsgInfo( "Any option from here" ) ;
            MESSAGE "Stock maintainance"
      ENDMENU

      MENUITEM "&Utils"

      MENU
         MENUITEM   "&Calculator..." ;
            ACTION  WinExec( "Calc" ) ;
            MESSAGE "Run Windows calculator"

         MENUITEM   "C&alendar..." ;
            ACTION  WinExec( "Calendar" ) ;
            MESSAGE "Run Windows calendar"

         MENUITEM   "&Some fun..." ;
            ACTION  WinExec( "Sol" ) ;
            MESSAGE "Play a game..."
      ENDMENU

   ENDMENU

return oMenu

Saludos.

Karinha

Gracias

No es posible hacerlo de la forma que pedi?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:05 PM

Asta donde yo sepa, és posible en una listbox ó en un dialogo. No en una Window.

Pero...

Code (fw): Select all Collapse

    //-> ListBox
    REDEFINE LISTBOX oLbx FIELDS                                    ;
             (DbClientes:cAlias)->RAZ_MATRIC                      , ;
             (DbClientes:cAlias)->DEST_NOME                       , ;
             (DbClientes:cAlias)->END                             , ;
             (DbClientes:cAlias)->BAI                             , ;
             (DbClientes:cAlias)->CID                             , ;
             (DbClientes:cAlias)->CEP                             , ;
             (DbClientes:cAlias)->TEL                             , ;
             (DbClientes:cAlias)->TEL2                            , ;
             (DbClientes:cAlias)->TEL3                              ;
             HEADERS ( OemToAnsi( "C¢digo/Cnpj/Cpf" ) )           , ;
                     ( OemToAnsi( "Nome/RazÆo Social=> "          + ;
                     "<Click> Mouse Direito<Menu>" ) )            , ;
                     ( OemToAnsi( "Endere‡o"        ) )           , ;
                     ( OemToAnsi( "Bairro"          ) )           , ;
                     ( OemToAnsi( "Cidade"          ) )           , ;
                     ( OemToAnsi( "Cep"             ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )             ;
             FIELDSIZES 130, 480, 480, 200, 200, 100, 150, 150, 150 ;
             COLOR CLR_BROWN, CLR_LGREEN                            ;
             FONT oFont                                             ;
             CURSOR oHand                                           ;
             UPDATE                                                 ;
             ID 101                                                 ;
             OF oDlg                                                ;
             ON DBLCLICK( Click()                                 , ;
                          GETCLIENTES( .F., DbClientes, DbCabec,    ;
                                            DbPaieMae, DeOndeVem ), ;
             oLbx:SetFocus(), oLbx:Refresh(), oLbx:DrawSelect() )



    // Esta em Contabil.Prg \samples\account
    oLbx:bRClicked := { | nRow, nCol, nFlags |                            ;
         ( oMenu := MenuBegin( .T. )                                    , ;
           MenuAddItem( ( OemToAnsi( "Incluir Cliente" ) ),, .F.,       , ;
               { | oMenuItem | ( Click(), GetClientes( .T., DbClientes,   ;
                                            DbCabec,    ;
                                            DbPaieMae, DeOndeVem ), ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "COMPUTADOR",,,,, .F.,,, .F. )                       , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Excluir Cliente" ) ),, .F.,       , ;
               { | oMenuItem | ( Click(), ApagarCli( DbClientes, DbCabec, ;
                                                     DbPaieMae, DeOndeVem ), ;
                   oLbx:GoUp(), oLbx:Refresh(), oLbx:SetFocus() ) },    , ;
                   "B_FAC",,,,, .F.,,, .F. )                            , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Alterar Cliente" ) ),, .F.,       , ;
               { | oMenuItem | ( Click(), GetClientes( .F., DbClientes,   ;
                                            DbCabec,    ;
                                            DbPaieMae, DeOndeVem ), ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "WORD16",,,,, .F.,,, .F. )                           , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( " Buscar Por Matr¡cula" ) ),, .F., , ;
               { | oMenuItem | ( Click(), FiltrarM( DbClientes, oLbx    , ;
                                                    nOpcaoRadio )       , ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "B_ECT",,,,, .F.,,, .F. )                            , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Buscar Por Nome" ) ),, .F.,       , ;
               { | oMenuItem | ( Click(), FiltrarN( DbClientes, oLbx    , ;
                                                    nOpcaoRadio)        , ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "B_SOB",,,,, .F.,,, .F. )                            , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Buscar Por Apelido" ) ),, .F.,    , ;
               { | oMenuItem | ( Click(), FilArtis( DbClientes, oLbx    , ;
                                                    nOpcaoRadio )       , ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "B_COR",,,,, .F.,,, .F. )                            , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Buscar Por Cic_Cpf" ) ),, .F.,    , ;
               { | oMenuItem | ( Click(), FilCpf( DbClientes, oLbx )    , ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "B_NOM",,,,, .F.,,, .F. )                            , ;
           MenuAddItem()                                                , ;
           MenuAddItem( ( OemToAnsi( "Imprimir Clientes" ) ),, .F.,     , ;
               { | oMenuItem | ( Click(), Imprimir( lAppend, DbClientes,  ;
                                            DbCabec,    ;
                                            DbPaieMae, DeOndeVem )    , ;
                   oLbx:Refresh(), oLbx:SetFocus() ) },                 , ;
                   "BTNIMPUSO",,,,, .F.,,, .F. )                        , ;
           MenuAddItem()                                                , ;
           MenuAddItem( "Saida",, .F.,,{ | oMenuItem |                    ;
               ( Click(), oLbx:oWnd:End() ) },,                           ;
               "SAIDA16X16",,,,, .F.,,, .F. )                           , ;
           MenuEnd()                                                    , ;
    oMenu:Activate( nRow, nCol, oDlg ) ) }

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:22 PM

Asi

Code (fw): Select all Collapse

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

function BuildMenu()

   local oMenu

   oMenu := ; //MenuBegin( .F.,,, .F., .F. )
   MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , , .F., .F., .F., .F. )

      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )
      //MenuBegin( .F.,,, .F., .F. )
      MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , , .F., .F., .F., .F. )
         MenuAddItem( "&About...",, .F.,, {|oMenuItem|MsgAbout( "FiveWin", "FiveTech" )},,,,,,, .F.,,, .F. )
         MenuAddItem()
         MenuAddItem( "&End...",, .F.,, {|oMenuItem|oWnd:End()},,,,,,, .F.,,, .F. )
      MenuEnd()

      MenuAddItem( "&Child Windows",, .F.,,,,,,,,, .F.,,, .F. )
      //MenuBegin( .F.,,, .F., .F. )
      MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , ,.F. , .F., .F., .F. )
         MenuAddItem( "&Tiled",, .F.,, {|oMenuItem|oWnd:Tile()},,,,,,, .F.,,, .F. )
         MenuAddItem( "&Cascade",, .F.,, {|oMenuItem|oWnd:Cascade()},,,,,,, .F.,,, .F. )
      MenuEnd()

   MenuEnd()

return oMenu

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:24 PM

cnavarro wrote:Asi

Code (fw): Select all Collapse

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

function BuildMenu()

   local oMenu

   oMenu := ; //MenuBegin( .F.,,, .F., .F. )
   MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , , .F., .F., .F., .F. )

      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )
      //MenuBegin( .F.,,, .F., .F. )
      MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , , .F., .F., .F., .F. )
         MenuAddItem( "&About...",, .F.,, {|oMenuItem|MsgAbout( "FiveWin", "FiveTech" )},,,,,,, .F.,,, .F. )
         MenuAddItem()
         MenuAddItem( "&End...",, .F.,, {|oMenuItem|oWnd:End()},,,,,,, .F.,,, .F. )
      MenuEnd()

      MenuAddItem( "&Child Windows",, .F.,,,,,,,,, .F.,,, .F. )
      //MenuBegin( .F.,,, .F., .F. )
      MenuBegin( .F., , , .F., .F., , ;
              , , , , , , , , , ,.F. , .F., .F., .F. )
         MenuAddItem( "&Tiled",, .F.,, {|oMenuItem|oWnd:Tile()},,,,,,, .F.,,, .F. )
         MenuAddItem( "&Cascade",, .F.,, {|oMenuItem|oWnd:Cascade()},,,,,,, .F.,,, .F. )
      MenuEnd()

   MenuEnd()

return oMenu

Perfecto!

Funciona ! Muchas gracias Cristobal !

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:38 PM

Me alegro
A las antiguas funciones, se les han añadido muchos más parámetros para utilizar las nuevas características que se han añadido a los menus
Te recomiendo que si no utilizas los comandos, mires las definiciones de las funciones en PDMENU.PRG, así verás donde te da el error, y sabrás qué parámetro has de pasar a la function para que no te dé error.

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:39 PM

cnavarro wrote:Me alegro
A las antiguas funciones, se les han añadido muchos más parámetros para utilizar las nuevas características que se han añadido a los menus
Te recomiendo que si no utilizas los comandos, mires las definiciones de las funciones en PDMENU.PRG, así verás donde te da el error, y sabrás qué parámetro has de pasar a la function para que no te dé error.

Si, es lo que he estado viendo. Tengo un menu con estas caracteristicas el cual debo migrar y por alli me esta generando el error

Una vez mas, muchas gracias

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:46 PM

You are always safe in using command syntax.
While there nothing you gain by using translated functions directly, but on the other hand, you will get compatibility issues in future versions.

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:50 PM

nageswaragunupudi wrote:You are always safe in using command syntax.
While there nothing you gain by using translated functions directly, but on the other hand, you will get compatibility issues in future versions.

Totalmente de acuerdo con el mister Nages.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Mon Nov 05, 2018 02:51 PM

nageswaragunupudi wrote:You are always safe in using command syntax.
While there nothing you gain by using translated functions directly, but on the other hand, you will get compatibility issues in future versions.

You're rigth Mr. Rao

I came back from a old menu with this function which is not possible to upgrade directly with FWH17. I need to make some changes to bring up to day

Thanks for the advise

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 06:48 PM

Si usted quiere utilizar en su programa las funciones, lo más sencillo es hacer un pequeño ejemplo con comandos con el tipo de menu que necesitas, y compilar con el parámetro adecuado ( /p ) para generar el .ppo. Ahi tienes la function perfectamente formalizada.

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 06:50 PM

Gracias

Y cual es el parametro de compilacion ?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 06:51 PM

cnavarro wrote:Si usted quiere utilizar en su programa las funciones, lo más sencillo es hacer un pequeño ejemplo con comandos con el tipo de menu que necesitas, y compilar con el parámetro adecuado para generar el .ppo. Ahi tienes la function perfectamente formalizada.

Gracias

Y cual es el parametro de compilacion ?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 06:59 PM

/w0 /p -> generate pre-processed output (.ppo)

Code (fw): Select all Collapse

xHarbour 1.2.3 Intl. (SimpLex) (Build 20170215)
Copyright 1999-2017, http://www.xharbour.org <!-- m --><a class="postlink" href="http://www.harbour-project.org/">http://www.harbour-project.org/</a><!-- m -->

Syntax:  C:\XHBBCC72\bin\harbour.exe <file[s][.prg]> [options]

Options:  /a               automatic memvar declaration
          /b               debug info
          /build           display detailed version info
          /credits         display credits
          /d<id>[=<val>]   #define <id>
          /es[<level>]     set exit severity
          /ex              create public function list (.xbx)
          /g<type>         output type generated is <type> (see below)
          /gc[<type>]      output type: C source (.c) (default)
                           <type>: 0=compact 1=normal 2=verbose (default)
                                   3=generate real C code
          /go              output type: Platform dependant object module
          /gh              output type: Harbour Portable Object (.hrb)
          /i<path>         #include file search path
          /j[<file>]       output i18n support [to <file>] to .hil
          /k               compilation mode (type -k? for more data)
          /l               suppress line number information
          /m               compile module only
          /n[<type>]       no implicit starting procedure (default)
                           <type>: 0=no implicit starting procedure
                                   1=no starting procedure at all
                                   2=force application starting procedure
          /o<path>         object file drive and/or path
          /p[o<path>]      generate pre-processed output (.ppo) file in <path>
          /pt[o<path>]     generate pre-processor trace (.ppt) file in <path>
          /q               quiet
          /q0              quiet and don't display program header
          /s               syntax check only
          /u[[+]<file>]    use command def set in <file> (or none)
          /undef:<id>      #undef <id>
          /v               variables are assumed M->
          /vd              external functions are assumed as dynamic functions
          /w[<level>]      set warning level number (0..3, default 1)
          /x[<prefix>]     set symbol init function name prefix (for .c only)
          /z               suppress shortcutting (.and. & .or.)
          @<file>          compile list of modules in <file>

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Page: 1 2 (22 posts)

FiveTech Support Forums