Wheel scrolling

This commit is contained in:
Krzosa Karol
2026-01-01 13:48:21 +01:00
parent c4b4460cbd
commit 6cf9731959
3 changed files with 22 additions and 1 deletions

View File

@@ -58,6 +58,8 @@ void SetMouseCursor(SDL_SystemCursor id) {
JS_SetMouseCursor("default");
} else if (id == SDL_SYSTEM_CURSOR_TEXT) {
JS_SetMouseCursor("text");
} else if (id == SDL_SYSTEM_CURSOR_MOVE) {
JS_SetMouseCursor("all-scroll");
} else {
InvalidCodepath();
}
@@ -104,6 +106,11 @@ void SetMouseCursor(Event event) {
return;
}
if (MouseMiddleAnchor.x != 0 && MouseMiddleAnchor.y != 0) {
SetMouseCursor(SDL_SYSTEM_CURSOR_MOVE);
return;
}
For(order) {
if (!it->visible) continue;
bool mouse_in_total = AreOverlapping(mouse, it->total_rect);
@@ -315,6 +322,20 @@ void OnCommand(Event event) {
MouseLoadWord(event);
}
{
Vec2I mouse = MouseVec2I();
if (Mouse(MIDDLE)) {
MouseMiddleAnchor = mouse;
} else if (Mouse(MIDDLE_UP)) {
MouseMiddleAnchor = {0, 0};
}
if (MouseMiddleAnchor.x != 0) {
BSet active = GetBSet(ActiveWindowID);
active.view->scroll += mouse - MouseMiddleAnchor;
}
}
if (Ctrl() && Mouse(LEFT)) {
MouseLoadWord(event);
} else if (Mouse(LEFT)) { // Uses Alt and shift