Browse da Hwgui que acho simples de fazer.

[Fernando queiroz]

CONSEGUIIIIIIIIIIIII

INIT DIALOG oDlg TITLE "PRODUTOS" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1024,600 CLIPPER NOEXIT ;
ON INIT {|| oBrowse1:aArray := ::CADASTRO_PRODUTOS_MANUTENCAO_CARREGA( "ORDER BY produtos.DESPRO LIMIT 50" ) , ;
oBrowse1:REFRESH(), ;
::CADASTRO_PRODUTOS_MANUTENCAO_onDlgInit( oDlg ), oDlg:oPage1:SetTab(1), oDlg:oPage1:ChangePage(1) } ;
BACKCOLOR 16777215

@ 1,113 TAB oPage1 ITEMS {} SIZE 1024,456 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS;
ON GETFOCUS { || oDlg:oPage1:oBrowse1:SetFocus()};
ON CHANGE {|This| IF( ! EMPTY(oBrowse1:aArray), ;
::Produtos_tab(This, oDlg, ;
LTRIM(str(oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 1])), ;
oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 2], ;
@cProgressKey ), )}

SO FUNCIONOU ASSIM

[JoséQuintas]

Ia editar pra formatar fonte, mas se fizer isso a parte em vermelho vai sumir.

Tenho a impressão de que aquela anotação da hwgui 2.17 ajudou na descoberta, lá mostra no INIT, que é quando inicia, e fez no GETFOCUS, que é quando recebe o foco.

O que estou reparando é o seguinte:
Não é exatamente um bug, é que nem tudo na hwgui é automático.

Talvez faltem exemplos mais variados como esse.
Se acontecer de novo, não sei se vamos lembrar disso.

[Itamar M. Lins Jr.]

Olá!

é que nem tudo na hwgui é automático.

Hwgui é leve, tem poucos comandos em relação as outras GUI. Por isso eu gosto dela.
O pessoal reclama de poucos exemplos. Na minha época tinha menos exemplos ainda.
Exemplos tem que ser bem pequenos, sem variáveis de CLASSE e METODOS.

Só o feijão com arroz mesmo.

Saudações,
Itamar M. Lins Jr.

[deividdjs]

que fonte vc usou neste browser itamar ?? ficou muito legal !! parabens !

[Itamar M. Lins Jr.]

Olá!

que fonte vc usou neste browser itamar ??

Courier New

Saudações,
Itamar M. Lins Jr.

[deividdjs]

Boa tarde amigos ! será q ninguem mais usa hwgui ?

meu sonho era só fazer funcionar o parametro 'TRANSPARENT' para colocar os .bmp sem aquele fundo branco .. alguem sabe porque não versao 2.23 não funciona e na documentação da função está lá ... inclusive no designer quando coloco o parametro "TRANSPARENT" o sistema simplemente fecha !! bem esquesito!!

Abs!

[Itamar M. Lins Jr.]

Olá!
Quem disse que não funciona ?
VC viu as telas do meu sistema ?
Funciona tanto no LINUX como no Windows.
VC escolheu usar 2.17 está usando Designe da 2.17 se não estou enganado.
Aqui nós usuários da Hwgui, a maioria de nós usamos sempre a ultima versão. Quem usa a 2.17 deve ser bem poucos.
Eu faço minhas telas na mão, pq uso mais CTRL+C e CTRL+V na parte do desenho, isso pq já foi bem lá no começo.

Código: Selecionar todos

@ 075,05 OwnerButton oIniNF  of oPanel Size 68,68 ON CLICK {||Inicio(oDlg)} FLAT BITMAP HBitMap():AddResource('INICIO') TRANSPARENT COORDINATES 0,0,64,64 TOOLTIP "Inicio"

Esse é um código para OwnerButton que uso atualmente.
Detalhe que uso o utilitário bincnt da pasta utils, jogo meus *.BMP todos dentro dele.
Tem uma thread minha aqui explicando.
Atenção!
Se vc for pela CABEÇA de FULANO que postou um código ASSIM/ASSADO aqui, espere dele as respostas.
Ou se FULANO postou aqui um DESIGNER de 2015 quando FULANO estava trabalhando no código, espere dele(s) respostas.
Não respondi nada PQ, somos LIVRES para escolher o que melhor for(do ponto de vista de cada um). Eu não escolho NADA que está muito tempo sem suporte.
Por enquanto a Hwgui está "ainda" caminhando, sabe-se lá até quando! E nesse estágio em que se encontra, pra mim está OK funcionando no Windows 10/11 64 bits e com Harbour ok.
A Hwgui versão do SVN, sempre a mais atual.
Aqui tem algumas telas da Hwgui que roda exatamente assim no Windows 10/11 e no Linux
https://pctoledo.org/forum/viewto ... 43&t=27315


Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Ah!! sim, já ia me esquecendo!
Não sou GURU de nada e nem porta voz da Hwgui, eu sigo o Alexander Kresin, que é a pessoa que desenvolve a Hwgui, pergunto pra ele(s) Desenvolvedores da Hwgui, nem sempre tenho respostas. Mas como uso há muitos anos a Hwgui consegui contornar alguns problemas, junto com outros usuário de outros países.

Saudações,
Itamar M. Lins Jr.

[deividdjs]

Ola Itamar .. sim .. eu acompanho seus posts e vi varias telas do seu sistema .. .inclusive vc comentando q migrou para linux .. muito legal ..

eu baixei a ultima versão 2.23 b7 do Alexander Kresin e funciona perfeitamente ... fiz bastante coisa já.. porem me deparei com esse detalhe da transparência q não tem cristo q faz o trem compilar ...

estou tudo em 64btis .. e as lib compilaram perfeitamente .. o unico detalhe q vi ao migrar foi esse ... q muita coisa funciona de uma maneira em uma versão e não funciona do mesmo jeito na outra ..

tentei agora desta forma ... '

Código: Selecionar todos

@ 075,05 OwnerButton oIniNF  of oPanel Size 68,68 ON CLICK {||Inicio(oDlg)} FLAT BITMAP HBitMap():AddResource('INICIO') TRANSPARENT COORDINATES 0,0,64,64 TOOLTIP "Inicio" ;

erro

tento assim

Código: Selecionar todos

 @ 5,6 OWNERBUTTON oOwnerbutton1  OF oToolbar1 SIZE 81,72    ;
        TEXT ''  ;  
	 COORDINATES 0, 0, 0, 0  ;
        BITMAP '..\controle_\imagem\clientes.bmp' TRANSPARENT ;
        COORDINATES 0, 0, 0, 0 ; 
        TOOLTIP 'Clientes' ;
        ON CLICK {|| DB_CADCLI() }

erro !!

Código: Selecionar todos

Harbour 3.2.0dev (r2407221137)
Copyright (c) 1999-2021, https://harbour.github.io/

C:\CONTROLE_\PRG\controle.prg:201: error E0030  Syntax error "syntax error at '@'"
1 error

quando tipo a propriedade transparent compila perfeitamente .... é muito esquisito !!

tem alguma include .. lib ou algum detalhe q nao estou fazendo corretamente ... ??

Abraço irmão e obrigado por sempre responder ..

vlw

[Itamar M. Lins Jr.]

Olá!
Vc deve estár com duas versões ai.

Verifique isso.
Pra dá erro de sintaxe, deve ser na compilação, ai é versões de include misturado.

Use o tutor para testar.

Código: Selecionar todos

#include "hwgui.ch"
Function Test()
Local oDlg, oPanel

   INIT DIALOG oDlg TITLE "Panel and Ownerbuttons";
         AT 0, 0 SIZE 320, 120 BACKCOLOR 12632256 ;
         FONT HFont():Add( "MS Sans Serif",0,-13 )

   @ 0,0 PANEL oPanel SIZE 320,32 ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS

   @ 2,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Next")} ;
       SIZE 32,26 FLAT ;
       BITMAP "next" FROM RESOURCE TRANSPARENT COLOR 12632256

   @ 34,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Last")} ;
       SIZE 32,26 FLAT ;
       BITMAP "bottom" FROM RESOURCE TRANSPARENT COLOR 12632256

   @ 66,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("First")} ;
       SIZE 32,26 FLAT ;
       BITMAP "top" FROM RESOURCE TRANSPARENT COLOR 12632256

   @ 98,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Previous")} ;
       SIZE 32,26 FLAT ;
       BITMAP "previous" FROM RESOURCE TRANSPARENT COLOR 12632256

   ACTIVATE DIALOG oDlg

Return Nil
      

Inclusive esse exemplo está no tutor.

Saudações,
Itamar M. Lins Jr.

[deividdjs]

no tutor compilou Itamar .. descobri a include que estava conflitando #include "wvtwin.ch" ... tirei ela do meu programa e funcionou perfeitamente amigo .. obrigado mais uma vez .. vc me fez acender uma luz !!

Abraço!

[deividdjs]

Itamar .. bom dia irmao ..

só mais uma duvida .. porque quando eu coloco BITMAP "previous" FROM RESOURCE TRANSPARENT COLOR 12632256 .. assim no RESOURCE a imagem não aparece nem no tutor ... e seu eu tiro do .res funciona normal .. já passou por isso ??

abs!

[JoséQuintas]

descobri a include que estava conflitando #include "wvtwin.ch" ... tirei ela do meu programa e funcionou perfeitamente amigo .

Tem uma alteração que enviei para o harbour que está pendente até hoje, justamente tem a ver com isso.

Crie gtwvg.ch

Código: Selecionar todos

#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "wvtwin.ch"

remova isto de gtwvg.hbc

Código: Selecionar todos

-headers=hbgtwvg.ch wvgparts.ch wvtwin.ch

A partir daí, pode usar gtwvg.hbc normalmente, mesmo com outras LIBs.
Vai ter que colocar #include "gtwvg.ch" aonde usar GTWVG, mas isso é normal pra qualquer uso de ch.

Não se preocupe, não vai ficar diferente, ao contrário, é a gtwvg que está diferente de todo resto, não tem nada que fazer isso automático.

[deividdjs]

quanto eu compilo assim olha como fica na imagem ...

o bmp de clientes aparece perfeitamente ... e o de fornecedores não ..

clientes .. busca na pasta de imagens e fornecedores busca no resource ..

Código: Selecionar todos

   @ 8,7 OWNERBUTTON oOwnerbutton1  OF oToolbar1 SIZE 99,90 ON CLICK {|| DB_CADCLI() }    ;
        TEXT 'Clientes'  ;
        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
        COORDINATES 0, 72, 0, 0  ;
        BITMAP '..\controle_\imagem\clientes.bmp' TRANSPARENT;
		  COORDINATES 0, 5, 0, 0 ; 
        TOOLTIP 'Registro de Clientes'

   @ 110,7 OWNERBUTTON oOwnerbutton2  OF oToolbar1 SIZE 99,90    ;
        TEXT 'Proveedores'  ;
        FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
        COORDINATES 0, 72, 0, 0  ;
        BITMAP HBitmap():AddResource("fornecedores") TRANSPARENT  ; 
        COORDINATES 0, 5, 0, 0 ; 
        TOOLTIP 'Registro de Proveedores'
        oOwnerbutton2:Anchor := 48     

arquivo .RC

Código: Selecionar todos

1   24   "WindowsXP.Manifest"


CLIENTES     BITMAP  imagem\clientes.bmp
FORNECEDORES BITMAP  imagem\fornecedores.bmp
PRODUTOS     BITMAP  imagem\produtos.bmp
COMPRAS      BITMAP  imagem\compras.bmp
VENTAS       BITMAP  imagem\ventas.bmp
RECEBER      BITMAP  imagem\ctas_receber.bmp
PAGAR        BITMAP  imagem\ctas_pagar.bmp
EXIT         BITMAP  imagem\cmdExit.bmp
                     
SMEXIT3      BITMAP  imagem\smexit3.bmp 
SMOPEN       BITMAP  imagem\smopen.bmp
SMSAVE       BITMAP  imagem\smsave.bmp
SMCANCEL     BITMAP  imagem\smcancel.bmp
BMP_NEW      BITMAP  imagem\bmp_new.bmp
BMP_EDIT     BITMAP  imamge\bmp_edit.bmp

o esquesito que fiz não um teste com um bmp pequeno e ele aparece com o mesmo codigo ...

abraço!

[JoséQuintas]

Código: Selecionar todos

CLIENTES     BITMAP  imagem\clientes.bmp

Errado, mesmo que funcione está errado.

Acostume pra funcionar com qualquer compilador.

Código: Selecionar todos

CLIENTES BITMAP "imagem\\clientes.bmp"

Barra invertida é usada pra que o próximo caractere seja tratado como caractere, mesmo que seja comando.
\\ a primeira barra é o comando, e a segunda é a que vai ser aceita
E nome de arquivo é entre áspas.

Também poderia usar a barra do linux, mas aí o arquivo fica preso a mingw ("imagem/clientes.bmp")
Do jeito que mencionei funciona em mingw, msvc, bcc.

Só depois disso confirme se vai funcionar ou não.
Por enquanto fica duvidoso se o RC está considerando o nome correto pra arquivo.