dibujar rectangulo en el canvas de un control
hola foro como andan espero que bien mi pregunta es la siguiente este procedure lo encontre en los demos de delphi y lo que hace es pintar un rectangulo en el canvas de un image
Código:
procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode); |
1 Archivos Adjunto(s)
No tengo mucha experiencia creando componentes, pero hace poco estuve trasteando un poco con componentes, turbodelphi ...:rolleyes: El caso es que cree un pequeño componente que permite seleccionar un ángulo de forma gráfica, para hacerlo utilice como base el objeto TGraphicControl que entre otras cosas nos proporciona un Canvas y un método Paint que podemos utilizar para dibujar sobre el componente. Según la ayuda de delphi es el mas indicado para controles que no van a contener otros controles o recibir pulsaciones del teclado.
Aquí te lo dejo por si te sirve de algo. |
La franja horaria es GMT +2. Ahora son las 01:46:57. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi