Novo GT para Hwgui.

[Itamar M. Lins Jr.]

Olá!
Para quem usa GTWVW, GTWWW, etc.
Agora não tem mais desculpa para não usar Hwgui.

Código: Selecionar todos

2021-04-26 14:15 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
  + contrib/gthwg
  + contrib/gthwg/gt_hwg.ch
  + contrib/gthwg/gt_hwg.prg
  + contrib/gthwg/gt_hwgui_w.c
  + contrib/gthwg/tests
  + contrib/gthwg/tests/test1.prg
    * gthwg - a new GT library, based on HwGUI, added.
  * contrib/make_b32.bat
  * contrib/makefile.bc
    * Make files for Borland C update

Novo brinquedo dele.
Agora é a hora de testar e pergutar lá para ele, pq não sabemos quando ele volta.

Código: Selecionar todos

/*
 * $Id: test1.prg 2980 2021-04-26 11:18:17Z alkresin $
 *
 * GTHWG, Video subsystem, based on HwGUI
 *
 * test1.prg - simple test program
 *
 * Copyright 2021 Alexander S.Kresin <alex@kresin.ru>
 * www - http://www.kresin.ru
 */

#include "hbgtinfo.ch"

FUNCTION Main

   LOCAL nKey, nh, nw
   LOCAL cLogin := Space( 16 )

   ANNOUNCE HB_GTSYS
   REQUEST HB_GT_HWGUI
   REQUEST HB_GT_HWGUI_DEFAULT

   REQUEST HB_CODEPAGE_RU866
   REQUEST HB_CODEPAGE_UTF8

   SET SCORE OFF
   hb_cdpSelect( "RU866" )

   CreateWindow()

   //SetMode( 30,90 )
   nw := hb_gtinfo( HB_GTI_DESKTOPWIDTH ) - 20
   nh := hb_gtinfo( HB_GTI_DESKTOPHEIGHT ) - 84
   hb_gtinfo( HB_GTI_FONTWIDTH, Int( nw / 80 ) )
   hb_gtinfo( HB_GTI_FONTSIZE, Int( nh / 25 ) )
   //hwg_writelog( "gt: " + hb_gtVersion() + " " + hwg_version() )

   SetColor( "W+/B" )
   clear screen
   @ 0, 0, 24, 79 BOX "******** "
   @ 4,5 SAY "Test"
   @ 23,1 SAY "---- " + Str( hb_gtinfo( HB_GTI_DESKTOPROWS ) )
   @ 23,70 SAY "----"
   @ 24,1 SAY "===="
   @ 24,70 SAY "===="
   @ 3,5 SAY "‚Ά¥¤¨β¥ ⥪αβ:" GET cLogin
   READ

   hwg_writelog( "Login: " + cLogin )

   nKey := Inkey( 5 )
   hwg_writelog( "Key " + Str( nKey ) )
   gthwg_CloseWindow()

   RETURN Nil

#include "hwgui.ch"

STATIC FUNCTION CreateWindow()

   LOCAL oWnd := gthwg_CreateMainWindow()

   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

Só funciona no WINDOWS. Pq usa o GT que as outras usam.

GTHWG, Video subsystem, based on HwGUI ( Winapi version )

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Legal, acendi uma luz pra GT.
Agora que virou oficial, as outras LIBs podem se interessar também.

E pode ser o empurrão geral que faltava.
O programador vai pra hwgui com muito pouca mudança nos fontes, e depois pode expandir.
Vou testar depois com calma.

Provavelmente tem o que faltava na GTWVG, já que HWGUI é direcionada pra GUI.

[JoséQuintas]

Aqui com harbour 3.4 o exemplo não roda.
Fica travado e sai.

[JoséQuintas]

Não consegui fazer funcionar.

Qualquer hora testo com Harbour 3.2 pra ver se vai.

[JoséQuintas]

Também não funcionou com Harbour 3.2
Alguém conseguiu fazer funcionar?

[Nascimento]

poderia por o link do github aqui?

[Itamar M. Lins Jr.]

Olá!

poderia por o link do github aqui?

É SVN.

Código: Selecionar todos

svn checkout https://svn.code.sf.net/p/hwgui/code/trunk hwgui-code

https://sourceforge.net/p/hwgui/code/HEAD/tree/trunk/

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Endereço oficial:

https://www.kresin.ru/en/hwgui.html

Endereço pra baixar oficial, em andamento, contendo o que não foi liberado ainda, portanto é o mais atualizado:
só clicar em "download snapshot".

https://sourceforge.net/p/hwgui/code/HEAD/tree/trunk/

[JoséQuintas]

Boas novas.

Com as alterações de hoje, funcionando normalmente também no Harbour 3.4.

Nenhum teste adicional ainda, apenas pra informar que funcionou com as alterações de hoje.

[JoséQuintas]

Ainda não entendi sobre codepage.
O exemplo era russo, alterei pra PTISO.