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