[Three-Quater Solved] Not exactly what I want but ...
Thanks Dalceon!
This is not exactly what I am looking for but I like it!
I have made some Adjustments, because .Bold didnt worked for me and *OhHowLuckyIam* there is no flickering, so I cleared out LockWindowUpdate.
Since I have a 3 Dimension TreeView:
+Root
||
|+Child
||
|||+Babys
|
+Root
||
|+Child
|
+Root
||
|+Child
||
|||+Babys
|
+Root
and using Common Controls 5.0 SP2, this workes for me:
Code:
Private Sub tvwModule_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nodX As Node
Set nodX = tvwModule.HitTest(X, Y)
If Not nodX Is Nothing Then
tvwModule.MousePointer = ccArrow
If Not nodX.Parent Is Nothing Then
tvwModule.MousePointer = ccArrow
If Not nodX.Child Is Nothing Then
tvwModule.MousePointer = ccArrow
Else
tvwModule.MousePointer = 99
tvwModule.MouseIcon = LoadPicture(App.Path & _
"\" & "Ressourcen\handkleinweiss.cur")
End If
End If
nodX.Selected = True
Else
tvwModule.MousePointer = ccArrow
End If
Set nodX = Nothing
End Sub
Now each Node is Selected when the Mousepointer moves over them, but only over BabyNodes the MouseIcon is a WhiteHand.
If you wanna see how it looks like now
While only behind BabyNodes there is Code to be performed, this is a good Way to improve usability.
It would be nice to show the BabyNodes Underlined, mabe there is a Way to do it simply? I do not wanna use 3.Party Components or a Ton of API Calls.
If not, no Matter what. : )
Thanks in Advanced,
MyVar.