Header Browse Gradiente

[asimoes]

Agora finalizei as modificações na classe Browse, estilizando o header e outras coisas.
Lembro que é um fork da 2.17, mas está funcional.

[JoséQuintas]

Estou começando a querer fazer isso...
Mas a briga começa em que a versão atual de HWGUI nem compilava...
Por isso deixando pra depois do MySQL, mas cada vez com mais vontade kkkkk
Esse é um ótimo complemento pro browse ADO.

[gilbertosilverio]

Ola Simões,

Uso o seu fork de 11/2017+HB34, que você disponibilizou no fórum, que funciona perfeitamente para mim.

viewtopic.php?f=46&t=18671&hilit=hwgui217&start=15#p119312

Por que você não posta aqui pra gente poder ver e usar esta tua nova versão.

A oficial do Russo, cada vez que ele ou alguém mexe fica impraticável, pra quem NÃO MANJA NADA como eu...

Tenho saudades das alterações do Luiz F Basso, imagino o fork atual dele, que ele deve usar...

[asimoes]

Ola Simões,

Uso o seu fork de 11/2017+HB34, que você disponibilizou no fórum, que funciona perfeitamente para mim.

Pode baixar a HwGui, nesta versão incorporei a BosTaurus do Dr, Claudio Soto, que no browse faz o gradient do header do browse
Ajustes no browse para as linhas verticais que estavam "trepando" essa deu trabalho de acertar, mas agora está 100% alinhada.

hwgui.zip

(17.27 MiB) Baixado 425 vezes

[asimoes]

Método do exemplo acima:
As cores definidas no Main() ou um arquivo .ini ou usando #define

Código: Selecionar todos

PUBLIC N_BLUE           := 16711680 
PUBLIC N_DARKBLUE       := 10027008
PUBLIC N_WHITE          := 16777215
PUBLIC N_CYAN           := 16776960
PUBLIC N_BLACK          :=        0
PUBLIC N_RED            :=      255
PUBLIC N_GREEN          :=    32768
PUBLIC N_GRAY           :=  8421504
PUBLIC N_YELLOW         :=    65535
PUBLIC N_CLEANBLUE      := 16771276
PUBLIC N_CLEANGRAY      := 12632256
PUBLIC N_BLUE001        := 16777172

METHOD CarregaBrowse()
LOCAL nCorFonte, nCorFundo, nCorFonteSelecao, nCorFundoSelecao

   WITH OBJECT ThisForm:GridFichaFinanceira
      :aArray         := {}
      :HighlightStyle := 1
      :sepColor       := N_BLUE 
      :tcolorSel      := Hwg_Rgb(0, 0, 0)
      :bcolorSel      := N_CLEANBLUE 
      :headColor      := N_BLUE
      :ColorHeadT     := {255,255,255} //{0,255,255} //COR BRANCA DO GRADIENTE
      :ColorHeadB     := {192,192,192} //{0,225,255} COR SILVER DO GRADIENTE
      :freeze         := 1
      :lAdjRight      := .F.
      :nColumns       := 12
      :AutoColumnFit  := 0
      :AutoFit()
      :oHeadFont      := HFont():Add( 'Tahoma', 0, -13, 550 )
      :nHeadHeight    := 24
      :SetRowHeight( :nHeadHeight )
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";Mês/Ano" ;
      TYPE    "C" LENGTH 8 DEC 0 ;
      PICTURE "@R 99/9999" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";T" ;
      TYPE    "C" LENGTH 1 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";L" ;
      TYPE    "C" LENGTH 1 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  "Data;Vencimento" ;
      TYPE    "D" LENGTH 10 DEC 0 ;
      PICTURE "@D" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";Valor Guia" ;
      TYPE    "N" LENGTH 12 DEC 2 ;
      PICTURE "@E 999.99" ;
      JUSTIFY HEAD DT_RIGHT ;
      JUSTIFY LINE DT_RIGHT
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";Valor Pago" ;
      TYPE    "N" LENGTH 12 DEC 2 ;
      PICTURE "@E 999.99" ;
      JUSTIFY HEAD DT_RIGHT ;
      JUSTIFY LINE DT_RIGHT
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  "Data;Pagamento" ;
      TYPE    "D" LENGTH 10 DEC 0 ;
      PICTURE "@D" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";Nº Banco" ;
      TYPE    "C" LENGTH 16 DEC 0 ;
      PICTURE "@R 999999999999/#" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";CB" ;
      TYPE    "C" LENGTH 2 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";EC" ;
      TYPE    "C" LENGTH 2 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";BS" ;
      TYPE    "C" LENGTH 2 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER
      *
      ADD COLUMN hwg_ColumnArBlock() TO ThisForm:GridFichaFinanceira ;
      HEADER  ";BC" ;
      TYPE    "C" LENGTH 2 DEC 0 ;
      PICTURE "!" ;
      JUSTIFY HEAD DT_CENTER ;
      JUSTIFY LINE DT_CENTER 
      *
      //WITH OBJECT ThisForm
      
      nCorFonte        := N_WHITE
      nCorFundo        := N_RED
      nCorFonteSelecao := N_WHITE
      nCorFundoSelecao := N_RED
      
      :aColumns[1]:bColorBlock := {|| IF( Empty( GridFichaFinanceira:aArray[ GridFichaFinanceira:nCurrent, 7] ), ;
                                          {nCorFonte, nCorFundo,  nCorFonteSelecao, nCorFundoSelecao}, ;
                                          {N_BLACK, N_WHITE , N_BLACK, N_CLEANBLUE} )}

      :aColumns[7]:bColorBlock := {|| IF( Empty( GridFichaFinanceira:aArray[ GridFichaFinanceira:nCurrent, 7] ), ;
                                          {N_WHITE, N_RED,  N_WHITE, N_RED }, ;
                                          {N_WHITE, N_BLUE, N_WHITE, N_BLUE} )}
   
      :aColumns[1]:oFont :=  HFont():Add( 'Tahoma', 0, -17, 550 )
      
      :aColumns[7]:oFont :=  HFont():Add( 'Tahoma', 0, -17, 550 )
      
      :aColumns[1]:headColor := 11007 //22015 //32767
 
      :aColumns[7]:headColor := 11007
   END
    
   ::lCarregaBrowse := .T.
 
RETURN .T.

[ANDRIL]

Asimões, ficou muito bom seu browse. Parabéns!
Gostaria de saber onde conseguiu os icones que usa no seu sistema, quando baixo a Hwgui vem poucos icones e antigos.

[asimoes]

Uso o ColorPic para definir as cores no browse

[asimoes]

Asimões, ficou muito bom seu browse. Parabéns!
Gostaria de saber onde conseguiu os icones que usa no seu sistema, quando baixo a Hwgui vem poucos icones e antigos.

Os icones você pode baixar aqui:

https://www.iconfinder.com/
https://findicons.com/

Esses 2 uso como fonte para baixar e usar icones nas telas.

[asimoes]

Exemplo:

https://findicons.com/search/door

[ANDRIL]

Agradecido!

[Itamar M. Lins Jr.]

Ola!
Isso já tem na Hwgui oficial, faz anos...

A oficial do Russo, cada vez que ele ou alguém mexe fica impraticável, pra quem NÃO MANJA NADA como eu...

Isso não é verdade. Não sei não, mas essas desinformações da atual Hwgui, só faz piorar.
Não tem bug importante reportado da Hwgui do SVN.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Muitos recursos visuais da Hwgui 2.17 só roda no BCC 5.5.
E o problema principal com a Hwgui é exatamente porquê alguns querem manter compatibilidades, com BCC 5.5 e xHarbour.
A Hwgui 2.17 as pessoas usam por conta do RDDSQL e do "pasmem" hbmake... e não querem colocar "hwg_" em algumas funções, exclusivas da Hwgui. Esse "hwg_" no inicio das funções foi criado exatamente para não misturar com funções de outras bibliotecas que são compiladas junto com a Hwgui


Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!

Gradiente, não apenas no Browse, mas em outros controles, até a aparência do Win10 no dialog. Controles estilizados!
Buttons, status panel... etc... HSTYLE HStyle():New( {16770002,16772062}, 1,, 0.4, 16759929 )

Tá usando Mysql ? usando UTF8 ? Qual é a hwgui mais preparada para utf8 ?

Saudações,
Itamar M. Lins Jr.

[asimoes]

Ola!
Muitos recursos visuais da Hwgui 2.17 só roda no BCC 5.5.

Isso não e verdade, estou usando LLVM/CLANG funcionando normal, inclusive a BosTaurus

[Itamar M. Lins Jr.]

Ola!
A sua Hwgui. Pode até ser.
Pegue a oficial 2.17 e compile. E eu estou falando dos recursos visuais. Nem GCC de 8 anos atrás compila ela.
Se eu sai dela exatamente por conta disso. O Basso e o Luiz usavam BCC 5.5 "na época" agora nem sei mais. Isso foi a mais de 10 anos...
Eu conversava com o Luis Basso pelo skype... gente boa!

Saudações,
Itamar M. Lins Jr.