PC Toledo

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

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.

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.

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

Não consegui fazer funcionar.

Qualquer hora testo com Harbour 3.2 pra ver se vai.

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

poderia por o link do github aqui?

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.

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/

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.

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

PC Toledo

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.

Novo GT para Hwgui.