Clipper On Line • Ver Tópico - Exemplos (gráficos) de botões para GTWVW

Exemplos (gráficos) de botões para GTWVW

Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)

Moderador: Moderadores

 

Exemplos (gráficos) de botões para GTWVW

Mensagempor lugab » 05 Dez 2009 17:49

Olá pessoal.

A pressa é inimiga da perfeição, eu sei, mas no meu caso tem precedentes, pois eu não consegui reproduzir com sucesso os exemplos do manual da GTWVW, certamente por conta da pressa e da pressão a que estou submetido.

Portanto, se algum de vcs se dispuser a postar aqui a linha de comando das chamadas dos botões gráficos da GTWVW, para coisas simples, tipo o:

local resp:=Botao(20,10,24,20,"Confirma" ,"Sim",*Nao"),

Também a linha de comando daqueles botoes únicos que não é obrigatório clicar, porém, quando se clica nele automaticamente ele executa uma rotina...

Uso Xharbour 1.00.

Grato a todos,

Gabriel
Editado pela última vez por lugab em 09 Fev 2010 12:36, num total de 1 vezes
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Re: Exemplos práticos de botões para GTWVW

Mensagempor acelconsultoria » 07 Dez 2009 09:32

Olá...

Eu utilizo uma rotina simples para perguntas. Funciona assim:

IF PERGUNTA("Deseja continuar ?") = "S"
...// comandos //
ELSE
...// outros comandos //
ENDIF

FUNCTION PERGUNTA( TEX_TO )
LOCAL nButton
LOCAL SIM_NAO := 1
  nButton:= WvW_MessageBox( NIL, chr(13)+chr(10) + TEX_TO ;
           + chr(13)+chr(10) + chr(13)+chr(10), "Confirmar !!!", 4 + 32 + 4096 )
IF ( nButton == 6 )
    SIM_NAO := 1
ELSE
    SIM_NAO := 2
ENDIF   
RETURN IIF( SIM_NAO = 1, "S", "N" )


Já para os botões que ficam disponíveis na tela principal do sistema, dá um pouquinho mais de trabalho com a GTWVW, pois trata-se de botões da TOOL BAR. No fonte WVWTEST9.PRG que vem na pasta de exemplos da GTWVW tem uma função chamada CreateToolBar() que dá um modelo de como criar esses botões.
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes

Re: Exemplos práticos de botões para GTWVW

Mensagempor lugab » 07 Dez 2009 17:56

Obrigado, Maickon,

Esse exemplo q vc postou, NÃO PERMItE POSICIONAR O BOX NA LINHA OU COLUNA QUE EU DESEJAR.

No exemplo, o box é exibido sempre no centro da tela e termina escondendo o que o usuário digitou e ele precisa, antes de confirmar, dar uma olhada no que foi digitado.

Minha necessidade é passar os pametros de posicionamento (L1, C1), alem da "pergunta" e do "SIM" e "NAO", pois eu preciso controlar aonde ele deve ser exibido , linha e coluna, entendeu ?

Grato,

Gabriel
Editado pela última vez por lugab em 16 Jan 2010 17:22, num total de 1 vezes
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Re: Exemplos práticos de botões para GTWVW

Mensagempor alaminojunior » 16 Dez 2009 21:03

lugab escreveu:Esse exemplo q vc postou, NÃO PERMIE POSICIONAR O BOX, NEM DIMENSIONÁ-LO

Mas é permitido arrastar.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar de usuário

alaminojunior
Colaborador

Colaborador
 
Mensagens: 1689
Data de registro: 16 Dez 2005 20:26
Cidade/Estado: Ubatuba - SP
Curtiu: 27 vezes
Mens.Curtidas: 11 vezes

Re: Exemplos práticos de botões para GTWVW

Mensagempor lugab » 16 Dez 2009 21:14

É verdade, Alamino, mas o box volta pra mesma prosição , quando exibido na tela seguinte. O usuário se chateia e pede pra tirar o box...

Foi o que fiz, até que surja alguma novidade , usando o GTWVW

valeu...
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Re: Exemplos práticos de botões para GTWVW

Mensagempor TerraSoftware » 15 Jan 2010 16:53

Monte um box novo na possicao que achar melhor e coleque nele um prompt com 2 opcoes, sim e nao.
Simples assim.
www.sisterra.com.br
xHarbour 1.0.0 - Bcc 6.3 - Gtwvw/Hwgui
DbfCdx/MySql
Avatar de usuário

TerraSoftware
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 353
Data de registro: 28 Jul 2004 13:14
Cidade/Estado: Cianorte-PR
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Exemplos (gráficos) de botões para GTWVW

Mensagempor paulovirt » 13 Jul 2016 02:41

Como obter um manual da GTWVW com suas respectivas funções?
Avatar de usuário

paulovirt
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 69
Data de registro: 29 Jan 2007 09:00
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Exemplos (gráficos) de botões para GTWVW

Mensagempor paiva_dbdc » 13 Jul 2016 13:26

Paulo

coloque seu email que te mando um manual em pdf

Paiva
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Exemplos (gráficos) de botões para GTWVW

Mensagempor acelconsultoria » 13 Jul 2016 16:21

Olá amigos,

Eu tenho aqui uma versão do manual da GTWVW para xHarbour.

Veja se serve.
Anexos
GTWVW.pdf
Manual GTWVW
(455.18 KiB) Baixado 188 vezes
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes

Exemplos (gráficos) de botões para GTWVW

Mensagempor JoséQuintas » 13 Jul 2016 16:41

Acho que no Harbour 3.2, gtwvw não é considerada parte do Harbour, apesar de existir em \harbour\extras

No Harbour 3.4:

Nomes de função:

hbmk2 -find wvw


Documentação:

hbmk2 -doc wvw


Testei aqui gerou 13.803 linhas de documentação.

manualmente, pasta \harbour\contrib\gtwvw\doc\pt_br ou doc\en
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Exemplos (gráficos) de botões para GTWVW

Mensagempor JoséQuintas » 13 Jul 2016 16:43

José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Exemplos (gráficos) de botões para GTWVW

Mensagempor JoséQuintas » 13 Jul 2016 17:01

Esqueço do site que eu mesmo criei... rs
É a mesma documentação existente no Harbour, mas só em inglês:

http://www.harbourdoc.com.br

Tá muito mais lento que antes, acho que esses plugins de banco devem ser o motivo.
Ainda não sei como agilizar essa "tree" com quase 7.000 elementos.
Ou o que poderia usar no lugar dela.

gtwvw está em "user interface", "gtwvw.hbc".

harbourdoc.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Exemplos (gráficos) de botões para GTWVW

Mensagempor paulovirt » 13 Jul 2016 17:59

Obrigado meus amigos. Bastante material para trabalhar. Valeu mesmo pela força. :xau
Avatar de usuário

paulovirt
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 69
Data de registro: 29 Jan 2007 09:00
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Exemplos (gráficos) de botões para GTWVW

Mensagempor paulovirt » 17 Jul 2016 18:20

Amigos, boa tarde...

Algumas dúvidas... achei esse exemplo de menu e consegui fazer rodar, mas não achei onde coloca a função, a qual o item deve chamar:

hMenu = WVW_CreateMenu( ) 
hPopupMenu = WVW_CreateMenu( )
WVW_AppendMenu( hPopupMenu, MF_ENABLED + MF_STRING, ID_MENU_1, "~Cadastrar")
WVW_AppendMenu( hMenu , MF_ENABLED + MF_POPUP , hPopupMenu, "~Cliente", )
hPopupMenu = WVW_CreateMenu( )
WVW_AppendMenu( hPopupMenu, MF_ENABLED + MF_STRING, ID_MENU_2, "~Encerrar")
WVW_AppendMenu( hMenu , MF_ENABLED + MF_POPUP , hPopupMenu, "~SAIDA DO MENU", )

WVW_SETMENU(, hMENU )

WHILE .T.
CH:=INKEY(0)
IF CH=K_ESC; quit; ENDIF
ENDDO
RETURN

**** Captura movimento de teclado ou mouse
function nAfterInkey(nkey)
* check if nkey is:
* (1) menu command, or
* (2) mouse button action
local bAction
if nkey==WVW_DEFAULT_MENUKEYEVENT
* MenuKeyEvent
return nMenuChecker(WVW_GETLASTMENUEVENT())
//was: elseif ASCAN({K_LBUTTONDOWN, K_LBUTTONUP, K_MOUSEMOVE}, nKey) > 0
elseif ASCAN({K_LBUTTONDOWN, K_LBUTTONUP, K_MOUSEMOVE, K_MMLEFTDOWN,;
K_LDBLCLK}, nKey) > 0
* MouseEvent
return //wvwm_nMouseChecker(nkey)
elseif (bAction := SETKEY(nKey)) != NIL
eval(bAction, PROCNAME(), PROCLINE(), READVAR())
return 0
endif
return nkey //nAfterInkey(nkey)

** testa evento capturado
FUNCTION nMenuChecker(nMenuEvent)
local nkey := 0
do case
case nMenuEvent==ID_MENU_1
messageBox(ntela, "FUNCIONA", "OK", MB_OK,,MB_SYSTEMMODAL)
case nMenuEvent==ID_MENU_2
QUIT
otherwise
messagebOX(nTELA,"ERRO","ERRO", MB_OK,,MB_SYSTEMMODAL)
endcase
return nkey

** para trablhar com tela inteira (wvw_set_size_ready)
#pragma BEGINDUMP
#include "hbapi.h"

HB_FUNC( WVW_SIZE_READY )
{
BOOL bIsReady;
static BOOL s_bIsReady = FALSE;
bIsReady = s_bIsReady;
if (ISLOG(1))
{
s_bIsReady = hb_parl(1);
}
hb_retl(bIsReady);
}
#pragma ENDDUMP



Também, dentro desse esquema, como posso inserir um botão na janela ou um ícone, baseado numa imagem JPEG por exemplo? Já tentei algumas opções no manual que me enviaram, mas todas sem sucesso.
Avatar de usuário

paulovirt
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 69
Data de registro: 29 Jan 2007 09:00
Curtiu: 3 vezes
Mens.Curtidas: 0 vez




Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro