Menu HWGUI com aplicativo

[Itamar M. Lins Jr.]

Olá!

Compilou um aplicativo "console".
Então... GTHWG é pra isso, mas só pra isso.

Vc não é doido!!!!
Se deu ao trabalho de olhar os fontes ?

Código: Selecionar todos

REQUEST HB_GT_HWGUI
REQUEST HB_GT_HWGUI_DEFAULT

FUNCTION Main( _par1 )

CreateWindow()

Código clipper compatível ta, ta, ta...
...

#include "hwgui.ch"

STATIC FUNCTION CreateWindow()

   LOCAL oWnd := gthwg_CreateMainWindow( "GT HwGUI Test" )

   MENU OF oWnd
      MENU TITLE "&File"
         MENUITEM "&New" ACTION hwg_MsgInfo( "New!" )
         SEPARATOR
         MENUITEM "&Exit" ACTION oWnd:Close()
      ENDMENU
      MENU TITLE "&Help"
         MENUITEM "&About" ACTION hwg_MsgInfo( hwg_version()+Chr(13)+Chr(10)+"gt: " + hb_gtVersion(),"About" )
      ENDMENU
   ENDMENU

   RETURN oWnd

FUNCTION gthwg_PaintCB( hDC, cFileName )

   LOCAL aBmpSize
   STATIC hImage, img_x1, img_y1, img_width, img_height

   IF Empty( hDC )
      IF Empty( cFileName )
         gthwg_paint_SetCallback()
         IF !Empty( hImage )
            hwg_Deleteobject( hImage )
            hImage := Nil
         ENDIF
      ELSE
         hImage := hwg_OpenImage( cFileName )
         IF !Empty( hImage )
            img_x1 := Int( hb_gtinfo( HB_GTI_SCREENWIDTH ) / MaxCol() ) * 50
            img_y1 := Int( hb_gtinfo( HB_GTI_SCREENHEIGHT ) / MaxRow() ) * 8
            aBmpSize  := hwg_Getbitmapsize( hImage )
            img_width := aBmpSize[ 1 ]
            img_height := aBmpSize[ 2 ]
            gthwg_paint_SetCallback( "GTHWG_PAINTCB" )
            hwg_Invalidaterect( hb_gtinfo(HB_GTI_WINHANDLE), 0 )
         ENDIF
      ENDIF
   ELSEIF !Empty( hImage )
      hwg_Drawbitmap( hDC, hImage,, img_x1, img_y1, img_width, img_height )
   ENDIF

   RETURN Nil

O que é isso ai em cima ?
Quem tá precisando de usar assim que vá fazer mais testes, eu não precisei. Pode ter BUGs sim claro!!! Isso tem mais de 1 ou dois anos pronto!!!!

Saudações,
Itaamr M. Lins Jr.

[JoséQuintas]

Estou confuso.
Você postou o fonte comprovando o que eu falei, que eu tenho razão.
É janela principal "console", estilo WVG.
Mas é só isso janela principal, MAIN

Se é MAIN, é MAIN, o aplicativo precisa abrir com essa janela.
Se é MAIN, não dá pra ser aberta em outro lugar, só dá pra usar como MAIN.
Que parte não entendeu ?

[Itamar M. Lins Jr.]

Olá!
Realmente é console.

Código: Selecionar todos

#include "hwgui.ch"

#define MSG_USER_SIZE  0x502

#ifdef __GTK__
FUNCTION HB_GT_CGI
   RETURN Nil

FUNCTION HB_GT_CGI_DEFAULT
   RETURN Nil
#else
FUNCTION HB_GT_GUI
   RETURN Nil

FUNCTION HB_GT_GUI_DEFAULT
   RETURN Nil

FUNCTION HB_GT_WIN
   RETURN Nil

FUNCTION HB_GT_WIN_DEFAULT
   RETURN Nil
#endif

Desliga tudo usa Hwgui é console.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Não dê uma de desentendido.
Sabe que me refiro a console como sendo janela estilo console.

É o aplicativo rodando o tempo todo com essa janela.
Vai poder chamar algumas funções hwgui ?
E daí ? continua sendo a mesma janela.
É isso que o usuário quer ? não.
Isso resolve o problema dele ? não.
Dá pra fazer isso com outra lib ? sim, quase todas, incluindo a que ele já usa

A lib que ele já usa permite ser chamada pela hwgui.
Essa permite ? não.

O que interessa essa lib para o teste dele ? nada

Quando o usuário vai continuar o teste ?
Só quando o Itamar deixar

Itamar, volte a assumir o tópico, ajude o usuário, afinal, parece ser o único usuário de hwgui 2.23 daqui do fórum.
Se tem aplicativo hwgui em uso, já tem tudo solucionado.
Isso resolve a questão.
E pode trazer todos os usuários de hwgui 2.17 pra 2.23.

[Itamar M. Lins Jr.]

Olá!
Realmente eu não sei de nada.
Vc que sabe, vc que usa.

Saudações,
Itamar M. Lins Jr.

[sygecom]

Por favor, vamos focar nas duvidas do Post e, compartilhar conhecimento que agrega os demais colegas em cada post.

Solicito que não postem mais nada nesse post além de algo que possa contribuir com o que o colega abriu com duvidas. Obrigado.