Cor no Retângulo.

[jnildo]

Caros colegas.

Estou tentando desenhar um retângulo na tela, mas a função Rectangle() só pede as coordenadas

do retângulo e o objeto hPen, onde é definido a espessura e a cor da linha. Como faço para pintar

o fundo do retângulo com uma determinada cor? O fundo está saíndo sempre em branco.

Obrigado.

JNildo

lonsoftnil@ig.com.br

[mou321]

Caro Amigo Jnildo. Peguei do NG

DEFINE PEN ;

[ STYLE ] ;

[ WIDTH ] ;

[ COLOR ] ;

[ OF | WINDOW | DIALOG ] ;

Activating the Pen Control ACTIVATE PEN

Reference to a Pen Object.

An optional Pen Style.

Pen color as a RGB number, or as a xBase string.

Mauricio (RJ)

[mou321]

ou pode usar diretamante

open= TPen():New( , ,, )

Mauricio (RJ)

[vagner]

citação:

Caros colegas.

Estou tentando desenhar um retângulo na tela, mas a função Rectangle() só pede as coordenadas

do retângulo e o objeto hPen, onde é definido a espessura e a cor da linha. Como faço para pintar

o fundo do retângulo com uma determinada cor? O fundo está saíndo sempre em branco.

Obrigado.

JNildo

lonsoftnil@ig.com.br

---

id=quote>id=quote>

Olá JNildo,

dê uma olhada na função FillRect() :þ)

Abraços

Vagner Wirts

São Paulo-Brasil

[jnildo]

Mauricio, obrigado pela dica, mas a solução para meu caso era mesmo FillRect().

Caro Vagner, eu tinha dado uma olhada na função FillRect(). Pela nome, só podia ser ela, só que fiz umas tentativas sem sucesso. Como você pediu para dar uma olhada nela, voltei a olhá-la e acabei encontrando a solução. Eu não estava conseguindo porque a função precisa do handle hBrush, que é retornado pela função CreateSolidBrush(). Descobri isso por acaso. Valeu sua dica. Olha, se você descobrir porque quero desenhar retângulos na tela, te pago meia caixa de "brejas" quando a gente se encontrar. Se é que você aprecia...

Um abraço.

JNildo

[vagner]

citação:

Mauricio, obrigado pela dica, mas a solução para meu caso era mesmo FillRect().

Caro Vagner, eu tinha dado uma olhada na função FillRect(). Pela nome, só podia ser ela, só que fiz umas tentativas sem sucesso. Como você pediu para dar uma olhada nela, voltei a olhá-la e acabei encontrando a solução. Eu não estava conseguindo porque a função precisa do handle hBrush, que é retornado pela função CreateSolidBrush(). Descobri isso por acaso. Valeu sua dica. Olha, se você descobrir porque quero desenhar retângulos na tela, te pago meia caixa de "brejas" quando a gente se encontrar. Se é que você aprecia...

Um abraço.

JNildo

---

id=quote>id=quote>

Olá JNildo,

Bom existem mil maneiras de usar os retângulos, (hehehe, parece até comercial de aveia (hehehe)), eu uso para montar os degrades que tanto gosto :þ), agora quanto as brejas, meia caixa só ????, não dá nem para começar a pensar (heheheh)

Abraços

Vagner Wirts

São Paulo-Brasil