PC Toledo

Olá a todos,

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

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

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

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

Geraldo Barbosa

PC Toledo

cores no clipper

cores no clipper