punto que dibujar un espiral

[pattyka]

y si me interesa cada seicirculo de un color diferente como le hago?? ...

[[seoane]]

Esto ya parece el "mas difícil todavía". Pero nada, si quieres un dibujar una espiral de colores, vamos a ver que se puede hacer.

Código Delphi [-]
procedure Espiral(Canvas: TCanvas; X,Y,V,Ancho: Integer);
var
  i,j,k: integer;
  z: Real;
begin
  Randomize;
  Ancho:= Ancho * 16;
  z:= (2*V*pi)/Ancho;
  Canvas.MoveTo(x,y);
  k:= 0;
  for i:= 1 to V do
  begin
    // Usamos un color aleatorio
    Canvas.Pen.Color:= RGB(Random($FF),Random($FF),Random($FF));
    for j:= 1 to Ancho div V do
    begin
      Canvas.LineTo(x + (Round(k*cos(z*k))) shr 4,y + (Round(k*sin(z*k)) shr 4));
      inc(k);
    end;
  end;
end;

Un ejemplo de como usarla, fíjate que los parámetros son diferentes a las funciones anteriores:

Código Delphi [-]
  // Esto dibuja una espiral de 200 de radio, donde cada vuelta es de un color diferente
  Espiral(Canvas,200,200,10,200);

Si quieres cambiar de color mas de una vez por vuelta entonces modificariamos un poco mas el codigo de la funcion:

Código Delphi [-]
procedure Espiral(Canvas: TCanvas; X,Y,V,Ancho: Integer);
var
  i,j,k: integer;
  z: Real;
begin
  Randomize;
  Ancho:= Ancho * 16;
  z:= (2*V*pi)/Ancho;
  // Con esta modificacion, cambiamos de color 4 veces por vuelta
  V:= V * 4;
  Canvas.MoveTo(x,y);
  k:= 0;
  for i:= 1 to V do
  begin
    Canvas.Pen.Color:= RGB(Random($FF),Random($FF),Random($FF));
    for j:= 1 to Ancho div V do
    begin
      Canvas.LineTo(x + (Round(k*cos(z*k))) shr 4,y + (Round(k*sin(z*k)) shr 4));
      inc(k);
    end;
  end;
end;

¿que sera lo siguiente?

[pattyka]

Mil gracias ... parece que por lo pronto es todo jeje

[pattyka]

sorry... peroya se que es lo siguiente... es dibujar la espiral en el paintbox con los eventos del mouse (mouseup y mousedown)... me podrian explicar como hacer eso???

[[seoane]]

Aquí te dejo un ejemplo, pulsa y arrastra para crear una espiral y cuando te guste como queda suelta el botón y se coloreara.

[pattyka]

mira si mas o menos :S:S le entiendo pero no se me marca un error talvez este equivoca ... procedure Tform1.Seleccionar(R: TRect); el error k me dice es: Undeclared identifier: 'Seleccionar'... y no se k onda:S:s

[[seoane]]

El error que tu mencionas es debido a que estas utilizando el codigo en un proyecto diferente al que yo te pase, tu llamaste al formulario form1 y sin embargo no cambiaste el nombre del procedimiento TfrmMain.Seleccionar(R: TRect); a Tform1.Seleccionar(R: TRect);

[[seoane]]

Empezado por pattyka

mira si mas o menos :S:S le entiendo pero no se me marca un error talvez este equivoca ... procedure Tform1.Seleccionar(R: TRect); el error k me dice es: Undeclared identifier: 'Seleccionar'... y no se k onda:S:s

Antes dijiste que el error era seleccionar no seleccion De todas formas Seleccion es una variable que yo la declaro dentro de la seccion private del formulario:

Código Delphi [-]
 private
    { Private declarations }
    Seleccion: TRect;
    procedure Seleccionar(R: TRect);
  public

De todas formas el problema es que o no estas copiando todo, o no lo estas haciendo bien. Por que no procuras entender lo que hago en el ejemplo que te mando, que si funciona, antes de incluirlo en otro proyecto.