Depois de mexer na gtwvg, voltar pra gtwvt, acabei voltando nisto das cores.
Não sei qual era o problema antes, se já estava misturando GTs, mas agora deu certo.
Além de usar GTWVT, tem que acrescentar -GUI no hbmk2.
Abri o painel de controle do Windows, na configuração de aparência pra escolher as cores.
Depois montei um de/para pra trocar cores inúteis por cores úteis.
Procurei manter o conceito de cores do clipper (N/W por exemplo), e a cor forte (W+ por exemplo).
Se esquecer o padrão de cores Clipper, dá pra usar 16 cores aleatórias, indo de 0 a 15 (SetColor("0/15, 15/0")).
A rotina deu trabalho pra escolher cores e digitar códigos, mas tá fácil de entender:
Os nomes das cores.... em 16 milhões de opções, com certeza não estão exatos...
Quanto a última pergunta, sobre definir a cor no Say/get: selecionar 16 cores já dá um trabalhão... melhor deixar nas 16.
Por enquanto não testei toda combinação, só coloquei no sistema e olhei algumas telas padrão.
Código: Selecionar todos
Function GtSetupPalette()
Local aPaletteRgb, aPalette, nCont
aPaletteRgb := { ; // Cor nova cor original Clipper/Harbour
{ 0, 0, 0 }, ; // Preto { 0, 0, 0 }, ; // Preto
{ 0, 0, 64 }, ; // Azul Marinho { 0, 0, 170 }, ; // Azul
{ 0, 64, 0 }, ; // Verde Escuro { 0, 170, 0 }, ; // Verde
{ 0, 128, 92 }, ; // Azul ceu { 0, 170, 170 }, ; // Anil
{ 255, 0, 0 }, ; // Vermelho { 170, 0, 0 }, ; // Vermelho
{ 128, 128, 192 }, ; // Violeta { 170, 0, 170 }, ; // Rosa
{ 128, 64, 0 }, ; // Marrom { 170, 85, 0 }, ; // Marrom
{ 170, 170, 170 }, ; // Branco { 170, 170, 170 }, ; // Branco
{ 128, 128, 128 }, ; // Cinza chumbo { 85, 85, 85 }, ; // Cinza
{ 0, 0, 128 }, ; // Azulao { 85, 85, 255 }, ; // AzulForte
{ 0, 128, 64 }, ; // Verde Medio { 85, 255, 85 }, ; // VerdeForte
{ 0, 128, 128 }, ; // Azul Petroleo { 85, 255, 255 }, ; // AnilForte
{ 255, 128, 0 }, ; // Laranja { 255, 85, 85 }, ; // VermelhoForte
{ 255, 0, 128 }, ; // Pink { 255, 85, 255 }, ; // RosaForte
{ 255, 255, 0 }, ; // Amarelo { 255, 255, 85 }, ; // Amarelo
{ 255, 255, 255 }, ; // Branco Forte { 255, 255, 255 } ; // BrancoForte
}
aPalette := {}
For nCont = 1 To 16
Aadd( aPalette , Rgb( aPaletteRgb[ nCont, 1 ], aPaletteRgb[ nCont, 2 ], aPaletteRgb[ nCont, 3 ] ) )
Next
hb_gtInfo( HB_GTI_PALETTE, aPalette )
Return NIL
FUNCTION rgb( nRed, nGreen, nBlue )
RETURN nRed + ( nGreen * 256 ) + ( nBlue * 256 * 256 )
