PC Toledo

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...

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

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

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)

post os arquivos

*** 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...

PC Toledo

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI

Visual xHarbour com HWGUI