¿Cómo dibujar líneas con Delphi?

[Neftali [Germán.Estévez]]

Empezado por isradoblem

...en el colegio curso la materia de graficacion y el profesor nos puso un proyecto de hacer una imagen (esta adjunta) la cual la debemos de hacer con Canvas.

Intenta explicar esa parte un poco mejor...
Sobre un canvas puedes puntar líneas, puntos, circulos, rectángulos, elipses, rellenar zonas con color,..
Para ello basta con que en la ayuda mires los métodos de TCanvas.

No se si es eso a lo que te refieres y se me antoja algo costoso dibujar la imagen que presentas, pues no es "trivial".

Ora opción (parece más lógica) es dibujarla desde un fichero de disco, pero no utilizando componentes, sino los métodos del Canvas.

Para empezar con una prueba, puedes hacer lo siguiente:

(1) Crea una aplicación nueva y pon en el botón en el form.
(2) en el OnClick del botón pon lo siguiente...

Como ves, para acceder al Canvas del formulario basta con hacer: Self.Canvas.

Código Delphi [-]
  // Cambia el color de linea
  Self.Canvas.Pen.Color := clRed;
  // Cambia el ancho de línea
  Self.Canvas.Pen.Width := 3;
  // Dibuja lineas
  Self.Canvas.LineTo(0,0);
  Self.Canvas.LineTo(100,100);
  // Dibuja rectangulo
  Self.Canvas.Rectangle(10,10,200,200);

Si se trata de la segunda opción comentada, revisa en la ayuda el método CopyRect de TCanvas (incluyendo el ejemplo).