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
procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var xx: integer; begin xx := Round(Chart1.BottomAxis.CalcPosPoint(X)); Label2.Caption := IntToStr(xx); end;
delphi
procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var xx: integer; begin xx := Round(Chart1.BottomAxis.CalcPosPoint(X)); Label1.Caption := IntToStr(xx); 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?