Realce no botão

[gralak]

É muito provavel que os includes estejam antigos por a versão que eu tenho atualmente e bem antiga
eu compilei a versão que vc postou no forum e mesmo assim não deu certo
se possivel poste aqui os includes para eu colocar na pasta tb ...

[sygecom]

Mandei os SOURCE e INCLUDE, está no mesmo anexo.

[gralak]

OK sygecom e coloquei os includes na pasta xHarbour e resolveu o problema
mas me atentei para a seguinte situação

no hcontrol.prg
METHOD onGetFocus() Class Hbutton
tem uma variavel
LOCAL res:=.t.
no processo do methodo ela recebe
res := Eval(::bGetFocus,::title,Seff)
este processo retorna para a variavel res um objeto
e no teste
if !Res
GetSkip(::oParent, ::Handle,,nSkip)
endif

da erro de condição
eu comentei o trecho e funcionou sem problema para este meu teste mais isso pode dar problema em outra ocasião?

[esbasso]

DA ERRO porque não retornou um valor logico no methodo

mas na realidade a linha esta errada
subsitua
if !Res
por
IF res != Nil .AND. EMPTY( res )

[gralak]

OK esbasso funcionou blz mas continuando nosso assunto.
Eu utilizei o methodo para trocar imagens do botão
porém quando eu click com o mouse em botão que não esta em foco
o evento CLICK não dispara ele primeiro mando o foco, ai eu tenho que clicar novamente para
chamar o evento.
Outra duvida seria se existe alguma maneira de que mesmo se o tema do windows for CLASSICO abrir com o tema XP???
vlw galera aguardo resposta ....

[gralak]

Blz galera recentemente encontrei a solução para o problema do click quando se troca a imagem do botão.
Segue a alteração que eu fiz no hControl.prg no metodo SETBITMAP.
Inseri esse código logo após a chamada da função SENDMESSAGE

SENDMESSAGE(::Handle, WM_PAINT,0,0)
REDRAWWINDOW(::Handle, RDW_ERASE + RDW_INVALIDATE)

Valeu galera aguardo a resposta de vcs sobre como forçar o programa sempre sem com o tema do XP

[Daiane]

Estou tentando mudar a cor do botão,mas não consigo
quando mudo de aba ele altera a cor bem rapidamente e volta a cor normal
ja tentei dar refresh() setar o foco e n adiantou.
Vejam como estou fazendo

Código: Selecionar todos

::bCadNis:SetColor(CLR_WHITE, CLR_RED)
		   ::bCadNis:refresh()
		   ::bCadNis:SetFocus()

Alguem pode me ajudar?