cores no clipper

[janio]

Olá a todos,

Como faço para usar cores diferentes das do padrão clipper?


Janio

[Clipper]

Prezado Colega

Use as funções EGAPALETE() e VGAPALETE() da Clipper Tools Lib.

Você poderá obter até 64 cores diferentes, veja no link abaixo como ficam diferentes as cores com o uso delas.

Eu as utilizo em meus sistemas.

http://geocities.yahoo.com.br/mmendeso/br01.jpg
http://geocities.yahoo.com.br/mmendeso/br02.jpg
http://geocities.yahoo.com.br/mmendeso/br03.jpg
http://geocities.yahoo.com.br/mmendeso/br04.jpg
http://geocities.yahoo.com.br/mmendeso/br05.jpg
http://geocities.yahoo.com.br/mmendeso/br06.jpg
http://geocities.yahoo.com.br/mmendeso/br07.jpg
http://geocities.yahoo.com.br/mmendeso/br08.jpg
http://geocities.yahoo.com.br/mmendeso/br09.jpg
http://geocities.yahoo.com.br/mmendeso/br10.jpg
http://geocities.yahoo.com.br/mmendeso/br11.jpg
http://geocities.yahoo.com.br/mmendeso/br12.jpg

Ps. Elas funcionam tanto em janela como em tela cheia.

Até logo.

Marcelo

[janio]

Marcelo,

Valeu.

Sem querer pedir de mais, mas já pedindo...

Qual é mesmo a sintaxe dessas funções, hein?


Ah!, ia esquecendo...

E fontes diferentes, a CTP tem também alguma função para mudar fontes?


Janio

[Clipper]

Prezado Colega

NO meu sistema eu uso assim :

Código: Selecionar todos

IF ESCPALETE=1   // é uma variável que é a escolha da cor pelo usuário
   EGAPALETTE(1, 15)
   EGAPALETTE(3, 17)
   EGAPALETTE(2, 05)
   EGAPALETTE(13, 40)
   EGAPALETTE(11, 16)
   EGAPALETTE(12, 15)
ELSEIF ESCPALETE=2
   EGAPALETTE(5, 5)
   EGAPALETTE(5, 9)
   EGAPALETTE(11, 08)
   EGAPALETTE(13, 16)
   EGAPALETTE(12, 15)
ELSEIF ESCPALETE=3
   EGAPALETTE(1, 6)
   EGAPALETTE(2, 8)
   EGAPALETTE(3, 41)
   EGAPALETTE(10, 41)
   EGAPALETTE(11, 17)
   EGAPALETTE(12, 56)
ELSEIF ESCPALETE=4
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 0)
   EGAPALETTE(3, 29)
   EGAPALETTE(9, 29)
   EGAPALETTE(13, 5)
   EGAPALETTE(12, 4)
ELSEIF ESCPALETE=5
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 2)
   EGAPALETTE(3, 35)
   EGAPALETTE(10, 35)
   EGAPALETTE(11, 11)
   EGAPALETTE(12, 10)
ELSEIF ESCPALETE=6
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 0)
   EGAPALETTE(3, 32)
   EGAPALETTE(10, 32)
   EGAPALETTE(11, 8)
   EGAPALETTE(12, 7)
ELSEIF ESCPALETE=7
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 0)
   EGAPALETTE(3, 29)
   EGAPALETTE(10, 29)
   EGAPALETTE(11, 5)
   EGAPALETTE(12, 4)
ELSEIF ESCPALETE=8
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 0)
   EGAPALETTE(3, 28)
   EGAPALETTE(10, 28)
   EGAPALETTE(11, 4)
   EGAPALETTE(12, 3)
ELSEIF ESCPALETE=9
   EGAPALETTE(1, 0)
   EGAPALETTE(2, 0)
   EGAPALETTE(3, 24)
   EGAPALETTE(10, 24)
   EGAPALETTE(13, 0)
   EGAPALETTE(12, 0)
ELSEIF ESCPALETE=10
   EGAPALETTE(1, 18)
   EGAPALETTE(2, 20)
   EGAPALETTE(3, 53)
   EGAPALETTE(9, 53)
   EGAPALETTE(10, 19)
   EGAPALETTE(11, 11)
ELSEIF ESCPALETE=11
   EGAPALETTE(1, 22)
   EGAPALETTE(2, 24)
   EGAPALETTE(3, 57)
   EGAPALETTE(10, 57)
   EGAPALETTE(11, 33)
   EGAPALETTE(12, 32)
ELSEIF ESCPALETE=12
   EGAPALETTE(1, 19)
   EGAPALETTE(2, 10)
   EGAPALETTE(3, 01)
   EGAPALETTE(10, 14)
   EGAPALETTE(11, 24)
   EGAPALETTE(12, 05)
ENDIF

Para usar as cores padrão VGA é só usar VGAPALLETE ao invés da EGAPALLETE()

As fontes que você viu no meu sistema são da Visual Lib, ela tem essa fontes diferentes e muitas outras funções que dão um novo visual aos programas em clipper. (botões, barras de opções, boxes, etc...)

Até logo.

Marcelo

[Barbosa]

Marcelo por acaso voce teria um exemplo dessas funções.

Geraldo Barbosa