Visual xHarbour com HWGUI

[bencz]

Olá, estou fazendo alguns testes aqui, p/ misturar dialog do hwgui com main form do visual xharbour, mas qnd eu mando inicializar a janela do hwgui... recebo o seguinte erro:

SYSTEM INFORMATION
--------------------------------------------------------------------
OS Microsoft Windows 7 Business, 32-bit (build 7600)
Date/Time 05/29/12 - 09:24:11
--------------------------------------------------------------------


PROGRAM INFORMATION
--------------------------------------------------------------------
Name notepad
Path C:\develop\testes\teste_app
Version 1.0.0.0
Date/Time 05/29/12 - 09:23:46
Size 2841088


ERROR INFORMATION
--------------------------------------------------------------------
Arguments { (P) }
Description Argument error
Filename <none>
GenCode 1: EG_ARG
Operation GETCLIENTRECT
Severity 2
SubCode 6001
SubSystem BASE
Tries 0
Current Alias <none>
Last DOS Error (NOT OS ERROR)
Last Win Error 0 - A operação foi concluída com êxito.

--------------------------------------------------------------------

FUNCTION STACK
--------------------------------------------------------------------
GETCLIENTRECT(0)
C:\Open Source\hwgui\trunk\hwgui\source\hdialog.prg -> INITMODALDLG(317)
C:\Open Source\hwgui\trunk\hwgui\source\hdialog.prg -> (b)(_INITSTATICS00005)(0)
C:\Open Source\hwgui\trunk\hwgui\source\hdialog.prg -> HDIALOG:ONEVENT(252)
HWG_DLGBOXINDIRECT(0)
C:\Open Source\hwgui\trunk\hwgui\source\hdialog.prg -> HDIALOG:ACTIVATE(185)
C:\develop\testes\teste_app\Source\Form1.prg -> START_HWGUI(12)
C:\develop\testes\teste_app\Source\Form1.prg -> FORM1:BUTTON1_ONCLICK(17)
..\source\Window.prg -> FORM1:__CONTROLPROC(2280)
CALLWINDOWPROC(0)
..\source\Window.prg -> BUTTON:__CONTROLPROC(3293)
DIALOGBOXINDIRECT(0)
..\source\Dialog.prg -> FORM1:CREATE(141)
C:\develop\testes\teste_app\Source\Form1.prg -> FORM1:INIT(28)
main.prg -> MAIN(2)

o código da janela q estou tentando construir é:

Código: Selecionar todos

#include "vxh.ch"
#include "Form1.xfm"
#include "hwgui.ch"
//---------------------------------------- End of system code ----------------------------------------//

function start_hwgui()
   local oDlg
   INIT DIALOG oDlg TITLE "Form1" ;
   AT 0,-130 SIZE 203,54 NOEXIT  ;
   STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
     
   oDlg:Activate() 
return oDlg:lResult

//----------------------------------------------------------------------------------------------------
METHOD Button1_OnClick( Sender ) CLASS Form1
   start_hwgui()
RETURN Self

E nao sei como posso corrigir esse erro, ou, como posso fazer para integrar eles... ;x
Agradeço a ajuda...
Abraços...

[Imatech]

experimente retirar os Header's : vxh (deixar somente #include "hwgui.ch" )


*** A chamada start_hwgui() deve ser feita a partir de uma Tela do vxh ou CUI
*** Os fontes que irão usar HwGui não podem fazer chamadas para CUI ou Telas do vxh

Código: Selecionar todos

#include "hwgui.ch"
//---------------------------------------- End of system code ----------------------------------------//

function start_hwgui()
 local oDlg
 INIT DIALOG oDlg TITLE "Form1" ;
 AT 0,-130 SIZE 203,54 NOEXIT ;
 STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
  
 oDlg:Activate() 

return oDlg:lResult

[sygecom]

Basicamente deve manter em .PRG separados os comandos e telas de cada

[bencz]

Bom, foi o que eu fiz, no main, deixei o hwgui, e criei uma função em um botão, que chama uma função q esta em um outro arquivo, q chama o start do vxh...
e continua dando erro...

HB_ARRAYTOSTRUCTURE(0)
C:\xHarbour\source\rtl\cstruct.prg -> C Structure WNDCLASSEX:VALUE(580)
REGISTERCLASSEX(0)
..\source\Window.prg -> FORM1:__REGISTER(784)
..\source\Window.prg -> WINDOW:CREATE(919)
..\source\Window.prg -> FORM1:CREATE(5123)
C:\develop\prj\testes\teste_hwgui_vxb\Source\Form1.prg -> FORM1:INIT(25)
inter.prg -> START(5)
main.prg -> VXH_START(17)
main.prg -> (b)MAIN(11)
C:\Open Source\hwgui\trunk\hwgui\source\hcontrol.prg -> HBUTTON:ONCLICK(1097)
C:\Open Source\hwgui\trunk\hwgui\source\hcontrol.prg -> (b)HBUTTON:NEW(1000)
C:\Open Source\hwgui\trunk\hwgui\source\hwindow.prg -> ONCOMMAND(805)
C:\Open Source\hwgui\trunk\hwgui\source\hwindow.prg -> (b)HMAINWINDOW(229)
C:\Open Source\hwgui\trunk\hwgui\source\hwindow.prg -> HMAINWINDOW:ONEVENT(411)
HWG_ACTIVATEMAINWINDOW(0)
C:\Open Source\hwgui\trunk\hwgui\source\hwindow.prg -> HMAINWINDOW:ACTIVATE(371)
main.prg -> MAIN(13)

[sygecom]

post os arquivos

[Imatech]

*** A chamada start_hwgui() deve ser feita a partir de uma Tela do vxh ou CUI

*** Os fontes HwGui não podem fazer chamadas para CUI ou Qquer outra Lib Grafica...