Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2010-04

tachart on mousemove

6 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Andrea Mauri

dear all, dear alexander,
it seems that the onmousemove event is no more fired on tachart. Lazarus 0.9.29 r24858 FPC 2.4.0 i386-win32-win32/win64 regards,
andrea

Reply by email

Alexander Klenin
to Andrea Mauri
Andrea Mauri wrote
dear all, dear alexander, it seems that the onmousemove event is no more fired on tachart. Lazarus 0.9.29 r24858 FPC 2.4.0 i386-win32-win32/win64

I am travelling now, will take a look on Monday.

Alexander S. Klenin

Reply by email

Andrea Mauri
to Alexander Klenin

Il 27/04/2010 13.04, Alexander Klenin ha scritto:

I tested using dragdrop demo and it works for me. Can you post a test project?

I tested now on dragdrop demo. I set a breakpoint in Chart1MouseMove at the first line:

   Unused(Shift);

If I hold the shift key the mousemove event is raised while it is not raised if I do not hold the shift key.

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.

Andrea

Reply by email

Alexander Klenin
to Andrea Mauri
Andrea Mauri wrote 10 lines
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

Reply by email