mouse unit is bad
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
uses mouse;
Var Event: TMouseEvent;
begin
initmouse;
while true do
If PollMouseEvent(Event) then
begin
GetMouseEvent(Event);
if ( Event.Action=MouseActionUp ) then
begin
writeln(getMouseX);
writeln(getMouseY);
case Event.Buttons of
MouseLeftbutton: writeln('LU');
MouseMiddlebutton: writeln('MU');
MouseRightbutton: writeln('RU');
else writeln('???');
end;
end;
end;
end.
this program under target go32v2 crash with runtime error 103
this program under target Win32 return '???', and 'LU' when I press 2 botton UP
FPC 1.9.6 2004/12/3x
Additional information:
Reporter: Salvaotre Licciardi
EMail: turylicciardi at tiscali dot it
Mantis conversion info:
- Mantis ID: 5534
- OS: All
- Version: 1.9.6
- Fixed in version: 1.9.7