AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Windows: fix animator not disappearing, add topmost

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-03 09:57:45 +01:00
parent 3c237a474b
commit 1d315a15b8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Windows/Animator.vb
View File

@ -36,11 +36,11 @@ Public Class Animator
_PopupColor = Color.FromArgb(255, 214, 49) _PopupColor = Color.FromArgb(255, 214, 49)
End Sub End Sub
Public Sub Highlight(Position As Point) Public Async Sub Highlight(Position As Point)
Dim oForm = GetPopup(Position, PopupSize) Dim oForm = GetPopup(Position, PopupSize)
oForm.Show() oForm.Show()
FadeIn(oForm, _PopupOpacity, _AnimationSpeed / 2) FadeIn(oForm, _PopupOpacity, _AnimationSpeed / 2)
Task.Delay(_AnimationInterval) Await Task.Delay(_AnimationInterval)
FadeOut(oForm, _AnimationSpeed * 2) FadeOut(oForm, _AnimationSpeed * 2)
End Sub End Sub
@ -57,7 +57,8 @@ Public Class Animator
.MinimumSize = PopupSize, .MinimumSize = PopupSize,
.Opacity = 0, .Opacity = 0,
.ShowInTaskbar = False, .ShowInTaskbar = False,
.BackColor = _PopupColor .BackColor = _PopupColor,
.TopMost = True
} }
End Function End Function