como hacer un graficador de lineas
 

hola tengo un problemon tengo que hacer un garficador de lineas; osea que en una pantalla en blanco le de en diferentes puntos y me marque las lineas ayuda!!!!!!!!:(

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 :)

1) Y cual es el problema...:mad:

2) Muestra algo de código para ver donde está el error...:mad:

Quiere que le hagan la pega amigo...Alguna cosita mas...v\||/

Saludos cordiales