COMO MUDAR COR DO OBJETO EM FOCO ?

[marcelopacto]

Tenho a seguinte situação, quando o usuário vai digitar cada campo de um formulário, mudo a cor e negrito o campo que está sendo digitado assim:
no GOTFOCUS do objeto

Código:

 THIS.forecolor=RGB(255,255,0)  && COR DA LETRA AMARELO
 THIS.backcolor=RGB(0,0,0)        && COR DO FUNDO PRETO
 THIS.fontbold=.T.                    && NEGRITO

e para que volte ao normal ao sair do campo, coloco no LOSTFOCUS:

Código:

 THIS.forecolor=RGB(0,0,0)              && COR DA LETRA PRETO
 THIS.backcolor=RGB(255,255,255)    && COR DO FUNDO BRANCO
 THIS.fontbold=.F.                          && SEM NEGRITO

eu gostaria de saber uma forma de que todos objetos TEXTBOX de um FORMULARIO assumissem esse comportamento automaticamente, pq estou fazendo 'no braço' em cada campo... dá uma trabalheira danada...

valeu !

Marcelo
'o IMPOSSÍVEL só existe até que alguém o FAÇA'

[Marcos Guedes]

Crie uma classe VCX para isto.
E ao invés de utilizar o textbox padrão do fox, arraste para o formulário o textbox criado por você:
- Clique aqui para baixar o exemplo!

Obs.: Se tiver problemas em criar/utilizar a classe VCX, é só postar.


Resolve o problema?

[hugo]

ja votei!

este menino eh demais!

valeu

[Nelson Arcas]

Marcelo.
O que voce poder fazer é criar uma classe do tipo Textbox e programar nos eventos (gotfocus e lostfocus) a sua codificação assim em todos os seus forms voce consegue utilizar o codigo.

Ou voce pode criar um método dentro do form e fazer a chamada de dentro do seu textox

Exemplo no evento Gotfocus

Código:

thisform.acerta_foco(1)

Exemplo no evento lostfocus

Código:

thisform.acerta_foco(2)

Código do método.

Código:


PARAMETERS ltipo

*** ltipo *********
* 1 -> Gotfocus *
* 2 -> Lost Foccus*
*** Set Focus *****

IF ltipo=1
   THIS.FORECOLOR=RGB(255,255,0)  && COR DA LETRA AMARELO
   THIS.BACKCOLOR=RGB(0,0,0)        && COR DO FUNDO PRETO
   THIS.FONTBOLD=.T.                    && NEGRITO
            THIS.REFRESH
ELSE

   THIS.FORECOLOR=RGB(0,0,0)              && COR DA LETRA PRETO
   THIS.BACKCOLOR=RGB(255,255,255)    && COR DO FUNDO BRANCO
   THIS.FONTBOLD=.F.                          && SEM NEGRITO
            THIS.REFRESH
ENDIF


[marcelopacto]

Beleza. 100% resolvido para os Novos formulários. Agora suponhamos que eu queira aplicar essa solução aos formulários que eu já tenho prontos ? Por que usando a Classe, eu teria que refazer todos os forms para que os objetos textbox virem meutextbox ou se eu for usar o método terei que editar o GotFocus e o LostFocus de cada objeto (textbox) para adicionar o acerta_foco(x). Não existe alguma forma de eu disparar no INIT do FORMULÁRIO uma instrução que no GOTFOCUS de todos objetos da classe 'textbox' execute o 'acerta_foco(1)' e no LOSTFOCUS execute o 'acerta_foco(2)' ??

Marcelo

[Marcos Guedes]

Veja se esta função resolve:

Código:

PROCEDURE mudarclasse AS void
   LPARAMETERS caminhoform AS STRING, classeoriginal AS STRING, classenova AS STRING, nomevcx AS STRING

   LOCAL nomeform AS STRING
   m.nomeform = JUSTSTEM(m.caminhoform)

   USE (m.caminhoform) IN SELECT(m.nomeform) ALIAS(m.nomeform) SHARED

   UPDATE (m.nomeform) SET CLASS=m.classenova , classloc=m.nomevcx ;
   WHERE UPPER(CLASS)=UPPER(m.classeoriginal)

   USE IN SELECT(m.nomeform)

ENDPROC

Para utilizar, siga este exemplo, com base no VCX que disponibilizei:

Código:

m.mudarclasse("form2.scx", "textbox", "textboxs", "foco.vcx")

Ou, se seu form estiver dentro de uma pasta, ex.: Forms

Código:

m.mudarclasse("Forms\form2.scx", "textbox", "textboxs", "foco.vcx")

Obs.: Faça BACKUP antes de realizar os testes, se houver erros, seu form será conrrompido!!!

Resolve?

[Marcos Guedes]

E aí, Marcelo?
Resolveu?