PC Toledo

Olá a todos,

Pessoal, estou tentando compilar com a função EGAPALETTE da CTP.LIB e tem dado sempre este erro: Quando tiro a função do meu PRG o erro desaparece.

O que pode ser isso?

Janio

Bom dia Janio, no meu sistema eu utilizo a VGAPALETTE()....e nunca tive problemas....lembro há alguns anos...q fui utiilizar a EGapalette ae deu uma bucha....q naum me recordo...por isso mudei de função....

Bom dia Dudu,

Obrigado por responder.

Vc tem razão: com a função VGAPALETTE não dá erro de compila~ção/linkedição.

Agora, eu não sei muito bem usar essa função... sua sintaxe, se agente aposenta o SET COLOR do clipper... etc.

Se vc puder me ajudar, AGRADEÇO antecipadamente.

Jânio

Prezado Colega

No meu sistema dá a mesma mensagem de erro, porém o sistema linka e roda perfeitamente.

As funções EGAPALETTE() e VGAPALETTE() não substituem a SETCOLOR() elas tem apenas a função de modificar o padrão RGB de vídeo alterando as tonalidades das cores.

Até logo.

Marcelo

como o Marcelo falou essa função naum é para substituir o setcolor...mas sim modificar as cores do rgb....meu cliente...tava reclamando do vermelho q tava mto forte...ae...mudei o rgb dele com uma tonalidade mais..."branda"...rs..depois postarei o exemplo...qdo chegar em casa...

Aguardo...


Jânio

// matriz aCores com os valores padrões do RGB
// 1 posição - Cor padrão no VGA
// 2 posição - proporção de Vermelho de 0 - 63
// 3 posição - proporção de Verde de 0 - 63
// 4 posição - proporção de Azul de 0 - 63
aCores := {}
AAdd(aCores, {0, 0, 0, 0, "Negro/Preto"})
AAdd(aCores, {1, 0, 0, 42, "Azul"})
AAdd(aCores, {2, 0, 42, 0, "Verde"})
AAdd(aCores, {3, 0, 42, 42, "Ciano"})
AAdd(aCores, {4, 42, 0, 0, "Vermelho"})
AAdd(aCores, {5, 42, 0, 42, "Magenta"})
AAdd(aCores, {6, 42, 21, 0, "Marrom"})
AAdd(aCores, {7, 42, 42, 42, "Branco"})
AAdd(aCores, {8, 21, 21, 21, "Cinza"})
AAdd(aCores, {9, 21, 21, 63, "Azul Claro"})
AAdd(aCores, {10, 21, 63, 21, "Verde Claro"})
AAdd(aCores, {11, 21, 63, 63, "Ciano Claro"})
AAdd(aCores, {12, 63, 21, 21, "Vermelho Claro"})
AAdd(aCores, {13, 63, 21, 63, "Magenta Claro"})
AAdd(aCores, {14, 63, 63, 21, "Amarelo"})
AAdd(aCores, {15, 63, 63, 63, "Branco Claro"})

// quero alterar o amarelo por exemplo
// aumentando a tonalidade azul...
vgapalette(14,63,63,50)