¿Cómo dibujar líneas con Delphi?

[isradoblem]

Buen dia

como pueden ver soy nuevo en delphi, 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.

la verdad no tengo ni idea de como empezar ni de que hacer asi que llegue aqui con los expertos que me puedan ayudar.

mi conociemiento en delphi en una escala de 1 a 10 el mio es de 0.5.


Saludos

[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).

[ecfisa]

Hola isradoblem.

Opino igual que Neftali, reproducir esa imágen dibujando con TCanvas es una pesada tarea...

Como para ampliar un poco, recordé estos artículos que tratan el tema de forma sencilla:

• Dibujando con la clase TCanvas(I)
• Dibujando con la clase TCanvas(II)
• Dibujando con la clase TCanvas(yIII)

Saludos