mudar cor de label em tempo de execução
Moderador: Moderadores
-
pena
- Usuário Nível 3

- Mensagens: 331
- Registrado em: 06 Jul 2004 18:08
- Localização: CACHOEIRA DO SUL-RS
mudar cor de label em tempo de execução
boa tarde, alguém pode dar uma dica como mudar a cord de um label, ou textbox, em tempo de execução?
- Nascimento
- Usuário Nível 4

- Mensagens: 765
- Registrado em: 19 Jul 2008 12:11
- Localização: OLINDA-PE
mudar cor de label em tempo de execução
faça um demostrativo do que vc precisa pra ter-mos uma pequena ideia meu caro amigo
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina
clipper 5.3 /harbour/minigui
- carlaoonline
- Usuário Nível 3

- Mensagens: 190
- Registrado em: 24 Ago 2014 22:38
- Localização: Porto Alegre-RS
mudar cor de label em tempo de execução
Boa tarde!
Form_1.label_1.fontcolor:={0,255,0)
Form_1.Botao_1.fontcolor:=RED
MeuEnviar="Btn_01"
this.&(BotaoEnviar).fontcolor:=YELLOW
LabelTitulo="Lbl_Titulo"
form_1.&(LabelTitulo).FontColor:=BLUE
Pode adicionar a uma ação:
ACTION ( Form_1.TextBox_1.BackColor := WHITE )
Form_1.label_1.fontcolor:={0,255,0)
Form_1.Botao_1.fontcolor:=RED
MeuEnviar="Btn_01"
this.&(BotaoEnviar).fontcolor:=YELLOW
LabelTitulo="Lbl_Titulo"
form_1.&(LabelTitulo).FontColor:=BLUE
Pode adicionar a uma ação:
ACTION ( Form_1.TextBox_1.BackColor := WHITE )
mudar cor de label em tempo de execução
Código: Selecionar todos
Form_1.label_1.fontcolor:={0,255,0)
Form_1.Botao_1.fontcolor:=RED
MeuEnviar="Btn_01"
this.&(BotaoEnviar).fontcolor:=YELLOW
LabelTitulo="Lbl_Titulo"
form_1.&(LabelTitulo).FontColor:=BLUE //aqui o &
Pode adicionar a uma ação:
ACTION ( Form_1.TextBox_1.BackColor := WHITE )**********************************************************************
*O & (e comercial) funcionava muito bem no clipper antigo ma sno harbour com minigui não consegui substituir, dá um erro bem estranho e olha que preciso muito disso pois para fluxos grandes de imagens por exemplos uso muito FOR....NEXT e em cada bloco precisa substitui quando o mousehover entra em ação.
Desculpas a todos se me aproveitei para questionar isso uma vez que não tem nenhum tópico com o assunto "&"
Editado pela última vez por Itamar M. Lins Jr. em 25 Jun 2023 09:50, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
- JoséQuintas
- Administrador

- Mensagens: 20415
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
mudar cor de label em tempo de execução
Não, na verdade Clipper também tinha problema com isso, é que eram menos situações aonde isso fazia diferença.marcosLP escreveu:*O & (e comercial) funcionava muito bem no clipper antigo ma sno harbour com minigui não consegui substituir, dá um erro bem estranho e olha que preciso muito disso pois para fluxos grandes de imagens por exemplos uso muito FOR....NEXT e em cada bloco precisa substitui quando o mousehover entra em ação.
Desculpas a todos se me aproveitei para questionar isso uma vez que não tem nenhum tópico com o assunto "&"
Pra cada situação uma solução diferente.
Vai ter que mostrar a sua situação, E ALGUÉM QUE USE MINIGUI vai mostrar alguma solução.
Código: Selecionar todos
A := 10
SELECT A
É um bom exemplo de que parece uma coisa mas é outra.
Tem muito disso em macro, codeblock, e em LIB gráfica.
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 8028
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 2 vezes
- Curtiram: 1 vez
mudar cor de label em tempo de execução
Olá!
Mas já adianto que não é correto da forma que vc está fazendo, pq a STRING(palavra) depois que usa & não é uma VARIÁVEL.
Por exemplo:
Se usar &(cPalavraX). Quem será BOTÃO GRAVAR (sem aspas) ? Não é caractere, não é numeric, date..., entendeu ?
Saudações,
Itamar M. Lins Jr.
Não precisa pedir desculpas, se não tem tópico vc abre um tópico novo.Desculpas a todos se me aproveitei para questionar isso uma vez que não tem nenhum tópico com o assunto "&"
Mas já adianto que não é correto da forma que vc está fazendo, pq a STRING(palavra) depois que usa & não é uma VARIÁVEL.
Por exemplo:
Código: Selecionar todos
cPalavraX := "BOTÃO GRAVAR"
Form_1.Botao_1.cPalavraX.COR_TAL... //Não sei a sintaxe da Minigui.
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.
-
luiz antonio da silva
- Usuário Nível 3

- Mensagens: 161
- Registrado em: 21 Nov 2006 22:12
- Localização: serrana-sp
mudar cor de label em tempo de execução
Boa Noite !
Com minigui use:
setproperty('Form','label_2','backcolor',{0,0,45})
setproperty('Form','label_2','fontcolor',{25,32,45})
podendo usar:
obj='label_2'
setproperty('Form',obj,'fontcolor',{25,32,45})
Espero que ajude.
Luiz
Com minigui use:
setproperty('Form','label_2','backcolor',{0,0,45})
setproperty('Form','label_2','fontcolor',{25,32,45})
podendo usar:
obj='label_2'
setproperty('Form',obj,'fontcolor',{25,32,45})
Espero que ajude.
Luiz
HMG 3.4.4 - SQL SERVER - ORACLE
