Códigos RGB() para XP?

[Cezar]

Boa noite,

O comando:
WvW_DrawColorRect( nWinNum, 01, 01, 15, 80, {},Rgb(216,216,191) ), desenha um retangulo preenchido com a cor do Rgb()

Rgb( 216,216,191 ) são os valores mais proximos da cor "Palha" do XP, mas é um pouco mais escura.

Eu chama essa cor de palha, lendo este tópico com IE é a cor do menu; Arquivo, Editar, etc..

Voces sabem quais são os código que obteria a cor "palha" padrão do XP??

Grato,
cez_a@ubbi.com;br

[Maligno]

quais são os código que obteria a cor "palha" padrão do XP??

Pra descobrir essas cores use o menu "propriedades" do desktop, aba "aparência", botão "avançado". Esse "palha" é (236,233,216) no meu XP.

[]'s
Maligno
http://www.buzinello.com/prg

[angeiras]

Olá,

Como a configuração de cores do windows pode ser diferente para cada computador, o melhor é pegar a paleta de cores e configurar para refletir essas configurações. Eu faço assim :

tenho uma função que altera a paleta de cores :

**********************
FUNCTION ConfigCores()
**********************
   aPalette     := WvW_GetPalette()
   aPalette[01] := GetSysColor( COLOR_WINDOWTEXT )  // 8
   aPalette[02] := RGB(   0,  51, 153 )
   aPalette[04] := RGB(   0, 255, 255 )
   aPalette[08] := GetSysColor( COLOR_BTNFACE )    // 15
   aPalette[10] := RGB( 100, 135, 220 )
   aPalette[13] := RGB( 227,  92,  47 )
   WvW_SetPalette( aPalette )
RETURN NIL

e depois uso as cores como em Clipper :

#define COR_DE_FUNDO      setcolor("3/9")
#define COR_WINDOWS_XP    setcolor( 'N/W,N/GR*,,,N/W*' )
#define COR_NORMAL        setcolor("N/W*,GR+/B*,N/N,GR+/N*,W+/N*,R/W*,W/W*,B/W*")

Getsyscolor é uma função que pega as cores do sistema :

HB_FUNC ( GETSYSCOLOR )
{
    int i = ISNIL(1) ? 0 : hb_parni(1);

  if ( i >= 0 && i < 29 )  
  {
    hb_retnl( (LONG) GetSysColor(i) );
  }
}

Dessa forma posso criar uma tela que funciona tanto no XP quanto no win98. Por exemplo :

***************
FUNCTION MAIN()
***************
   dbsetdriver("DBFCDX")
   hb_setcodepage("PT850")

   set confirm    on
   set deleted    on
   set bell       off
   set scoreboard off
   set eventmask  to INKEY_ALL
   set date       british
   set epoch      to 1950

   ConfigCores()

   WVW_SetFont(,'Ms Sans Serif', 16, 8,, PROOF_QUALITY )
   wvw_setmaincoord(.F.)
   wvw_noclose()
   wvw_size_ready(.T.)
   wvw_SetPaintRefresh(0)
   WVW_SetCodePage(,250)
   wvw_SetVertCaret(.F.)
   wvw_enableshortcuts(0,.T.)
   wvw_maximize(0)
   wvw_settitle( , "PDV - Frente de Loja" )
   COR_WINDOWS_XP
   scroll()

   wvw_drawboxraised(,01,01,04,97)
   COR_DE_FUNDO
   @ 01, 01 clear to 04, 97
   COR_WINDOWS_XP

   wvw_drawboxraised(,06,01,28,47)
   COR_NORMAL
   @ 06, 01 clear to 28, 47
   COR_WINDOWS_XP

   wvw_drawboxraised(,30,01,32,97)
   COR_NORMAL
   @ 30, 01 clear to 32, 97
   COR_WINDOWS_XP

   wvw_drawboxraised(,06,49,10,97)
   wvw_drawboxraised(,12,49,16,97)
   wvw_drawboxraised(,18,49,28,97)
   COR_DE_FUNDO
   @ 06, 49 clear to 10, 97
   @ 12, 49 clear to 16, 97
   @ 18, 49 clear to 28, 97

   wvw_drawlabel(, 06, 50, "Valor Unitário",,, RGB( 0, 255, 255 ), RGB( 100, 135, 220 ), "Tahoma",,, 2 )
   wvw_drawlabel(, 12, 50, "Subtotal"      ,,, RGB( 0, 255, 255 ), RGB( 100, 135, 220 ), "Tahoma",,, 2 )
   wvw_drawlabel(, 23, 65, "Seu logotipo aqui",,, RGB( 0, 255, 255 ), RGB( 100, 135, 220 ), "Tahoma",,, 2 )

   mcodigo := space(13)
   mquant  := 0.0

   COR_NORMAL
   wvw_drawlabel(, 31, 03, "CÓDIGO :",,, aPalette[1], aPalette[16], "Tahoma",,, 2 )
   wvw_drawlabel(, 31, 72, "QUANTIDADE :",,, aPalette[1], aPalette[16], "Tahoma",,, 2 )

   @ 31, 14 get mcodigo picture "9999999999999"
   @ 31, 88 get mquant picture "@E 9999.99"
   read
RETURN NIL

Espero que ajude em alguma coisa.

[]s
Manoel Angeiras

[raulparraco]

Al probar el ejemplo me da error en GETSYSCOLOR en que libreria encuentro esta funcion


gracias

[sygecom]

Al probar el ejemplo me da error en GETSYSCOLOR en que libreria encuentro esta funcion

gracias

WHAT32.LIB


Abraços
Leonardo Machado

[Stanis Luksys]

Opa,

Também da para ler direto do registro, não me lembro a chave exatamente, mas olhando no google se encontra... Esta alternativa também se adapta ao ambiente...

Falou!

[raulparraco]

solucionados

Gracias :*

[Mário Isa]

Esse recurso dá prá usar c/ clipper 5.2e + blinker 7.0 ?

a GTWVW.LIB só linka com xharbour ou dá prá blinker também ?

Mário

[janio]

a GTWVW.LIB só linka com xharbour ou dá prá blinker também ?
Mário

Somente com xHARBOUR.

Jânio

[rochinha]

Amiguinhos

Para ajudar coloquei em disponibilidade a tabela de cores que montei para meu sistema em um link para download em http://www.5volution.com.br/downloads/forum/matiz.zip

Basta baixar e renomear para MATIZ.DBF

Ela possui nome da cor, codigos R, G e B e codigo hexa.

Divirtam-se

[janio]

Como conseguir aquela cor da tela inicial da WVWTOOL's???

Alguém sabe??


Jânio

[janio]

Olá,

Como a configuração de cores do windows pode ser diferente para cada computador, o melhor é pegar a paleta de cores e configurar para refletir essas configurações. Eu faço assim :

Angeiras,

Como vc exibe letras GRANDES gráficas (nao modo texto) no video??? Tipo pra Frente de Caixa mostrar os produtos com uma LETRA GRANDE.

Com wvw tem como???

Jânio

[microvolution]

pra quem precisa de código de cores RGB encontrei algo neste link http://erikasarti.com/html/tabela-cores/ e que me foi útil e agora pode ser útil pra outros, pois o link que o Rochinha ofereceu, só funciona se tiver USUÁRIO/SENHA.

http://www.5volution.com.br/downloads/forum/matiz.zip

este link que me refiro está bloqueado pra quem não tem usuário/senha.

tenho uma função que altera a paleta de cores :

Angeiras... parabéns... 11 anos atrás vc já fazia o q estou aprendendo agora!
Obrigado por seu tópico existir!

[Claudio Soto]

Ver en el archivo c:\hmg.3.4.4\include\i_color.ch
que existe una extensa lista de directivas #define con colores, en la carpeta samples hay un ejemplo mostrado toda la lista de colores.

[rochinha]

Amiguinhos,

microvolution
http://www.5volution.com.br/matiz.zip