como hacer un graficador de lineas

[rubenzzz]

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!!!!!!!!:(

[ecfisa]

Hola rubenzzz, bienvenido a Club Delphi :)

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).


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

[cloayza]

hola tengo un problemon...(

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

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


...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!!!!!!!!:

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

Saludos cordiales