Cómo borrar y cambiar el color de una linea

[CarlosAlberto]

Estimados amigos del club: ¿Cómo debo hacer para cambiar el grosor y el color de una linea construida con las funciones "moveto" y "lineto" en un formulario? y ¿cómo hacer para borrar las lineas construídas?.
Gracias
Carlos Alberto

[ecfisa]

Empezado por CarlosAlberto

Estimados amigos del club: ¿Cómo debo hacer para cambiar el grosor y el color de una linea construida con las funciones "moveto" y "lineto" en un formulario? y ¿cómo hacer para borrar las lineas construídas?.

Hola CarlosAlberto.

Mediante la propiedad Pen de TCanvas.

Como ejemplo te pongo un procedimiento que se encarga de dibujar la línea:

Código Delphi [-]
procedure DrawLine(aCanvas: TCanvas; const X1, Y1, X2, Y2, Wdt: Integer; const aColor: TColor);
begin
  aCanvas.Pen.Width := Wdt;
  aCanvas.Pen.Color := aColor;
  aCanvas.MoveTo(X1,Y1);
  aCanvas.LineTo(X2,Y2);
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawLine(Canvas, 0, 0, 100, 100, 25, clRed);
  if MessageBox(Handle,'¿ Borra la línea ?','',MB_YESNO+MB_ICONQUESTION)=ID_YES then
    DrawLine(Canvas, 0, 0, 100, 100, 25, Color);
end;

Como verás, uso el mismo procedimiento para borrarla escribiendo encima con el color del form.

Saludos.

[CarlosAlberto]

Muchas gracias moderador.
Saludos.
Carlos Alberto