View Issue Details

IDProjectCategoryView StatusLast Update
0038553LazarusLCLpublic2021-02-27 16:51
ReporterMartin Friebe Assigned To 
PrioritynormalSeverityminorReproducibilityalways
Status newResolutionopen 
PlatformCocoaOSMac 
Product Version2.1 (SVN) 
Summary0038553: TPageControl.MouseMove: x,y in params differ from ScreentToClient(Mouse.CursorPos)
DescriptionMaybe same for other mouse events....

procedure TForm1.PageControl1MouseMoveMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  p,: TPoint;
begin
  p:=Mouse.CursorPos;
  p:=PageControl1.ScreenToClient(p);
  writeln('MSG: ',x,',',y,' // CursorPos: ',DbgS(p) );
end;

This code is called when moving mouse over the tabs/header area.

Then ClientToScreen(CursorPos) values are bigger than the param x/y.
For both values the increment is about 7

For any other control, the code above returns the same values for both ways to get the mouse.
(Note, there may be a 1 or 2 pixel diff, because the mouse moved since the event was created, and Mouse.CursorPos reflects that move. But the excent above is not within that margin.)

TagsNo tags attached.
Fixed in Revision
LazTarget
WidgetsetCocoa
Attached Files

Activities

There are no notes attached to this issue.

Issue History

Date Modified Username Field Change
2021-02-27 16:51 Martin Friebe New Issue