FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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); begin with Image.Canvas do begin Pen.Mode := AMode; case DrawingTool of dtLine: begin Image.Canvas.MoveTo(TopLeft.X, TopLeft.Y); Image.Canvas.LineTo(BottomRight.X, BottomRight.Y); end; dtRectangle: Image.Canvas.Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X,BottomRight.Y); end; end; end;
__________________
|
#2
|
||||
|
||||
No tengo mucha experiencia creando componentes, pero hace poco estuve trasteando un poco con componentes, turbodelphi ... 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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Dibujar Cuadros con Canvas | Drake | OOP | 6 | 24-07-2006 11:53:28 |
Dibujar en canvas | razadi | Varios | 4 | 23-08-2005 00:55:20 |
Rectángulo para recortar imagen | JAV | Gráficos | 3 | 05-07-2005 10:08:23 |
Rectangulo con decimales | m@r | Gráficos | 5 | 04-09-2004 15:32:01 |
Algun ProgressBar en forma de cuerno o diferente a rectangulo? | nefy | Varios | 10 | 10-06-2004 16:31:23 |
|