Nao consigo usar image com window
Enviado: 10 Fev 2009 19:56
Usava o xhb 0.99.50 com hwgui 2.14 e funcionava com o codigo abaixo, apos a atualizacao para o xhb 1.0.0 e hwgui 2.16 o comando de IMAGE abaixo nao funciona mais. O q pode ser ?
Segue o erro abaixo:
Código: Selecionar todos
INIT WINDOW oMain MAIN TITLE "P.D.V.net 2.0 - Licenciado para "+alltrim(xempresa) ;
AT 0,0 ;
SIZE GetDesktopWidth(), GetDesktopHeight() - 28
@ 0,0 IMAGE oImage SHOW oPapelPar SIZE 800,600 //GetDesktopWidth(),GetDesktopHeight()-105
@ 2, 2 OWNERBUTTON oVENDER OF oMain BITMAP oDirIma+"VENDER.BMP" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||VENDAS(),.T.}
@ 44, 2 OWNERBUTTON oCLIENTE OF oMain BITMAP oDirIma+"Cliente.bmp" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||CLIENTES(),.T.}
@ 86, 2 OWNERBUTTON oPESQPRC OF oMain BITMAP oDirIma+"PesqPreco.bmp" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||Distrib(),.T.}
@ 128, 2 OWNERBUTTON oLEITURAX OF oMain BITMAP oDirIma+"LeituraX.bmp" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||LeituraX(),.T.}
@ 170, 2 OWNERBUTTON oNOTAF OF oMain BITMAP oDirIma+"NOTAF.BMP" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||NOTAF(),.T.}
@ 212, 2 OWNERBUTTON oCaixa OF oMain BITMAP oDirIma+"CAIXA.bmp" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||Autoriza(),iif(Trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Entrou no caixa")),verifusua(ACESSO->CODIGO,48),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",ALIAS()),Caixa()),.T.}
@ 254, 2 OWNERBUTTON oFerramen OF oMain BITMAP oDirIma+"Ferramentas.bmp" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Entrou no arq de configuracao.")),verifusua(ACESSO->CODIGO,56),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),configuracao()),.T.}
@ 296, 2 OWNERBUTTON oExit OF oMain BITMAP oDirIma+"Sair.BMP" TRANSPARENT COORDINATES 0,2,0,0 SIZE 40,40 ON CLICK {||oMain:Close()}
ADD STATUS TO oMain ID oStatus PARTS 320,65,100,100,55,55,300
SET TIMER tp1 OF oMain ID 1001 VALUE 30 ACTION {||funstatus()}
MENU OF oMain
MENU TITLE "&Realizar vendas"
MENUITEM "&Vendas" ACTION {||vendas()}
MENUITEM "&Orcamentos" ACTION {||Orcamento()}
SEPARATOR
MENUITEM "&Exit" ACTION {||dbCloseAll(), EndWindow()}
ENDMENU
MENU TITLE "&Cadastro"
MENUITEM "&Cliente" ACTION {||CLIENTES()}
ENDMENU
MENU TITLE "&Consultar preco"
MENUITEM "&Tabela de preco" ACTION {||Distrib()}
ENDMENU
MENU TITLE "&Emissor de cupom"
MENUITEM "&Vendas" ACTION {||quiosquevenda()}
ENDMENU
MENU TITLE "&Relatorios"
MENUITEM "&Pendencia de entrega " ACTION Msginfo("Modulo em contrucao","Aviso")
MENUITEM "Pendencia de &Baixa " ACTION Msginfo("Modulo em contrucao","Aviso")
MENUITEM "Pendencia &de pagamento " ACTION Msginfo("Modulo em contrucao","Aviso")
MENUITEM "&Rentab. por vendedor " ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Visualizou reantabilidade de vendedores")),verifusua(ACESSO->CODIGO,42),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),RentabVendedor()),.T.}
MENUITEM "Ranking de &vendedores " ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Visualizou o ranking de vendedores")),verifusua(ACESSO->CODIGO,43),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),RankVend()),.T.}
MENUITEM "Relatorio de &comissao " ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Visualizou a comissÆo de vendedor")),verifusua(ACESSO->CODIGO,44),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),PartLucros()),.T.}
MENUITEM "&Inadimplencia por vend." ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Visualizou a inadimplencia por vendedor")),verifusua(ACESSO->CODIGO,45),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),InadimpVend()),.T.}
MENUITEM "I&tens Vendidos" ACTION {||RelItensV(),.T.}
SEPARATOR
MENUITEM "R&elatorio de R.M.A.." ACTION {||RelatorRMA()}
SEPARATOR
MENUITEM "R&elatorio de N.F. emitidas" ACTION {||ImprimirRelNF()}
MENUITEM "R&elatorio de Produtos vendidos com PPB" ACTION {||ImprimirRelPPB()}
ENDMENU
MENU TITLE "&Utilitarios"
MENUITEM "&Cadastro Inadimplentes" ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Entrou no cadastro de inadimplentes.")),verifusua(ACESSO->CODIGO,54),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),CHEQDEV()),.T.}
MENUITEM "Calculo de &juros " ACTION {||calcjur()}
MENUITEM "Resumo &Movimento " ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Entrou no Resumo de Movimento.")),verifusua(ACESSO->CODIGO,55),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),Resumo_Movimento()),.T.}
MENUITEM "Calculadora" ACTION {||MyRun("calc")}
MENUITEM "Historico de senha" ACTION {||HistoricoSenha()}
SEPARATOR
IF XECFINT="S" .OR. EMPTY(XECFINT)
MENUITEM "Imprimir Mapa &Resumo " ACTION {||IIF(Config->EcfInt#"S",imprimir_mapa_resumo(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "Canc. &ultimo Cupom " ACTION {||IIF(Config->EcfInt#"S",cancelar_ult_cupom(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "Memoria &fiscal " ACTION {||IIF(Config->EcfInt#"S",memoria_fiscal(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "Leitura &X " ACTION {||IIF(Config->EcfInt#"S",LeituraX(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "&Resetar Impressora" ACTION {||IIF(Config->EcfInt#"S",ResetarECF(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "&Lancar Suprimentos" ACTION {||IIF(Config->EcfInt#"S",LancarSuprimentos(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "&Verificar Estado da Gaveta" ACTION {||IIF(Config->EcfInt#"S",VerEstGaveta(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "V&alor Acumulado de Cancelamentos" ACTION {||IIF(Config->EcfInt#"S",ValorAcuCan(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "Va&lor Acumulado de Desconto" ACTION {||IIF(Config->EcfInt#"S",ValorAcuDes(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
MENUITEM "Programar Aliquota" ACTION {||IIF(Config->EcfInt#"S",ProgramaraAliq(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))} DISABLED
ELSE
MENUITEM "Imprimir Mapa &Resumo " ACTION {||IIF(Config->EcfInt#"S",imprimir_mapa_resumo(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "Canc. &ultimo Cupom " ACTION {||IIF(Config->EcfInt#"S",cancelar_ult_cupom(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "Memoria &fiscal " ACTION {||IIF(Config->EcfInt#"S",memoria_fiscal(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "Leitura &X " ACTION {||IIF(Config->EcfInt#"S",LeituraX(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "&Resetar Impressora" ACTION {||IIF(Config->EcfInt#"S",ResetarECF(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "&Lancar Suprimentos" ACTION {||IIF(Config->EcfInt#"S",LancarSuprimentos(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "&Verificar Estado da Gaveta" ACTION {||IIF(Config->EcfInt#"S",VerEstGaveta(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "V&alor Acumulado de Cancelamentos" ACTION {||IIF(Config->EcfInt#"S",ValorAcuCan(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "Va&lor Acumulado de Desconto" ACTION {||IIF(Config->EcfInt#"S",ValorAcuDes(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
MENUITEM "Programar Aliquota" ACTION {||IIF(Config->EcfInt#"S",ProgramaraAliq(),MsgInfo("E.C.F. em intervencao tecnica.","Aviso"))}
ENDIF
SEPARATOR
MENUITEM "Confi&guracao " ACTION {||Autoriza(),iif(trava=1,Msginfo("Usuario nao autorizado",ALIAS()),histusua(date(),time(),acesso->codigo,"Entrou no arq de configuracao.")),verifusua(ACESSO->CODIGO,56),IIF(SASA#1.OR.TRAVA=1,MSGSTOP("Usuario nao autorizado",alias()),configuracao()),.T.}
MENUITEM "Contr&ole de R.M.A. " ACTION {||ControleRMA()}
MENUITEM "Conta corren&te " ACTION Msginfo("Modulo em contrucao","Aviso")
SEPARATOR
MENUITEM "Notas F&iscais " ACTION {||NOTAF()}
SEPARATOR
MENUITEM "Testar Conexao com a Internet" ACTION {||IIF(GETIP()="127.0.0.1",MsgInfo("Internet desconectada.","Aviso"),msginfo("Internet Conectada","Aviso"))}
MENUITEM "Obter o IP da Internet" ACTION {||IIF(GETIP()="127.0.0.1",MsgInfo("Voce nao esta conectado com a internet.","Aviso"),msginfo("O seu IP e "+getip("www.uol.com.br"),"Aviso"))}
{||OpenActivexDialog()}
ENDMENU
//{||TestarConexao(),MsgInfo("Internet "+vInternet,"Aviso")}
MENU TITLE "&Ajuda"
MENUITEM "&As" ACTION Msginfo("Modulo em contrucao","Aviso")
ENDMENU
ENDMENU
oSplash := HSplash():Create(oLogoNet,1000)
oMain:ACTIVATE()
ComandoATT:="ATTRIB -R "+alltrim(ptmp)+"*.*"
comandoDEL:="DEL "+alltrim(ptmp)+"tmp*.*"
comandoREL:="DEL "+alltrim(ptmp)+"REL*.*"
DBCLOSEALL()
MYRUN((COMANDOATT))
MYRUN((COMANDODEL))
MYRUN((COMANDOREL))
RETURN NIL
Código: Selecionar todos
-------------------- Internal Error Handling Information ---------------------
Subsystem Call ....: BASE
System Code .......: 1070
Default Status ....: .F.
Description .......: Argument error
Operation .........: ==
Arguments .........: [ 1] = Type: C Val: [ 2] = Type: N Val: 34000
Involved File .....:
Dos Error Code ....: 0
Trace Through:
----------------
(b)HMAINWINDOW:FINDCO : 118 in Module: hcwindow.prg
HMAINWINDOW:FINDCONTR : 127 in Module: hcwindow.prg
ONDRAWITEM : 438 in Module: hcwindow.prg
(b)(_INITSTATICS00003 : 0 in Module: hcwindow.prg
HWINDOW:ONEVENT : 206 in Module: hcwindow.prg
HMAINWINDOW:ONEVENT : 277 in Module: hwindow.prg
HWG_ACTIVATEMAINWINDO : 0 in Module:
HMAINWINDOW:ACTIVATE : 260 in Module: hwindow.prg
MAIN : 312 in Module: PDVNET.PRG
:xau