Saner mouse support

keithbowes · Jun 9, 2016 · 1808f4a · 1808f4a
1 parent 6f388c4
commit 1808f4a
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/ui/tui/tui.pas b/src/ui/tui/tui.pas
@@ -292,17 +292,19 @@ constructor TTui.Create;
             end
             else if mouse_event.bstate and BUTTON_SCROLL_DOWN = BUTTON_SCROLL_DOWN then
             begin
-              FCurrentItem := FViewPort.FirstItem + FViewPort.PortHeight;
-              if FItems^.Count - 1 > FCurrentItem then
+              if FItems^.Count > FCurrentItem then
               begin
                 Inc(FCurrentItem);
+                ScrollTo(FCurrentItem);
               end;
-              ScrollTo(FCurrentItem);
             end
             else if mouse_event.bstate and BUTTON_SCROLL_UP = BUTTON_SCROLL_UP then
             begin
-              ScrollUp;
-              Redraw;
+              if FCurrentItem > 1 then
+              begin
+                Dec(FCurrentItem);
+                ScrollTo(FCurrentItem);
+              end
             end
           end;
         end;