recentemente migrei para Harbour 2.0.0 e vou testar a HWGui, baixei via CVS e compilei com o make_vc.bat.... OK 100%
Agora ao tentar compilar o codigo abaixo com o seguinte comando:
Código: Selecionar todos
hbmk2 -oteste -lhwgui Menu.prgApresenta o seguinte erro:
Código: Selecionar todos
Harbour 2.1.0beta2 (Rev. 15281)
Copyright (c) 1999-2010, http://harbour-project.org/
Compiling 'Menu.prg'...
Lines 6994, Functions/Procedures 2
Generating C source output to 'C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_8gb9ms.dir
\Menu.c'... Done.
Menu.c
hwgui.lib(drawwidg.obj) : error LNK2001: unresolved external symbol _HB_FUN_FILEPATH
hwgui.lib(hdialog.obj) : error LNK2001: unresolved external symbol _HB_FUN_FILEPATH
hwgui.lib(drawwidg.obj) : error LNK2001: unresolved external symbol _HB_FUN_CUTPATH
hwgui.lib(hdialog.obj) : error LNK2001: unresolved external symbol _HB_FUN_CUTPATH
teste.exe : fatal error LNK1120: 2 unresolved externals
hbmk2: Error: Running linker. 1120
link.exe -nologo -out:teste.exe C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_8gb9ms.dir\Menu.obj -libpath:d:\dev\harbour\lib -libpath:d:\dev\harbour\bin -subsystem:console hwgui.lib hbextern.lib hbdebug.lib hbvm.lib hbrtl.lib hblang.lib hbcpage.lib gtcgi.lib gtpca.lib gtstd.lib gtwin.lib gtwvt.lib gtgui.lib hbrdd.lib hbuddall.lib hbusrrdd.lib rddntx.lib rddcdx.lib rddnsx.lib rddfpt.lib hbrdd.lib hbhsx.lib hbsix.lib hbmacro.lib hbcplr.lib hbpp.lib hbcommon.lib kernel32.lib user32.lib gdi32.lib advapi32.lib ws2_32.lib winspool.lib comctl32.lib comdlg32.lib shell32.lib uuid.lib ole32.lib oleaut32.lib mpr.lib winmm.lib mapi32.lib imm32.lib msimg32.lib wininet.lib hbpcre.lib hbzlib.lib
Código de teste:
Código: Selecionar todos
#include "windows.ch"
#include "guilib.ch"
#include "hwgui.ch"
FUNCTION _Menu
PRIVATE oMenu1
PREPARE FONT oFontBtn NAME "Calibri" WIDTH 0 HEIGHT -12
INIT Window oDlg TITLE "Loja" ;
AT 4,124 SIZE 750,607 ;
STYLE DS_CENTER +WS_SYSMENU+WS_SIZEBOX+WS_VISIBLE
MENU OF oDlg
MENU TITLE 'Atendimento' ID 32000
MENU TITLE 'Atendimento' ID 32000
MENUITEM 'Vendas' ID 32007 ACTION ""
MENUITEM 'Notas Fiscais' ID 32008 ACTION ""
SEPARATOR
MENUITEM 'Consulta' ID 32009 ACTION ""
MENUITEM 'Reimprime' ID 32010 ACTION ""
SEPARATOR
MENUITEM 'Receber Débitos' ID 32011 ACTION "Teste()"
ENDMENU
MENUITEM 'Cadastros' ID 32001 ACTION ""
MENUITEM 'Movimentação' ID 32003 ACTION ""
MENUITEM 'Administrativo' ID 32005 ACTION ""
MENUITEM 'Utilitários' ID 32006 ACTION ""
ENDMENU
oDlg:Activate()
RETURN oDlg:lresult
Function Teste()
! caSds.
Sucesso a tds!!!
:)Pos
