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

[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

[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.

[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

[alaminojunior]

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

Mas é permitido arrastar.

[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...

[TerraSoftware]

Monte um box novo na possicao que achar melhor e coleque nele um prompt com 2 opcoes, sim e nao.
Simples assim.

[paulovirt]

Como obter um manual da GTWVW com suas respectivas funções?

[paiva_dbdc]

Paulo

coloque seu email que te mando um manual em pdf

Paiva

[acelconsultoria]

Olá amigos,

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

Veja se serve.

[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:

Código: Selecionar todos

hbmk2 -find wvw

Documentação:

Código: Selecionar todos

hbmk2 -doc wvw

Testei aqui gerou 13.803 linhas de documentação.

manualmente, pasta \harbour\contrib\gtwvw\doc\pt_br ou doc\en

[JoséQuintas]

Opcionalmente on-line:

https://github.com/vszakats/harbour-cor ... /gtwvw/doc

[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".

[paulovirt]

Obrigado meus amigos. Bastante material para trabalhar. Valeu mesmo pela força. :xau

[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.