[Andorra2D] Maus kann aus dem Sichtbaren Bereich bewegt werd

[igel457]

Ich habe das implementiert, was ich oben gemeint habe - so geht es:

Delphi-Quellcode:

procedure MousePosCallback(X, Y: Integer); stdcall;
var
  deltax, deltay, w, h: Integer;
begin
  deltax := X - LastX;
  deltay := Y - LastY;
  LastX := X;
  LastY := Y;

  MouseX := MouseX + deltax;
  MouseY := MouseY + deltay;

  glfwGetWindowSize(w, h);
  if MouseX > w then
    MouseX := w - 1;
  if MouseX < 0 then
    MouseX := 0;
  if MouseY > h then
    MouseY := h - 1;
  if MouseY < 0 then
    MouseY := 0;

  //Call the mouse move event
  if Assigned(WindowInstance.Events.OnMouseMove) then
    WindowInstance.Events.OnMouseMove(WindowInstance, GetShiftState, MouseX, MouseY);
end;