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: 763
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: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

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, 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/
Avatar do usuário
Itamar M. Lins Jr.
Administrador
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

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