VAR/VAR.Toolbox
1
0
Fork 0
Code Issues 11 Pull Requests Packages Projects Releases Wiki Activity

ListBoxNormal and ListBoxMonospace: Remove smooth scrolling.

Browse Source
This commit is contained in:
Valeriano A.R.
2021-05-13 20:38:44 +02:00
parent fb898e4bde
commit 92e5ce837a
2 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VAR.Toolbox/Controls/ListBoxMonospace.cs
View File

@@ -14,5 +14,20 @@ namespace VAR.Toolbox.Controls
BorderStyle = BorderStyle.FixedSingle;
SelectionMode = SelectionMode.MultiExtended;
}
protected override void OnMouseWheel(MouseEventArgs e)
{
(e as HandledMouseEventArgs).Handled = true;
const int rows = 5;
if (e.Delta > 0)
{
if (TopIndex < rows) { TopIndex = 0; }
else { TopIndex -= rows; }
}
else
{
TopIndex += rows;
}
}
}
}

15
VAR.Toolbox/Controls/ListBoxNormal.cs
View File

@@ -13,5 +13,20 @@ namespace VAR.Toolbox.Controls
ForeColor = Color.Gray;
BorderStyle = BorderStyle.FixedSingle;
}
protected override void OnMouseWheel(MouseEventArgs e)
{
(e as HandledMouseEventArgs).Handled = true;
const int rows = 5;
if (e.Delta > 0)
{
if (TopIndex < rows) { TopIndex = 0; }
else { TopIndex -= rows; }
}
else
{
TopIndex += rows;
}
}
}
}