Plano cartesiano

[RSC9421]

gracias, me sirvio muchisimo y pude entender el codigo el prog ya esta funcionando, pero tengo otro problema, como hago para borrar la linea que acabo de crear cuando se crea otra linea
gracias por la respuesta, intentare solucionarlo

[ecfisa]

Empezado por RSC9421

...
como hago para borrar la linea que acabo de crear cuando se crea otra linea
...

Hola RSC9421.

Revisa en este hilo: Cómo borrar y cambiar el color de una linea

Saludos

[RSC9421]

gracias, tengo una duda(perdon por ser tan pesado ^^ ) hay alguna forma de crear una sola linea y manejar solamente esa linea?seria mas facil que estar dibujando y borrando la linea todo el tiempo, seria como hacer un reloj analogico, el problema es que el reloj sabe cuando cuando dibujar y cuando borrar(definido por un tiempo), en el caso que estoy haciendo es dibujar y borrar la linea cuando presiono una tecla,
el procedimiento para un reloj seria
dibujar la linea negra
esperar
dibujar la linea transparente
el tema es que no puedo definir el (esperar) cuando este presionando una tecla, por eso, si podria crear una sola linea1 y manejar a gusto esa linea1 seria lo ideal
saludos

[ecfisa]

Hola RSC9421.

No veo la dificultad en borrar y dibujar una linea ante la presión de una tecla como por ejemplo hago en este código:

Código Delphi [-]
...
implementation

const
  INCR = PI / 15;

var
  Center: TPoint;
  Posic : TPoint;
  Radio : Integer;
  Cont  : Single;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Style:= psSolid;
  Canvas.Pen.Color:= clBlack;
  Center:= Point(Width div 2, Height div 2);
  Posic:= Point(0, 0);
  Radio:= 100;
  Cont:= PI;
  KeyPreview:= True;
end;

procedure DrawLine(CV: TCanvas; const Ini,Fin: TPoint; const aColor: TColor);
begin
  CV.Pen.Color:= aColor;
  CV.MoveTo(Ini.X,Ini.Y);
  CV.LineTo(Fin.X, Fin.Y);
  CV.Ellipse(Fin.X-5,Fin.Y-5,Fin.X+5,Fin.Y+5);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  DrawLine(Canvas, Center, Posic, clBtnFace);
  Posic.X:= Center.X + Trunc(Radio * sin(Cont));
  Posic.Y:= Center.Y + Trunc(Radio * cos(Cont));
  DrawLine(Canvas, Center, Posic, clBlack);
  if Key = VK_RIGHT then
    Cont:= Cont - INCR
  else if Key = VK_LEFT then
    Cont:= Cont + INCR;
end;
...

Saludos

[RSC9421]

gracias, ya lo pude solucionar