hBrowse

[cruz_brasil]

Boa tarde pessoal,
Estou precisando alterar a cor de fundo dos headers da browse, mas não estou conseguindo achar o lugar certo para fazer isso, alguém sabe como fazer ?
grato a todos.

[pauloa1]

Pelo que sei, essa opção não existe.

[Fernando queiroz]

oBrowse1:oStyleHead := HStyle():New( { 0xffffff, 0xbbbbbb }, 1,, 0.4, 16759929 )

[pauloa1]

Na versão "Congelada" não tem essa função HStyle()

Qual é a versão que vc testou ?

Paulo

[Fernando queiroz]

Na versão "Congelada" não tem essa função HStyle()

Qual é a versão que vc testou ?

Paulo

estou usando a versao 2.21

é a ultima versao disponivel, mas na 2.20 ja funcionava

[Fernando queiroz]

Fernando, poderia explicar em detalhes o que isso faz? Como funciona?
Obrigado!

INIT DIALOG oDlg TITLE "Cadastro de Produtos" ;
ICON HIcon():AddFile('sgc.ico') ;
AT 0, 0 SIZE 947,584 CLIPPER NOEXIT ;
STYLE WS_OVERLAPPEDWINDOW+DS_CENTER+DS_ABSALIGN;
ON INIT {|This| onDlgInit( This, oDlg ) }
ThisBRW := oDlg

@ 4,70 BROWSE oBrowse1 DATABASE OF oDlg SIZE 940,482 STYLE WS_BORDER + WS_VSCROLL +WS_HSCROLL ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON POSCHANGE {|| hwg_WriteStatus( oDlg,2,LTrim(Str( RecNo(),8))+ "/" +LTrim(Str( Lastrec(),8))) } ;
ON CLICK {|| oBrowse1_onClick( ) } ;
ON KEYDOWN {|oBrowse1,nKeyPress| oBrowse1_onKeyDown( oBrowse1,nKeyPress ) }

oBrowse1:oStyleHead := HStyle():New( { 0xffffff, 0xbbbbbb }, 1,, 0.4, 16759929 )
oBrowse1:freeze := 1
* oBrowse1:nColumns := 17
oBrowse1:alias := 'PRODUTOS'
SELECT (oBrowse1:alias)

[Fernando queiroz]