Clipper On Line • Ver Tópico - Cada vez que testo uma lib... testo algo na gtwvg

Cada vez que testo uma lib... testo algo na gtwvg

GTWVG com API Windows somente no Harbour.
No Harbouir 3.4 está sendo usado pointer, aonde no 3.2 é numérico.

Moderador: Moderadores

 

Cada vez que testo uma lib... testo algo na gtwvg

Mensagempor JoséQuintas » 20 Set 2017 23:49

gtwvg.png


Faltou saber como pegar o nome da variável, mas como é apenas teste, serve assim.... rs

PROCEDURE Main

   LOCAL GetList := {}, cNome := Space(30), cEndereco := Space(30), cCidade := Space(20)
   LOCAL cUF := Space(2), cCep := Space(9)

   SetMode( 40, 100 )
   SetColor( "W/B,N/W,,,W/B" )
   CLS
   @  2, 5 GET cNome
   @ Row(), Col() + 4 GET cEndereco
   @ Row() + 3, 5     GET cCidade
   @ Row(), Col() + 4 GET cUF
   @ Row(), Col() + 4 GET cCep
   SetFrameGet( GetList )
   READ


Nada demais, só o groupbox

FUNCTION SetFrameGet( oGetList )

   LOCAL oElement, oControl, nRow, nCol, nLen, cText

   FOR EACH oElement IN oGetList
      nRow  := oElement:Row - 1
      nCol  := oElement:Col - 1
      nLen  := GetLen( oElement ) + 2
      cText := "nome do get"
      IF Len( cText ) > nLen - 2
         cText := Pad( cText, nLen - 2 )
      ENDIF
      oControl := wvgtstGroupbox():New()
      oControl:cText := cText
      oControl:Create( , , { -nRow, -nCol }, { -2.1, -nLen } )
   NEXT

   RETURN NIL


Não funciona no Harbour 3.2, porque nele não tem a modificação pra aceitar decimais.
Apesar de componente Windows, resize automático, junto com a tela.

Sei lá... talvez algum dia use... acho que faz mais de um ano que criei isso e nunca usei.... rs
Não lembro se tinha testado pra usar no get...
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18011
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Cada vez que testo uma lib... testo algo na gtwvg

Mensagempor JoséQuintas » 21 Set 2017 18:05

Uia.. wvgMLE, é o multi line edit.
Tem também o wvgSLE, que é o single line edit.
Eita nomezinhos de merd... para o que seria o textbox, mas funcionam...
Usei o mesmo exemplo anterior.

gtwvg3.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18011
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Cada vez que testo uma lib... testo algo na gtwvg

Mensagempor microvolution » 02 Fev 2018 20:32

JOsé, tô vendo que vc gosta mesmo é da GTWVG... por isso que tô contigo e não abro mão!
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!


Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes

Cada vez que testo uma lib... testo algo na gtwvg

Mensagempor microvolution » 02 Mar 2018 09:40

a tela abaixo, é 100% HMG:
tela PDV HMG 01.png
TELA GRÁFICA 100% HMG 3.4.4 (Roberto Lopez)

Já a tela abaixo, é uma cópia (quase idêntica, pois ainda não está pronta) da mesma tela acima, feita em 100% GUI GTWVG:
tela PDV 01 - antes.png
TELA GRÁFICA 100% GTWVG - compilando com uso da IDE/HMG 3.4.4 (Roberto Lopez)

A tela acima, usa o jeito procedural do harbour (ex clipper), do jeito que aprendi a programar, com acréscimo de poucas linhas está quase semelhante.
Está incompleta... faltando alguns detalhes... mais detalhes postei no tópico do harbour/começando em "GUI" de autoria do JQuintas.
Vlw amigos!
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes




Retornar para GTWVG

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro