Clipper On Line • Ver Tópico - GTWVG - Melhorias

GTWVG - Melhorias

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

Moderador: Moderadores

 

GTWVG - Melhorias

Mensagempor JoséQuintas » 20 Mar 2016 16:41

Vamos tentando... alguma coisa acaba saindo.
Talvez seja interessante usar pra GETs.

groupbox.png
groupbox.png (8.24 KiB) Visualizado 1571 vezes
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GTWVG - Melhorias

Mensagempor JoséQuintas » 20 Mar 2016 16:43

E o pushbutton com resize automático de imagem
Anexos
pushbutton.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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GTWVG - Melhorias

Mensagempor JoséQuintas » 20 Mar 2016 16:48

Como consegui o groupbox?
Nada demais.

https://msdn.microsoft.com/en-us/library/windows/desktop/aa368766(v=vs.85).aspx

Aí mostra que é só criar como classe BUTTON.
E na janela, colocar os "styles" pra groupbox:
This control can be created from the BUTTON class by using the CreateWindowEx function. It has the BS_GROUPBOX, WS_CHILD, and WS_GROUP styles.


Então, peguei PUSHBUT.PRG como base, que atende o pushbutton e....
alterei esta parte

   ::style       := WIN_WS_CHILD + BS_GROUPBOX + WIN_WS_GROUP + BS_NOTIFY + BS_FLAT


Como eu já disse por aqui, os controles WVG* são janelas Windows comuns.
E como o fonte é PRG, facilita alterar.

Imaginem então quem conhece GUI, o que poderiam fazer com a GTWVG....

Minhas teorias estão começando a aparecer na prática.... rs
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GTWVG - Melhorias

Mensagempor JoséQuintas » 20 Mar 2016 22:16

Teste simples do groupbox nos GETs.
Só uma linha a mais.

groupboxget.png


PROCEDURE Main

   LOCAL GetList := {}, cText := Space(20)

   SetColor( "W/B" )
   SetMode( 33, 80 )
   CLS

   @         2, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   @ Row() + 3, 2 GET cText
   SetGetBox( GetList )
   READ
   RETURN

FUNCTION SetGetBox( oGetList )

   LOCAL oBox, oGet

   FOR EACH oGet IN oGetList
      oBox := wvgGroupBox():New()
      oBox:PointerFocus := .F.
      oBox:Caption := "test of groupbox use in gets"
      oBox:Create( , , { -( oGet:Row - 1 ), -oGet:Col }, { -2, -Len( Transform( oGet:VarGet(), oGet:Picture ) ) } )
      oBox:ToolTipText := "test"
   NEXT
   RETURN NIL


É só protótipo.
Falta descobrir como alterar as cores do texto e do contorno.

Nota: Se fosse uso prático, não poderia ser a mesma descrição pra todos os Gets.
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GTWVG - Melhorias

Mensagempor JoséQuintas » 20 Mar 2016 22:51

com cores no get, e tamanho maior

SetColor( "W/B,W/GR+,,,W/B" )


groubox2.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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para GTWVG

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 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