Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7066 usuários registrados
O último usuário registrado atende pelo nome de Seabra86

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

COMO MUDAR COR DO OBJETO EM FOCO ?

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por marcelopacto em 12/4/2010, 11:34

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'
avatar
marcelopacto
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por Marcos Guedes em 12/4/2010, 11:42

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?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por hugo em 12/4/2010, 11:47

ja votei!

este menino eh demais!

valeu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por Nelson Arcas em 12/4/2010, 11:53

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
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por marcelopacto em 12/4/2010, 12:35

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
avatar
marcelopacto
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por Marcos Guedes em 12/4/2010, 13:16

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 - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: COMO MUDAR COR DO OBJETO EM FOCO ?

Mensagem por Marcos Guedes em 16/5/2010, 12:30

E aí, Marcelo?
Resolveu?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum