Página 2 de 4
Browse da Hwgui que acho simples de fazer.
Enviado: 08 Nov 2021 19:26
por 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
Browse da Hwgui que acho simples de fazer.
Enviado: 08 Nov 2021 19:37
por 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.
Browse da Hwgui que acho simples de fazer.
Enviado: 09 Nov 2021 08:58
por 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.
Browse da Hwgui que acho simples de fazer.
Enviado: 04 Set 2024 13:36
por deividdjs
que fonte vc usou neste browser itamar ?? ficou muito legal !! parabens !
Browse da Hwgui que acho simples de fazer.
Enviado: 04 Set 2024 21:52
por Itamar M. Lins Jr.
Olá!
que fonte vc usou neste browser itamar ??
Courier New
Saudações,
Itamar M. Lins Jr.
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 14:15
por 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!
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 14:50
por 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.
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 14:59
por 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.
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 16:54
por 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
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 20:24
por 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.
Browse da Hwgui que acho simples de fazer.
Enviado: 13 Set 2024 21:49
por 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!
Browse da Hwgui que acho simples de fazer.
Enviado: 15 Set 2024 11:05
por 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!
Browse da Hwgui que acho simples de fazer.
Enviado: 15 Set 2024 12:16
por JoséQuintas
deividdjs escreveu: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
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.
Browse da Hwgui que acho simples de fazer.
Enviado: 15 Set 2024 12:35
por 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!
Browse da Hwgui que acho simples de fazer.
Enviado: 15 Set 2024 12:42
por JoséQuintas
Errado, mesmo que funcione está errado.
Acostume pra funcionar com qualquer compilador.
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.