PC Toledo

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

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.

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

gilbertosilverio escreveu: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

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.

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.

Uso o ColorPic para definir as cores no browse

ANDRIL escreveu: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.

Exemplo:

https://findicons.com/search/door

Agradecido!

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.

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.

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.

Itamar M. Lins Jr. escreveu: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

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.

PC Toledo

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente

Header Browse Gradiente