[Lazarus] tachart on mousemove

Alexander Klenin klenin at gmail.com
Tue Apr 27 15:51:10 CEST 2010


On Tue, Apr 27, 2010 at 23:41, Andrea Mauri <andrea.mauri.75 at gmail.com> wrote:
> Anyway simply put a tchart on a form and two label (label1 and label2) then
> put this code in the mousemove event:
> procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
>  Y: Integer);
> begin
>  Label1.Caption:= 'X: ' + IntToStr(X);
>  Label2.Caption:= 'Y: ' + IntToStr(Y);
> end;
> Nothing happen, the labels are not modified. They are modified only if I
> hold shift.

Indeed. This is related to the new toolset code.
Please try r25005.

-- 
Alexander S. Klenin




More information about the Lazarus mailing list