Página 1 de 1

Erro: Unrecoverable error 9014( Unsupported VM opcode )

Enviado: 20 Fev 2006 11:14
por kachenco
Bom dia galera !!!

alguem pode me ajudar com esse erro ???


nao sei o q estou fazendo de errado ??

foi depois q acrescentei o icone na janela.

o codigo eh para hwGui:

Código: Selecionar todos

#include "windows.ch"
#include "guilib.ch"


Function Main()
Local oMain
Private oMenu

     INIT WINDOW oMain ;
        MAIN ;
        TITLE "Faturamento Convenio" ;
        SIZE 800, 600 ;
        ICON "SANDOR.ICO"

             MENU Of oMain
               MENU TITLE "&Arquivos"
                  MENUITEM "&Indexação" ACTION msginfo( "Indexação" )
                  MENUITEM "&Parametros" ACTION msginfo( "Parametros" )
                  MENUITEM "I&mpressoras" ACTION msginfo( "Impressoras" )
                  MENUITEM "&Acessos do Usuario" ACTION msginfo( "Acessos" )
                  MENUITEM "&Trocar Usuario" ACTION msginfo( "LogOff" )
                  MENU TITLE "TESTE"
                     MENUITEM "TESTE 1" ACTION MSGINFO( "TESTE 1" )
                     MENUITEM "TESTE 2" ACTION MSGINFO( "TESTE 2" )
                  ENDMENU
               ENDMENU
              
               MENU TITLE "&Contas"
                  MENUITEM "&Lançamentos" ACTION msginfo( "Lançamento" )
                  MENUITEM "&Externos" ACTION msginfo( "Externos" )
                  MENUITEM "&Fechamentos" ACTION msginfo( "Fechamentos" )
                  MENUITEM "&Manutenção" ACTION msginfo( "Manutenção" )
               ENDMENU

               MENU TITLE "&Relatórios"
                  MENUITEM "&Faturas" ACTION msginfo( "Faturas" )
                  MENUITEM "&Separa conta de U.T.I. - Araras" ACTION msginfo( "Separa contas de U.T.I. - Araras" )
                  MENUITEM "&Espelho da Conta" ACTION msginfo( "Espelho da conta" )
               ENDMENU
            ENDMENU
           
        CENTER WINDOW oMain

        ACTIVATE WINDOW oMain

Return Nil

Enviado: 16 Mar 2006 00:42
por lgr
kachenco,

Não sei se você já conseguiu resolver, mas o problema é que você não pode simplesmente colocar o nome do arquivo no INIT WINDOW, mas antes tem que carrega e compilar em um arquivo de resource, assim:

Código: Selecionar todos

oIcon := HIcon():AddRESOURCE( "ICONE" )
INIT WINDOW oMain ; 
        MAIN ; 
        TITLE "Faturamento Convenio" ; 
        SIZE 800, 600 ; 
        ICON oIcon
Crie um arquivo seuprojeto.rc que terá o seguinte conteúdo:

Código: Selecionar todos

ICONE     ICON    SANDOR.ICO
E o adicione no seu projeto pelo hbmake.