Página 1 de 1
Abas na gtWvW
Enviado: 12 Jun 2017 11:01
por dbdc5554
BOM dia
alguém faz ABAS usando a WVW lib ?
poderia printar uma tela para eu ver como fica ?
cpaivasistemas@gmail.com
Paiva
Abas na gtWvW
Enviado: 19 Jun 2017 23:59
por acelconsultoria
Oi, Paiva...
Peguei um exemplo do Angeiras, onde ele desenhou as abas. Não ficou perfeito, mas até que engana bem.
Abas na gtWvW
Enviado: 20 Jun 2017 00:01
por acelconsultoria
Aqui estão os fontes. Usando a GTWVW.
Abas na gtWvW
Enviado: 21 Jun 2017 14:35
por dbdc5554
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
Abas na gtWvW
Enviado: 21 Jun 2017 16:44
por acelconsultoria
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.
Abas na gtWvW
Enviado: 21 Jun 2017 16:51
por acelconsultoria
Para compilar aqui, no Harbour 3.4 + GTWVW, no arquivo TAB.PRG eu excluí essas linhas do final do fonte:
Código: Selecionar todos
/*
#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:
Código: Selecionar todos
//#include "winuser.ch"
//#include "wingdi.ch"
//#include "setcurs.ch"
E, por último, na linha do TAB.PRG onde tem isso:
Código: Selecionar todos
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:
Compilação:
Funcionou 100%