Modo gráfico Tutor Plug and Play - Hwgui

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 14:58

Ola!

#include "hwgui.ch"
FUNCTION MAIN()
Local nLin, mTeste

IF !FILE('MTESTE.DBF')
   mTESTE := {}
   AADD(MTESTE, {'QUESTAO     ', 'C', 65, 0})
   AADD(MTESTE, {'SIM         ', 'C',  1, 0})
   AADD(MTESTE, {'NAO         ', 'C',  1, 0})
   AADD(MTESTE, {'NAOAPLI     ', 'C',  1, 0})
   DBCREATE('MTESTE.DBF', MTESTE)
   RELEASE MTESTE
ENDIF

USE MTESTE

IF RECCOUNT()=0
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Cedula de Identidade ?                      '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Carteira de Habilitacao ?                   '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Comprovante de Endereco ?                   '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Prova de Quitacao com Servico Militar ?     '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Comprovante de Renda ?                      '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Certificado de Conclusao de Ensino Medio ?  '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Cartao de Vacina ?                          '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Titulo de Eleitor ?                         '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Ultima Declaracao IRRF ?                    '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Nota Fiscal da Compra ?                     '
ENDIF

GO TOP
nLin := 5
INIT Dialog oDlg AT 0,0 SIZE 800,600 CLIPPER noexit

   @ nLIN,02 SAY oQuestao Caption QUESTAO size 200,30
   @ nLIN,60 GET SIM size 30,30
   @ nLIN,90 GET NAO size 30,30
   @ nLIN,120 GET NAOAPLI size 30,30

   @ nLin,160 button oBotao caption "Pular" size 60,30 on click {||next()}

ACTIVATE Dialog oDlg center


CLOSE DATABASES
RETURN NIL

Function Next()
   if !eof()
      dbskip()
   endif

oQuestao:settext(mteste->questao)

Return .t.

hbmk2 mteste.prg

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 15:16

A linha
ACTIVATE Dialog oDlg center
está dando erro
Error E0030 Syntax error "syntax error at 'dialog'"

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 15:39

Ola!
Eu uso a versão mais recente do SVN. Changelog 2797 2019-09-18 11:49:13Z alkresin

Código: Selecionar todos

#xcommand ACTIVATE WINDOW <oWnd> ;
               [<lNoShow: NOSHOW>] ;
               [<lMaximized: MAXIMIZED>] ;
               [<lMinimized: MINIMIZED>] ;
               [<lCenter: CENTER>]       ;
               [ ON ACTIVATE <bInit> ]   ;
           => ;
      <oWnd>:Activate( !<.lNoShow.>, <.lMaximized.>, <.lMinimized.>, <.lCenter.>, <bInit> )

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 15:42

Agradeço a sua atenção, ao mesmo tempo peço desculpas. Sou clippeiro das antigas, mas harbour pra mim tudo é novo.

Tem mais algum .ch que tenho que acrescentar ?

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 15:46

Está faltando funcoes: HDIALOG(), HSTATIC(), HEDIT(), HBUTTON()

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 16:13

Ola!
Dessa forma não chegaremos a lugar nenhum.
Eu não posso ficar seguindo você. Você deve informar qual é o seu nível ai de entendimento do assunto.
Pelo que estou vendo a biblioteca da Hwgui não está instalada ou não está sendo encontrada pelo hbmk2.
Você consegue compilar alguma coisa com a Hwgui ? Algum exemplo dela ?

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 16:29

Agradeço a sua atenção, ao mesmo tempo peço desculpas. Sou clippeiro das antigas, mas harbour pra mim tudo é novo.

Tem mais algum .ch que tenho que acrescentar ?

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 16:30

Ola!
Qual é a versão do seu GCC(MinGW) ?
>harbour -build

Saudações,
Itamar M. Lins Jr.

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 16:32

Ola!
Não é apenas .ch é a biblioteca gráfica HWGUI que precisa estar ai compilada no seu computador, na versão do GCC que vc usa.

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 16:37

harbour 3.2.0dev (r1812311432)

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 16:50

Ola!
Qual é o seu GCC ? Sabe o que é GCC(Mingw) ? Você mesmo escreveu isso... mais acima.

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 16:54

nao sei o que GCC

Mensagem por **Itamar M. Lins Jr.** » 08 Out 2019 17:23

Ola!
Vc mesmo escreveu isso:

Código: Selecionar todos

Assim é minha compilação:(BAT)

set path=C:\hb32\bin;C:\hb32\comp\mingw\bin;%path%
set HB_COMPILER=mingw
hbmk2 MTESTE.hbp

Eu pensei que já sabia o que é um arquivo .HBP, etc... ainda não executou o comando que pedi.

Código: Selecionar todos

>harbour -build

Coloca aqui a saida da tela.

Saudações,
Itamar M. Lins Jr.

Marcelo Baliza · Mensagem por **Marcelo Baliza** » 08 Out 2019 17:34

A minha compilação é console ou gráfica ?

harbour 3.2.0dev (r1812311432)

cjp · Mensagem por **cjp** » 11 Set 2020 01:46

Estou tentando começar a aprender a usar Hwgui. Achei excelente o tutorial deste post.
Estou testando um a um os exemplos fornecidos. Alguns estão dando erro na compilação (ex: o Dialog with various gets; e um que tem um color diferente).
Mas estou entendendo os exemplos e vou começar a tentar algumas coisas simples. Por ora, apenas agradeço pela indicação deste post.