REGRESSION: Hint isn't updating anymore after updating Lazarus from 0.9.26.2 to 0.9.28.2
Original Reporter info from Mantis: tjones
-
Reporter name:
Original Reporter info from Mantis: tjones
- Reporter name:
Description:
After updating from Lazarus 0.9.26.2 (FPC 2.2.2) to 0.9.28.2 (FPC 2.2.4) the hint isn't updating anymore when I'm hovering the mouse over a PaintBox inside an "OnMouseMove" event. It only updates when I "enter" the PaintBox control with the mouse cursor, leaving it, and entering it again. I've also tested it with the latest snapshot including FPC 2.4.3 (Lazarus 0.9.29 SVN 26845) with the same result. Compiling it AGAIN with FPC 2.2.2 under Lazarus 0.9.26.2 it works fine. I've been trying many things to make it work again, with no luck. It's a key element of my application, therefore I need this working.
Example code:
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
PaintBox1.Hint := IntToStr(X) + '-' + IntToStr(Y);
// == THINGS I TRIED THAT DIDN'T WORK FOR ME ==
// PaintBox1.Invalidate;
// PaintBox1.Changed;
// PaintBox1.Update;
// PaintBox1.Repaint;
// PaintBox1.Refresh;
// Screen.UpdateScreen;
// Application.ProcessMessages;
// Application.CancelHint;
// Application.HintPause := 10;
// Application.HintShortPause := 1000;
// Application.Hint := IntToStr(X) + '-' + IntToStr(Y);
// Application.ShowHint := True;
end;
Steps to reproduce:
-create new GUI application
-add a PaintBox
-add the code given above
-compile/build project
-start
-move mouse pointer inside the paintbox
=> will NOT update hint anymore (showing X/Y coordinates)
Mantis conversion info:
- Mantis ID: 17092
- OS: Windows 2000 Prof SP4
- OS Build: Windows 2000 SP4
- Build: Lazarus 0.9.29 SVN 26845
- Platform: i386
- Fixed in version: 0.9.29 (SVN)
- Fixed in revision: 27014 (#66c72d1b)