HMGforum.com

MICROVOLUTION wrote: ↑Sat Jan 23, 2021 4:33 am Pessoal boa noite!
tenho o interesse de mudar a cor BAKCOLOR e COLOR dos objetos em 2 situações:
- TEMA NORMAL (.F.)
- TEMA MODO ESCURO (.T.)
Então, estou tentando assim:

Code: Select all

DEFINE WINDOW F_UTIL_MENU_HMG AT 5, 5 WIDTH 450 HEIGHT 385 TITLE win_ansitoOem("Menu Utilitários") MODAL BACKCOLOR iif (lTEMA,"DarkGrey","Orange")

EU EXPLICO:
as "DarkGrey" e "Orange" estão definidas no início do .PRG assim:
#define "DarkGrey", "169 169 169"
#define "OrangeRed4", "139 37 0"

Creo que el problema debe ser esto: (lo estás manejando como "constantes" y no como variables)

#define "DarkGrey", "169 169 169"
#define "OrangeRed4", "139 37 0"
DEFINE WINDOW F_UTIL_MENU_HMG AT 5, 5 WIDTH 450 HEIGHT 385 TITLE win_ansitoOem("Menu Utilitários") MODAL BACKCOLOR iif (lTEMA,"DarkGrey","Orange")

Y debe ser así:

#define VIOLETA { 153, 0, 153 }
#define CELESTE { 180, 216, 252 }
DEFINE WINDOW F_UTIL_MENU_HMG AT 5, 5 WIDTH 450 HEIGHT 385 TITLE win_ansitoOem("Menu Utilitários") MODAL BACKCOLOR iif (lTEMA,VIOLETA,CELESTE)

Puedes checar y probar los ejemplos en \HMG\3.4.4\SAMPLES

andyglezl wrote: ↑Sat Jan 23, 2021 5:04 am
Y debe ser así:

#define VIOLETA { 153, 0, 153 }
#define CELESTE { 180, 216, 252 }
DEFINE WINDOW F_UTIL_MENU_HMG AT 5, 5 WIDTH 450 HEIGHT 385 TITLE win_ansitoOem("Menu Utilitários") MODAL BACKCOLOR iif (lTEMA,VIOLETA,CELESTE)

Puedes checar y probar los ejemplos en \HMG\3.4.4\SAMPLES

realmente você tem razão. Nâo pode haver letras maiúsculas e minúsculas misturadas. Para que o sistema carregue, deve ser tudo MAIÚSCULAS.
Fiz a substituição e deu certo.
O meu muito obrigado, por tão prontamente nos ajudar.
Parabéns à você, a todos, e, em especial a quem criou este https://hmgforum.com que tem sido muito útil à mim e com certeza a vários outros clippeiros apaixonados que não abandonaram o barco que estava afundando em meio às linguagens gráficas e modernas como a antiga JAVA e C, C++ e tantas outras que nasceram e estão aí e estavam nos afundando... com a criação do harbour e posteriormente da HMG do Roberto Lopez, novos horizontes foram abertos!

Mas, agora, aproveitando o ensejo desse "parêntesis" que abri:

Estamos mais uma vez sendo afundados pelo novo jeito de se programar: WEB e SMARTPHONES... se alguém ou vários novamente não se unirem (os que entendem de linguagem de máquina, tais como C, C++ e JAVA, etc), repito: não se unirem, vamos nos afundar pra sempre.

Precisamos de algo que interaja entre DESKTOP, DBFNTX, CELULAR, WEB, e, sem precisar irmos para outra linguagem. Este é o desafio de 2021, na minha humilde opinião!!!
Feliz Sábado a todos(as)!!!