Ir al contenido


Foto

Dibujar Linea animada con TChart


  • Por favor identifícate para responder
3 respuestas en este tema

#1 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 26 octubre 2010 - 09:07

Es decir, nose si pueda explicar correctamente. Bueno tengo la siguiente imagen o esta es la grafica unos puntos usando el TChart.

Imagen Enviada

Lo que deseo es hacer que cuando pase el mouse me grafique una linea en el punto donde bajo el bajo y empiezo a arrastrar hasta donde subo o suelto el mouse.

Para obtener exactamente el punto en el Chart lo que hago es lo siguiente:



delphi
  1. procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
  2.   Shift: TShiftState; X, Y: Integer);
  3. var
  4.   xx: integer;
  5. begin
  6.   xx := Round(Chart1.BottomAxis.CalcPosPoint(X));
  7.   Label2.Caption := IntToStr(xx);
  8. end;





delphi
  1. procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  2.   Shift: TShiftState; X, Y: Integer);
  3. var
  4.   xx: integer;
  5. begin
  6.   xx := Round(Chart1.BottomAxis.CalcPosPoint(X));
  7.   Label1.Caption := IntToStr(xx);
  8. end;



Como me interesa solamente inicial la coordenada X solo pido ese valor pero en un valor entero.

Ahora mi problema es dibujar la lineas verdes q muestro en la imagen no la veo o no capto muy bien q digamos.. como podria hacer eso?
  • 0

#2 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 26 octubre 2010 - 11:00

ya logre realizar algo similar pero diria yo forzando las cosas, es decir, agregue dos series mas las cuales una serie me dibujara el inicio y la siguiente el final...

Imagen Enviada

Lo que quiero hacer ahora es obtener los puntos que estan en esa area... mmm alguna idea bueno imagino q luego se me prendera el coco pero si tiene algun tipo de ayuda me avisan.
  • 0

#3 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 26 octubre 2010 - 11:44

Haber mas sugerencias lo que estoy realizando...
Bueno como tengo un arreglo de enteros en el cual estan los puntos graficados... y yo tengo una cota o mm como podria explicarlo es decir, tengo un intervalo...

Puntos: array[1..500] of integer;

Luego al marcar con un click y arrastrando el mouse obtengo el intervalo que seria digamos

XMax, XMin: integer;

Lo cual, quiero obtener los puntos del arreglo que esten entre XMax y XMin en otro arreglo el cual sera un arreglo dinamico no?

Bueno seguire pensando mis ideas y exponiendolas..


  • 0

#4 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 26 octubre 2010 - 09:35

Bueno haber e terminado lo que deseaba hacer y gracias con sus sugerencia haber si pueden darle una miradita y decirme o comentarme que podria faltar o en q podria mejorar.

Gracias.

En si lo que se trata es poder graficar los datos obtenidos de la medicion de los descendientes del Radon (Rn-222) que son Po218 y Po214 los cuales son los picos mas grandes en si es Cuentas x Canales obtenidos mediante un MCA, ahora lo que era hacer o desarrollar era hacer la grafica luego que se pueda hacer un zoom y luego ademas q pueda seleccionar una region deseada a saber la integral o el area en dicha region seleccionada.

Solo me faltaria aumentar lo q es ya la fisica del asunto pero desearia que le den una mirada y me digan sus opiniones gracias.
  • 0




IP.Board spam blocked by CleanTalk.