como hacer un graficador de lineas

[ecfisa]

Hola rubenzzz, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
implementation 
var
  Dibujando : Boolean;
  Origen,Nuevo: TPoint;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := clWhite;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Dibujando then
  begin
    Canvas.Pen.Mode := pmXor;
    Canvas.PenPos   := Point(Origen.X, Origen.Y);
    Canvas.LineTo(Nuevo.X, Nuevo.Y);

    Canvas.PenPos   := Point(Origen.X, Origen.Y);
    Canvas.LineTo(X, Y);
  end;
  Nuevo := Point(X, Y);
  Canvas.Pen.Mode := pmCopy;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    Dibujando := True;
    Canvas.Pen.Color := Color;
    Canvas.MoveTo(X, Y);
    Origen := Point(X,Y);
    Nuevo  := Origen;
  end;

  if Button = mbRight then
    Dibujando := False;
end;

Saludos