PALETA DE CORES PERSONALIZADAS [X]HARBOUR

Foto de Anderson

Categoria: 

CLIPPER SÓ TEM 16 CORES FIXAS, MAS [X]HARBOUR PODE ALTERAR AS CORES DA PALETA ORIGINAL

Quer uma cor laranja? rosa? Altere a cor que você quiser!

novapaleta

 

// COMPILA COM: hbmk2 novapaleta hbwin.hbc

FUNCTION RGB( nR,nG,nB ) 
RETURN ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) ) 

FUNCTION MAIN()
#include "hbwin.ch"
#include "hbgtinfo.ch"

Hb_gtinfo( HB_GTI_WINTITLE, "16 CORES PERSONALIZADAS" )
Setmode(25,90)
SET CONFIRM ON
CLS

// AS CORES PADRÕES SÃO ESSAS:
// "15" rgb( 180, 180, 180 ) 15 W+  +white
// "14" rgb( 192, 144,   0 ) 14 GR+ yellow
// "13" rgb(  96,  96, 192 ) 13 RB+ +magenta
// "12" rgb( 255, 153,   0 ) 12 R+  +red
// "11" rgb(   0, 164, 164 ) 11 BG+ +cyan
// "10" rgb( 126, 126, 126 ) 10 G+  +silver
//  "9" rgb(    0, 96,  192)  9 b+  +blue
//  "8" rgb(  155, 155, 155)  8 N+  gray
//  "7" rgb(  155, 155, 155)  7 W   white
//  "6" rgb(  96,  96,   0 )  6 GR  olive
//  "5" rgb(  20,   0,  60 )  5 RB  magenta
//  "4" rgb( 255,  53,   0 )  4 R   red
//  "3" rgb(   0,  96,  96 )  3 BG  cyan
//  "2" rgb(   0,  96,   0 )  2 G   green
//  "1" rgb(   0,  48, 108 )  1 b   blue
//  "0" rgb(   0,   0,   0 )  0 N   black



// PALETA PERSONALIZADA
Hb_gtinfo( HB_GTI_PALETTE,12,rgb( 255,  153,   0 ) ) // R+ = LARANJA
Hb_gtinfo( HB_GTI_PALETTE, 9,rgb( 135,  206, 235 ) ) // B+ = SKYBLUE

DO WHILE LASTKEY()#27
	@ 03,00 SAY "DEFINA UMA COR PERSONALIZADA:"
	*-----  DISPLAY COLORS
	SET COLOR TO 0
	@ 05 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 1
	@ 06 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 2
	@ 07 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 3
	@ 08 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 4
	@ 09 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 5
	@ 10 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 6
	@ 11 ,25 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 7
	@ 12 ,25 SAY REPLICATE(CHR(219),10)
	@ 05 ,35 SAY " 0"
	@ 06 ,35 SAY " 1"
	@ 07 ,35 SAY " 2"
	@ 08 ,35 SAY " 3"
	@ 09 ,35 SAY " 4"
	@ 10, 35 SAY " 5"
	@ 11 ,35 SAY " 6"
	@ 12 ,35 SAY " 7"

	SET COLOR TO 8
	@ 05 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 9
	@ 06 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 10
	@ 07 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 11
	@ 08 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 12
	@ 09 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 13
	@ 10 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 14
	@ 11 ,43 SAY REPLICATE(CHR(219),10)
	SET COLOR TO 15
	@ 12 ,43 SAY REPLICATE(CHR(219),10)

	SET COLOR TO 7
	@ 05 ,54 SAY " 8"
	@ 06 ,54 SAY " 9 SkyBlue"
	@ 07 ,54 SAY "10"
	@ 08 ,54 SAY "11"
	@ 09, 54 SAY "12 Orange"
	@ 10 ,54 SAY "13"
	@ 11 ,54 SAY "14"
	@ 12 ,54 SAY "15"
	@ 24,00 SAY "https://www.henriqueguimaraes.com/tabela-de-cores-html-com-nome-rgb-e-hexadecimal/"

	// PARA TESTAR A COR
	nR := nG := nB := nC := 0
	@ 20,25 SAY "COR" GET nC PICT "99"
	@ 20,40 SAY "R" GET nR PICT "999"
	@ 20,50 SAY "G" GET nG PICT "999"
	@ 20,60 SAY "B" GET nB PICT "999"
	READ

	Hb_gtinfo( HB_GTI_PALETTE, nC,rgb( nR, nG, nB ) )
	@ 22,25 SAY STR(nC,2)
	@ 22,40 SAY STR(nR,3)
	@ 22,50 SAY STR(nG,3)
	@ 22,60 SAY STR(nB,3)
	
ENDDO

Você vai utilizar a função Hb_gtinfo( HB_GTI_PALETTE, NÚMERO DA COR, NÚMERO DA COR EM RGB).

No exemplo acima você pode escolher o número da cor e alterar a sua paleta. Observe que já alterei 2 cores neste exemplo.

Você pode usar o PAINT do Windows, escolhe cor personalizada e observe o número RGB correspondete à cor escolhida.

Olhe também este site com várias cores e seus códigos RGB: https://www.henriqueguimaraes.com/tabela-de-cores-html-com-nome-rgb-e-hexadecimal/

 

Downloads: 

novapaleta.prg — Baixado 51 vezes
Total votes: 0