Autor Tema: Color En Figuras Creadas Con Canvas (Leído 2805 veces)

dave.jason · « **en:** Viernes 9 de Noviembre de 2007, 21:34 »

Hola, tengo que hacer un proyecto con una interfaz gráfica en la que aparezca un trapecio. Puedo dibujarlo con Canvas pero, ¿como puedo darle color? Porque no se trata de un panel sobre el formulario donde se pueda cambiar sus propiedades.

loki160685

intenta con Canvas->Brush->Color=clTeal;

dave.jason

Pues no lo entiendo pero el programa pasa de esa línea de código. Lo demás lo ejecuta pero eso se lo salta.

Quiza no lo estoy aplicando bien. ¿Puedes poner un ejemplo?

dave.jason

Ya lo entiendo. No estaba aplicando el código donde debía. Ahora ya funciona.

Una cosa más: ahora cuando ejecuto el programa, el trapecio se dibuja y toma color, pero ¿se puede programar un evento OnClick al pulsar sobre el trapecio?

loki160685

si tu trapecio lo dibujas en el Form si, para ello debes tener los limites en donde se dibuja el trapecio, y al momento de hacer un click capturar las coordenadas del click, verificar si esta dentro de ese limite y asi podrias mostrar un mensaje o hacer otra cosa. espero haber sido de ayuda

dave.jason

Eso me interesa. Pero no se hacerlo. Si por ejemplo mi código fuese:

TPoint Pt[4];

Pt[0] = Point(10, 10);
Pt[1] = Point(100, 10);
Pt[2] = Point(100, 100);
Pt[3] = Point(10, 100);
Form1->Canvas->Polygon(Pt, 4);

¿Como hago lo que tú dices? ¿Puedes escribir el código que necesito?

Gracias de antemano.

loki160685

ok espero te sirva de algo

Código: Text

 
//-------------------------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    x1=X;y1=Y; //globales para capturar las coordenadas del click
}
//-------------------------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
 
    if(x1&#62;9&&x1&#60;99)
       if(y1&#62;9&&y1&#60;99)
       {
             Form1-&#62;Canvas-&#62;Brush-&#62;Color=clTeal;
             Form1-&#62;Canvas-&#62;Polygon(Pt, 4);                                //algo asi
       }
           
}
 
 

y un consejo investiga, solo asi podas aprender.
Espero haber sido de ayuda

dave.jason

Gracias! Me ha ayudado mucho. Ya funciona.

SoloCodigo

Autor Tema: Color En Figuras Creadas Con Canvas (Leído 2805 veces)

dave.jason

Color En Figuras Creadas Con Canvas

loki160685

Re: Color En Figuras Creadas Con Canvas

dave.jason

Re: Color En Figuras Creadas Con Canvas

dave.jason

Re: Color En Figuras Creadas Con Canvas

loki160685

Re: Color En Figuras Creadas Con Canvas

dave.jason

Re: Color En Figuras Creadas Con Canvas

loki160685

Re: Color En Figuras Creadas Con Canvas

dave.jason

Re: Color En Figuras Creadas Con Canvas