Header Browse Gradiente

[gilbertosilverio]

Simoes,

Você está usando browse Array ou DBF ?

E BROWSE DBF

São 2 grids na mesma tela é isso ? a primeira grid mostra e a segunda não mostra ?

Ele nao mostra nos dois grid, um de estoque e ou e do kardex.

Ele só mostra o descritivo se você tecla e segurar sobre os descritivos.

[asimoes]

Vou verificar, deve ser alguma bobeira lá na classe.

[asimoes]

Gilberto

Não consegui reproduzir o problema, de qualquer forma estou anexando o teste com COLRBLOC e a hwgui pra você comparar com o que você tem ai

COLRBLOC.zip

(921.91 KiB) Baixado 459 vezes

hwgui.zip

(10.74 MiB) Baixado 239 vezes

[asimoes]

Outro exemplo:



Fonte para verificar:

h-BrowseColor.zip

(978.58 KiB) Baixado 298 vezes

[asimoes]

Gilberto, to desconfiado do manifest

Usa o #include "harbour.rc" no seu arquivo de resource

Código: Selecionar todos

/* Copyright 2011-present Viktor Szakats (vszakats.net/harbour) */

#if !( defined( OS2 ) || defined( __OS2__ ) || defined( OS_2 ) )

#include "hbver.h"

#if defined( _HB_INCLUDE_ICON ) && \
    ! defined( __BORLANDC__ ) && ! defined( UNDER_CE )
1 ICON DISCARDABLE "../package/harbour.ico"
#endif

/* NOTE: BCC 5.5 has an RC preprocessor bug that in certain cases will append
         a trash byte to the return value of this macro. Such trash byte
         will result in a broken manifest record and the executable rejected
         by the OS (e.g. Windows 10) to run. It can be "fixed" by using
         a macro name shorter or longer by one character. But, instead of
         such non-zero-cost hacks, please switch to a modern compiler. */

#define HB_EXECUTAVEL SUBSTR( HB_ARGV(0), RAT( HB_PS(), HB_ARGV( 0 ) ) + 1 )
#define HB_MACRO2STRING( macro )   HB_MACRO2STRING_( macro )
#define HB_MACRO2STRING_( macro )  #macro

#define HB_VER_PROD                HB_VER_MAJOR,HB_VER_MINOR,HB_VER_RELEASE,0
#define HB_VER_PROD_STR            HB_MACRO2STRING( HB_VER_MAJOR ) "." HB_MACRO2STRING( HB_VER_MINOR ) "." HB_MACRO2STRING( HB_VER_RELEASE )
#define HB_VER_FILE                HB_VER_PROD
#define HB_VER_FILE_STR            HB_VER_PROD_STR

#define HB_NAME                    "SISTEMA SMF"

/* Version info */

#include <winver.h>

VS_VERSION_INFO  VERSIONINFO
FILEVERSION      HB_VER_FILE
PRODUCTVERSION   HB_VER_PROD
FILEFLAGSMASK    VS_FFI_FILEFLAGSMASK
FILEFLAGS        0
FILEOS           VOS__WINDOWS32
FILETYPE         VFT_APP
BEGIN
   BLOCK "StringFileInfo"
   BEGIN
      BLOCK "040904B0"  /* LANGUAGE: US English (0x0409), ENCODING: Unicode (1200/0x04B0) */
      BEGIN
         VALUE "Comments",         "See LICENSE.txt for licensing terms." "\0"
         VALUE "CompanyName",      HB_NAME "\0"
         VALUE "FileDescription",  HB_NAME "\0"
         VALUE "FileVersion",      HB_VER_FILE_STR HB_VER_STATUS "\0"
         VALUE "LegalCopyright",   "Copyright © 2008-present (see application banner)" "\0"
         VALUE "ProductName",      HB_NAME "\0"
         VALUE "ProductVersion",   HB_VER_PROD_STR HB_VER_STATUS "\0"
      END
   END
   BLOCK "VarFileInfo"
   BEGIN
      VALUE "Translation", 0x416, 0x4B0
   END
END

/* Manifest */

#if ! defined( HBMK_DYNLIB ) && ! defined( HB_DYNLIB )

/* String escaping rules:
      https://msdn.microsoft.com/library/aa381050
   Application Manifest doc, including the list of 'supportedOS Id's:
      https://msdn.microsoft.com/library/aa374191 */

#ifndef CREATEPROCESS_MANIFEST_RESOURCE_ID
#define CREATEPROCESS_MANIFEST_RESOURCE_ID  1
#endif
#ifndef RT_MANIFEST
#define RT_MANIFEST  24
#endif

CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST
BEGIN
   "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
   "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
      "<assemblyIdentity name=""" HB_NAME """ version=""" HB_VER_PROD_STR ".0"" type=""win32""/>"
      "<application xmlns=""urn:schemas-microsoft-com:asm.v3"">"
         "<windowsSettings>"
            "<dpiAware xmlns=""http:" "//schemas.microsoft.com/SMI/2005/WindowsSettings"">true</dpiAware>"
         "</windowsSettings>"
      "</application>"
      "<trustInfo xmlns=""urn:schemas-microsoft-com:asm.v3"">"
         "<security>"
            "<requestedPrivileges>"
               "<requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>"
            "</requestedPrivileges>"
         "</security>"
      "</trustInfo>"
      "<dependency>"
         "<dependentAssembly>"
            "<assemblyIdentity name=""Microsoft.Windows.Common-Controls"" version=""6.0.0.0"" type=""win32"" processorArchitecture=""*"" publicKeyToken=""6595b64144ccf1df""/>"
         "</dependentAssembly>"
      "</dependency>"
      "<compatibility xmlns=""urn:schemas-microsoft-com:compatibility.v1"">"
         "<application>"
            "<supportedOS Id=""{e2011457-1546-43c5-a5fe-008deee3d3f0}""/>"  /* Vista / Server 2008 */
            "<supportedOS Id=""{35138b9a-5d96-4fbd-8e2d-a2440225f93a}""/>"  /* 7 / Server 2008 R2 */
            "<supportedOS Id=""{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}""/>"  /* 8 / Server 2012 */
            "<supportedOS Id=""{1f676c76-80e1-4239-95bb-83d0f6d0da78}""/>"  /* 8.1 / Server 2012 R2 */
            "<supportedOS Id=""{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}""/>"  /* 10 / Server 2016 */
         "</application>"
      "</compatibility>"
   "</assembly>"
END

#endif
#endif

[gilbertosilverio]

Ola Simões,

Este erro só acontece se você compilar usando o COLRBLOC.HBP padrão que esta samples.

Se você compilar por hbmk2 colrbloc.hbp, creio que seja algum problema no hwgui.hbc.

Vou tentar identificar o por que de alguma rotinas minhas não aparecerem e outras sim o descritivo, e algum detalhe, creio que se algum STYLE

[gilbertosilverio]

Simões,

A parte do meu código de faz sumir a barra de descritivos e essa aqui, se comento os descritivos aparecem.

Código: Selecionar todos

       /*
       oBrw1:nFootRows := 1             
       oBrw1:acolumns[01]:footing    := [ ]
       oBrw1:acolumns[02]:footing    := [<F5>Descricao    <F6>SalBase    <F7>Fornecedor]
       oBrw1:aColumns[01]:nJusFoot   := DT_RIGHT
       oBrw1:aColumns[02]:nJusFoot   := DT_CENTER
       */
 

Creio que deva ser alguma barberagem minha, mais da uma olha se você não precisa ajustar algo no footing

[asimoes]

A parte do meu código de faz sumir a barra de descritivos e essa aqui, se comento os descritivos aparecem.

Já descobri o problema, aguarde, vou postar novamente a hwgui com a correção.

[asimoes]

HwGui correção da Classe Browse

hwgui.zip

(10.76 MiB) Baixado 313 vezes

Gilberto verifique e informe.

[gilbertosilverio]

Simões,

Quando tentei compilar meu sistema, deu esta mensagem de erro.

[asimoes]

Simões,

Quando tentei compilar meu sistema, deu esta mensagem de erro.

Estava testando o uso de cuebanner e a função não estava adiconada a lib, pode testar novamente:

hwgui.zip

(10.78 MiB) Baixado 274 vezes

[gilbertosilverio]

Simões,

Funcionou perfeitamente, o visual ficou bem mais agradável.

Vou fazer mais testes caso encontre mais alguma coisa te aviso.

Obrigado pelo seu tempo e por compartilhar.

[asimoes]

Pode adicionar cor ho rodapé ( footer )

ThisForm:GridColorHeadFT := {0,255,255}
ThisFomr:GridColorHeadFB := {0,0,0}

[alaminojunior]

Parabéns Asimões pelo trabalho.
Creio que deu uma sobrevida a lib.

Aqui ainda usamos xHarbour 1.2.3 para manutenção no sistema principal nosso.
Quando o Harbour ressurgiu glorioso, ficou inviável para mim revisar tudo para uso com Harbour.
Com isso muita coisa foi avançando, Harbour, HwGUI. Esta última então nem se fala !
Depois da 2.17 lascou tudo, compatibilidade foi para o vinagre.

Com tudo isso, resolvi meio que abandonar o mundo xHarbour. Atualmente só manutenções nos clientes existentes.
Parti a exemplo de outros colegas para uma ferramenta que me provê maior produtividade e resultado final excelentes. Sem falar que já está 500% pronta para uso com mobile, tudo fácil e na mão, sem neuroses, sem dor de cabeça, basta focar no trabalho.,,

xHarbour e HwGUI me ajudaram muito assim como alguns de seus desenvolvedores e outros colegas como Basso e Leonardo Machado, porém temos que reconhecer que é complicado precisar e apostar tanto numa ferramenta que não tem garantia de sobrevivência.
São muitas versões, muita informação desencontrada, muita falta de compatibilidade ... Deus nos livre !

[janio]

Realmente, as implementações feitas pelo aSimoes no hwgui são impressionantes. Parabens!

Tbm estou congelado na versão 2.17 da hwgui. Eu e mais a torcida do flamengo rsrsrs ficamos congelados desde que um alguém aí, que aparece de tempos em tempos, e coloca mais 2 recursos e 5 bugs rsrs, resolveu aparecer e mudar tudo. A história todos sabem, não precisa ficar aqui feito um papagaio repetindo tudo.

Não eh simplesmente colocar um "hwg" antes das funções. Se fosse apenas isso não haveria ninguém congelado, não é verdade? O problema eh vc ter um sistema feito na lib e de repente mudarem radicalmente e vc ter que REVISAR o sistema inteiro para mudar aquilo que mudaram rsrs, além disso TESTAR tudo novamente pra saber se tudo está funcionando como antes. Ufa! Isso não é o pior, o pior eh a insegurança que isso gera. Será que o controle tal ta funcionando como antes funcionava? Será que ta retornando o mesmo resultado? Será que o browse ta do mesmo jeito? Será isso? Será aquilo? São tantas as duvidas e a insegurança... da medo.

Realmente parabens, aSimoes. O seu conhecimento está beeemmm acima do meu.

Pergunto: o seu fork eh compatível com harbour 3.2??