punto que dibujar un espiral

[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);

[pattyka]

mira ya modifique eso ...procedure Tform1Main.Seleccionar(R: TRect); y me marca error dice: ';' expected but '.' found :S:S es ahi donde marca el error:S:s ahora ...:S:S:s

[[seoane]]

Perdona, antes me equivoque al escribir la respuesta, ahora ya lo corregí, pero no debiste de haberlo visto, lo correcto seria:

Tform1.Seleccionar(R: TRect);

[pattyka]

es asi como lo tenia :S:s ... y me da el error: undeclared identifier: 'seleccion' ... es el error que comente anteriormente creoi:= Max(abs(Seleccion.Right-Seleccion.Left),abs(Seleccion.Bottom-Seleccion.Top)); .... me pone el cursor en el punto despues de seleccion

[pattyka]

no... perdon no me pone el cursor ahi me da el error k escribi.. y me deje el cursor despues de la palabra seleccionar

[[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.