criar algo semelhante ?? WVW ??

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

[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

[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

[JoséQuintas]

Isso aí é pouco.
Se for só isso acho que pode ser WVW, WVT, WVG.

[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