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: 763
- 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: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 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
