mudar cor de label em tempo de execução

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

pena
Usuário Nível 3
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

Mensagem por pena »

boa tarde, alguém pode dar uma dica como mudar a cord de um label, ou textbox, em tempo de execução?
Avatar do usuário
Nascimento
Usuário Nível 4
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

Mensagem por Nascimento »

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
Avatar do usuário
carlaoonline
Usuário Nível 3
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

Mensagem por carlaoonline »

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 )
Avatar do usuário
marcosLP
Usuário Nível 1
Usuário Nível 1
Mensagens: 47
Registrado em: 13 Nov 2020 10:24
Localização: guarpauava/pr

mudar cor de label em tempo de execução

Mensagem por marcosLP »

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
Avatar do usuário
JoséQuintas
Administrador
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

Mensagem por JoséQuintas »

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 "&"
Não, na verdade Clipper também tinha problema com isso, é que eram menos situações aonde isso fazia diferença.
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
Acima vai selecionar a área A, e não a área 10.
É 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/
Avatar do usuário
Itamar M. Lins Jr.
Administrador
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

Mensagem por Itamar M. Lins Jr. »

Olá!
Desculpas a todos se me aproveitei para questionar isso uma vez que não tem nenhum tópico com o assunto "&"
Não precisa pedir desculpas, se não tem tópico vc abre um tópico novo.
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.
Se usar &(cPalavraX). Quem será BOTÃO GRAVAR (sem aspas) ? Não é caractere, não é numeric, date..., entendeu ?

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
luiz antonio da silva
Usuário Nível 3
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

Mensagem por luiz antonio da silva »

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
HMG 3.4.4 - SQL SERVER - ORACLE
Responder