Página 1 de 1
criar algo semelhante ?? WVW ??
Enviado: 16 Fev 2014 14:58
por bencz
Olá
A um tempo, trabalhei em uma empresa que seu principal aplicativo é escrito em xHB, e sua interface era parecida com a deste exemplo:
Mas se eu não me engano, o la da empresa era usando apenas a WVW, alguem tem algum exemplo de como posso fazer algo proximo, usando o wvw ?
criar algo semelhante ?? WVW ??
Enviado: 24 Fev 2014 14:38
por Dr.Microso
Não seria isso o que você está procurando?!?
Site do autor:
http://www.csacomputer.com/gtwvw/ com exemplos.
Manual.......:
Documentação em português
criar algo semelhante ?? WVW ??
Enviado: 25 Fev 2014 20:06
por angeiras
Olá,
Dá uma olhada no grupo em
https://br.groups.yahoo.com/group/gtwvw. Lá tem documentação e vários códigos de exemplos para usar a GTWVW no Xharbour.
[]s
M.Angeiras
criar algo semelhante ?? WVW ??
Enviado: 25 Fev 2014 21:19
por JoséQuintas
Isso aí é pouco.
Se for só isso acho que pode ser WVW, WVT, WVG.
criar algo semelhante ?? WVW ??
Enviado: 25 Fev 2014 21:36
por JoséQuintas
Usei programa pra hackear cores.
Disse que poderia ser parecido, então.....
Código: Selecionar todos
#include "hbgtinfo.ch"
PROCEDURE Main
aPalette := hb_gtInfo( HB_GTI_PALETTE )
aPalette[ 2 ] := RGB( 57, 109, 165 )
aPalette[ 3 ] := RGB( 0, 133, 133 )
hb_gtInfo( HB_GTI_PALETTE, aPalette )
SetColor( "W/B" )
CLS
@ 0, 0 SAY ""
@ Row()+1, 0 SAY "Registrado para"
@ Row()+1, 0 SAY "Name.......: Versao Demonstracao"
@ Row()+1, 0 SAY "City.......: Osasco"
@ 5, 2 TO 10, 40
SetColor( "W/G" )
@ 6, 6 SAY "A-Cadastro"
SetColor( "W/B" )
@ 7, 6 SAY "B-Outra coisa"
Toolbar()
Inkey(0)
RETURN
STATIC FUNCTION Toolbar()
LOCAL oToolbar
oToolbar := WvgToolBar():New( wvgSetAppWindow(), , { 0, 0 }, { 0, 0 }, , .T. )
oToolbar:style := WVGTOOLBAR_STYLE_FLAT
oToolbar:borderStyle := WVGFRAME_RECT
oToolbar:buttonWidth := 32
oToolbar:buttonHeight := 32
oToolbar:imageWidth := 32
oToolbar:imageHeight := 32
oToolbar:showToolTips := .T.
oToolbar:Create()
oToolbar:addItem( "1st button", "policial.bmp" )
oToolbar:AddItem( "2nd button", "policial.bmp" )
oToolbar:AddItem()
oToolbar:AddItem( "3nd button", "policial.bmp" )
oToolbar:AddItem( "4th button", "policial.bmp" )
oToolbar:AddItem( "5th button", "policial.bmp" )
oToolbar:AddItem()
oToolbar:AddItem( "6th button", "policial.bmp" )
oToolbar:AddItem( "7th button", "policial.bmp" )
// oToolbar:ButtonClick := { | oBtn | __Keyboard( Chr( K_HOME ) + oBtn:Caption ), Msg( "Click on toolbar" + HB_EOL() + oBtn:Caption, "toolbar" ) }
RETURN NIL
No Harbour 3.2, compilar com hbmk2 test gtwvg.hbc