Página 1 de 1
Exemplos (gráficos) de botões para GTWVW
Enviado: 05 Dez 2009 18:49
por lugab
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
Re: Exemplos práticos de botões para GTWVW
Enviado: 07 Dez 2009 10:32
por acelconsultoria
Olá...
Eu utilizo uma rotina simples para perguntas. Funciona assim:
IF PERGUNTA("Deseja continuar ?") = "S"
...// comandos //
ELSE
...// outros comandos //
ENDIF
Código: Selecionar todos
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.
Re: Exemplos práticos de botões para GTWVW
Enviado: 07 Dez 2009 18:56
por lugab
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
Re: Exemplos práticos de botões para GTWVW
Enviado: 16 Dez 2009 22:03
por alaminojunior
lugab escreveu:Esse exemplo q vc postou, NÃO PERMIE POSICIONAR O BOX, NEM DIMENSIONÁ-LO
Mas é permitido arrastar.
Re: Exemplos práticos de botões para GTWVW
Enviado: 16 Dez 2009 22:14
por lugab
É 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...
Re: Exemplos práticos de botões para GTWVW
Enviado: 15 Jan 2010 17:53
por TerraSoftware
Monte um box novo na possicao que achar melhor e coleque nele um prompt com 2 opcoes, sim e nao.
Simples assim.
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 02:41
por paulovirt
Como obter um manual da GTWVW com suas respectivas funções?
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 13:26
por paiva_dbdc
Paulo
coloque seu email que te mando um manual em pdf
Paiva
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 16:21
por acelconsultoria
Olá amigos,
Eu tenho aqui uma versão do manual da GTWVW para xHarbour.
Veja se serve.
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 16:41
por JoséQuintas
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:
Documentação:
Testei aqui gerou 13.803 linhas de documentação.
manualmente, pasta \harbour\contrib\gtwvw\doc\pt_br ou doc\en
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 16:43
por JoséQuintas
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 17:01
por JoséQuintas
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".
Exemplos (gráficos) de botões para GTWVW
Enviado: 13 Jul 2016 17:59
por paulovirt
Obrigado meus amigos. Bastante material para trabalhar. Valeu mesmo pela força. :xau
Exemplos (gráficos) de botões para GTWVW
Enviado: 17 Jul 2016 18:20
por paulovirt
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:
Código: Selecionar todos
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.