luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add a GUI API for checking if a control must be animated.

Browse source 
[GB.GUI.BASE]
* NEW: Add a GUI API for checking if a control must be animated.
This commit is contained in:
gambas 2022-03-26 20:25:25 +01:00
parent 4d299a1eac
commit 9f8f4a9b15
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
comp/src/gb.gui.base/.src/_Gui.class
View file

@ -381,3 +381,23 @@ Static Public Sub GetForeground(hCtrl As Control, iFg As Integer) As Integer
Return Color.Merge(iFg, Style.BackgroundOf(hCtrl))
End
Static Private Sub GetTopLevel(hCtrl As Control) As Window
Dim hWin As Window
Do
hWin = hCtrl.Window
If hWin.TopLevel Then Return hWin
hCtrl = hWin.Parent
Loop
End
Static Public Sub MustAnimate(hCtrl As Control) As Boolean
If Not Application.Animations Then Return
If GetTopLevel(hCtrl) = Application.ActiveWindow Then Return True
End