Alterar tom RGB

#1

Boa tarde,
este é um botão com função jog. Habilitando um bit clp.
Como faço para deixar tom verde do botão mais escuro?
SEGUE SCRIPT.

IF habil_manutencao_tq1==0
if MessageBox (“Voce deseja habilitar manutenção???”,“Habilita manutenção”, 0024h) ==6
habil_manutencao_tq1=1
MessageBox (“Manutenção habilitada”)
endif
ELSEIF habil_manutencao_tq1==1
if MessageBox (“Voce deseja desabilitar manutenção???”,“Desabilita manutenção”, 0024h) ==6
habil_manutencao_tq1=0
MessageBox (“manutenção desabilitada”)
ENDIF
ENDIF

if habil_manutencao_tq1==0
TQ1.Botão2.backgroundColor0=RGB(0,255,0)
elseif habil_manutencao_tq1==1
TQ1.Botão2.backgroundColor0=RGB(0,0,255)
endif

#2

Ataíde,
Você tem que alterar o fator ‘G’ do RGB. Por exemplo: “TQ1.Botão2.backgroundColor0=RGB(0,128,0)”.

#3

Bom dia Enrico,
fiz isso mas ele não altera o botão, na propriedade do botão onde seleciona 0 e 1 as cores pequenas ele altera, mas não transmite ao botão.

#4

Ataide,
Fiz um teste com o seguinte script e funcionou:

IF habil_manutencao_tq1==0
if MessageBox (“Voce deseja habilitar manutenção???”,“Habilita manutenção”, 0024h) ==6
habil_manutencao_tq1=1
MessageBox (“Manutenção habilitada”)
TQ1.Botão2.backgroundColor0=RGB(0,0,255)
endif
ELSE
if MessageBox (“Voce deseja desabilitar manutenção???”,“Desabilita manutenção”, 0024h) ==6
habil_manutencao_tq1=0
MessageBox (“manutenção desabilitada”)
TQ1.Botão2.backgroundColor0=RGB(0,128,0)
endif
ENDIF