Abas na gtWvW

[dbdc5554]

BOM dia

alguém faz ABAS usando a WVW lib ?

poderia printar uma tela para eu ver como fica ?

cpaivasistemas@gmail.com

Paiva

[acelconsultoria]

Oi, Paiva...

Peguei um exemplo do Angeiras, onde ele desenhou as abas. Não ficou perfeito, mas até que engana bem.

[acelconsultoria]

Aqui estão os fontes. Usando a GTWVW.

[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

[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.

[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:

Código: Selecionar todos

wvw_SetFont(,'Ms Sans Serif' , 16, 8 )

Compilação:

Código: Selecionar todos

hbmk2 tab gtwvw.hbc xhb.hbc

Funcionou 100%