Changeset 619
- Timestamp:
- Sep 15, 2024, 2:22:57 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Term.pas
r617 r619 5553 5553 var 5554 5554 dx, dy, ScrollSpeed: Integer; 5555 MousePos: TPoint; 5556 const 5557 ScrollWidth = 5; 5555 5558 begin 5556 5559 if Idle and (Me >= 0) and (GameMode <> cMovie) then … … 5576 5579 dx := 0; 5577 5580 dy := 0; 5578 if Mouse.CursorPos.Y < Screen.Height - PanelHeight then 5579 if Mouse.CursorPos.X = 0 then 5581 MousePos := ScreenToClient(Mouse.CursorPos); 5582 if MousePos.Y < Height - PanelHeight then 5583 if MousePos.X <= ScrollWidth then 5580 5584 dx := -ScrollSpeed // scroll left 5581 else if Mouse .CursorPos.X >= Screen.Width - 1 then5585 else if MousePos.X >= Width - ScrollWidth - 1 then 5582 5586 dx := ScrollSpeed; // scroll right 5583 if Mouse .CursorPos.Y = 0then5587 if MousePos.Y <= ScrollWidth then 5584 5588 dy := -ScrollSpeed // scroll up 5585 else if (Mouse .CursorPos.Y >= Screen.Height- 1) and5586 (Mouse .CursorPos.X >= TerrainBtn.Left + TerrainBtn.Width) and5587 (Mouse .CursorPos.X < xRightPanel + 10 - 8) then5589 else if (MousePos.Y >= Height - ScrollWidth - 1) and 5590 (MousePos.X >= TerrainBtn.Left + TerrainBtn.Width) and 5591 (MousePos.X < xRightPanel + 10 - 8) then 5588 5592 dy := ScrollSpeed; // scroll down 5589 5593 if (dx <> 0) or (dy <> 0) then
Note:
See TracChangeset
for help on using the changeset viewer.