Clipper On Line • Ver Tópico - Abas na gtWvW

Abas na gtWvW

Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)

Moderador: Moderadores

 

Abas na gtWvW

Mensagempor dbdc5554 » 12 Jun 2017 11:01

BOM dia

alguém faz ABAS usando a WVW lib ?

poderia printar uma tela para eu ver como fica ?

cpaivasistemas@gmail.com

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Abas na gtWvW

Mensagempor acelconsultoria » 19 Jun 2017 23:59

Oi, Paiva...

Peguei um exemplo do Angeiras, onde ele desenhou as abas. Não ficou perfeito, mas até que engana bem.
abasgtwvw.jpg
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes

Abas na gtWvW

Mensagempor acelconsultoria » 20 Jun 2017 00:01

Aqui estão os fontes. Usando a GTWVW.
Anexos
tabcontrol.rar
(5.7 KiB) Baixado 166 vezes
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes

Abas na gtWvW

Mensagempor dbdc5554 » 21 Jun 2017 14:35

Obrigado pela Atenção

gerei um exe e NAO mostra o fold rs

mostra o GET 1 + sem folds

www.dbdc.com.br/exe\fold.exe

coloquei uns disply para ver na sequancia de comandos + nao aparece FOLD

sera que tem que ter uma wvw.lib + nova ?

uso com o Xhb

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Abas na gtWvW

Mensagempor acelconsultoria » 21 Jun 2017 16:44

Eu gerei o exe com Harbour 3.4 e a GTWVW. Mas esse fonte é do Angeiras, que peguei no fórum GTWVW que deve ter sido feito com xHarbour e gtwvw.lib na época. Tanto é que precisei incluir o arquivo xhb.hbc pra compilar, justamente pra ajustar a compatibilidade do Harbour com o xHarbour.

Da versão do xHarbour pra versão do Harbour 3.4, a lib não sofreu grandes mudanças. O que mudou mesmo foi o Harbour.

Programas antigos meus, compilados em xHarbour com GTWVW, ficam lentos e com falhas na tela, usando o Win 7. Recompilando com Harbour 3.4 e GTWVW , rodam normalmente. Ao menos, foi uma constatação minha aqui. Entendo que a gtwvw possui a necessidade de "repintar" a tela várias vezes, acho que isso ficava mal ajustado com o xHarbour... e agora com o Harbour 3.4 não houve problemas.
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes

Abas na gtWvW

Mensagempor acelconsultoria » 21 Jun 2017 16:51

Para compilar aqui, no Harbour 3.4 + GTWVW, no arquivo TAB.PRG eu excluí essas linhas do final do fonte:
/*
#pragma BEGINDUMP

#include "windows.h"
#include "shlobj.h"
#include "hbapi.h"
#include "math.h"
#include "hbvm.h"
#include "hbstack.h"
#include "hbapiitm.h"
#include "hbapigt.h"

HB_FUNC( WVW_SIZE_READY )
{
   BOOL bIsReady;
   static BOOL s_bIsReady = FALSE;
   bIsReady = s_bIsReady;
   if (ISLOG(1))
   {
      s_bIsReady = hb_parl(1);
   }
   hb_retl(bIsReady);
}

HB_FUNC ( GETSYSCOLOR )
{
  int i = ISNIL(1) ? 0 : hb_parni(1);

  if ( i >= 0 && i < 29 )
  {
    hb_retnl( (LONG) GetSysColor(i) );
  }
}

#pragma ENDDUMP
*/


No arquivo ICBRASIL.CH, eu tirei esses includes:
//#include "winuser.ch"
//#include "wingdi.ch"
//#include "setcurs.ch"


E, por último, na linha do TAB.PRG onde tem isso:
wvw_SetFont(,'Ms Sans Serif' , 16, 8  , FW_MEDIUM, DEFAULT_QUALITY )


Devido à alguma referência de algum include que poderia dar erro, eu substituí por isso:
wvw_SetFont(,'Ms Sans Serif' , 16, 8 )


Compilação:
hbmk2 tab gtwvw.hbc xhb.hbc


Funcionou 100%
Adm. Maickon Sato
Consultoria e Projetos
-------------------------------------------------------
Avatar de usuário

acelconsultoria
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 231
Data de registro: 10 Jan 2006 16:05
Cidade/Estado: Itápolis-SP
Curtiu: 6 vezes
Mens.Curtidas: 6 vezes




Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

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