Como trabalhar com SetColor() e Rgb no xH+GtWvW??

[Cezar]

Bom dia,

Estou confuso em trabalhar com as cores no XH+GTWVW??

Quando uso SetColor() ou RGB ??

Por exemplo, a cor de "areia" do XP como defino??

Se me fiz entender e puderem me dar uma visão do funcionamento das cores, agradeço.

cez_a@ubbi.com.br

[angeiras]

Olá,

Para utilizar as cores padrão, acho que SetColor() é a melhor opção.

Se quiser trabalhar com o esquema de cores do windows, acho que terá que redefinir a paleta de cores. Por exemplo :

Definir uma função para mudar a paleta :

Código: Selecionar todos

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

a função GetSysColor() :

Código: Selecionar todos

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

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

e usar uns defines para as cores :

Código: Selecionar todos

#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*")

As funções que postei aqui, foram adaptadas da WVWTOOLS, que voce pode baixar lá de xharbour.com.

[]s
Manoel Angeiras

[Cezar]

Grato Angeiras !!!


cez_a@ubbi.com.br