TListView OnMouseUp called twice
Original Reporter info from Mantis: Michl @michl1
-
Reporter name: Michl
Original Reporter info from Mantis: Michl @michl1
- Reporter name: Michl
Description:
In TWin32WSCustomListView is a workaround, what isn't needed for Win7. So it has to be removed completly. If it is needed for other Windows versions (what I don't know) there should be a check.
Steps to reproduce:
procedure TForm1.ListView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
WriteLn('MouseDown ListView');
end;
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
WriteLn('MouseUp ListView');
end;
Or test the added minimal example.
Additional information:
There is a discussion on German Lazarusforum: http://www.lazarusforum.de/viewtopic.php?f=19&t=8342
I've added two patches:
patch1 -> test Win7
patch2 -> remove workaround