How to read control hint when created in Koda

[Saad]

I used Koda 1.7.2.0 to create a script GUI. I set the control Hint. While the script is running, I need to read some or all controls "Hint ". I could not find a function to accomplish that.

Here is some of the code created by Koda:

...
...
$chkOptions7 = GUICtrlCreateCheckbox("EA Field.", 88, 312, 425, 17)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "/EA")
...
...

The Hint value of chkOptions7 is "/EA".

How can I read the Hint value of $chkOptions7 field?

 

[argumentum]

3 hours ago, Saad said:

How can I read the Hint value of ....

Save the hint in a variable yourself, to keep track of what you set it as.

...
$chkOptions7 = GUICtrlCreateCheckbox("EA Field.", 88, 312, 425, 17)
GUICtrlSetFont($chkOptions7, 10, 400, 0, "MS Sans Serif")
$chkOptions7_hint = "/EA"
GUICtrlSetTip($chkOptions7, $chkOptions7_hint)
...

GuiCtrlGetTip() does not exist  

Edited December 29, 2017 by argumentum

[Danyfirex]

Hello. If you set the value on the fly you could store in a variable. It's a known value. 

just for fun

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <AutoItConstants.au3>
Global $g_oToolTipDic = ObjCreate("Scripting.Dictionary") ;this for store all the Tooltips




Example()

Func Example()
    GUICreate("My GUI control tip") ; will create a dialog box that when displayed is centered

    Local $idLabel1 = GUICtrlCreateLabel("my label 1 - click me to get the tip text", 10, 20)
    _GUICtrlSetTip(-1, "tip of my label 1")

    Local $idLabel2 = GUICtrlCreateLabel("my label 2 - click me to get the tip text", 10, 60)
    _GUICtrlSetTip(-1, "tip of my label 2")

    Local $idbtn= GUICtrlCreateButton("Change Tips of label 1 and label 2",100,200,200,30)

    GUISetState(@SW_SHOW)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

            Case $idLabel1
                MsgBox(0, "", _GUICtrlGetTip($idLabel1))
            Case $idLabel2
                MsgBox(0, "", _GUICtrlGetTip($idLabel2))

            Case $idbtn
                _GUICtrlSetTip($idLabel1, "tip of my label 1 is changed")
                _GUICtrlSetTip($idLabel2, "tip of my label 2 is changed")
                MsgBox(0,"","labels' Tips changed",2)


        EndSwitch
    WEnd
EndFunc   ;==>Example

Func _GUICtrlGetTip($iControlID)
    Local $sTipText = ""
    If $g_oToolTipDic.Exists(String(GUICtrlGetHandle($iControlID))) Then
        $sTipText = $g_oToolTipDic.Item(String(GUICtrlGetHandle($iControlID)))
    EndIf
    Return $sTipText
EndFunc   ;==>_GUICtrlGetTip


Func _GUICtrlSetTip($iControlID, $sTipText, $sTipTitle = "", $iIcon = $TIP_NOICON, $iOptions = 0)
    If Not $g_oToolTipDic.Exists(String(GUICtrlGetHandle($iControlID))) Then
        $g_oToolTipDic.Add(String(GUICtrlGetHandle($iControlID)), $sTipText)
    Else
        $g_oToolTipDic.Item(String(GUICtrlGetHandle($iControlID))) = $sTipText
    EndIf
    GUICtrlSetTip($iControlID, $sTipText, $sTipTitle, $iIcon, $iOptions)
EndFunc   ;==>_GUICtrlSetTip

Saludos

 

[Saad]

Thank you all.

Yes, unfortunately,  GuiCtrlGetTip() does not exist  but GUICtrlSetTip exist.

I was hoping for a more straight simple solution that allows me to use Koda and not set the Hint/Tip through the code.

Have a nice holiday and happy new year (2018).

[BrewManNH]

7 minutes ago, Saad said:

Yes, unfortunately,  GuiCtrlGetTip() does not exist

There is _GUIToolTip_GetText though.

Also, the straight forward answer is to keep track of what you're setting the tips to, anything else is complicating things immensely. Koda is merely training wheels for you, learn to ride the bike without them, you'll be better off.

[Saad]

_GUIToolTip_GetText does not retrieve what  GUICtrlSetTip sets.

It is a matter of preference and I'm not debating the issue. I know how to set the controls in the code without Koda and keep track of what has been set.

To me, using Koda to set the GUI is easier and more "set it and forget it". 

[BrewManNH]

18 minutes ago, Saad said:

_GUIToolTip_GetText does not retrieve what  GUICtrlSetTip sets.

Sure it does.

See the modifications I did below to @Danyfirex's script from above. Hit the hotkey "t" to have it display what the currently visible tooltip is displaying.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <AutoItConstants.au3>
#include <GUITooltip.au3> ; <<<<<<<<<<<<<<<<<<<<<<<

Global $g_oToolTipDic = ObjCreate("Scripting.Dictionary") ;this for store all the Tooltips
HotKeySet("t", "_GUICtrlGetTip2") ; <<<<<<<<<<<<<<<<<<<<<<<<<<<



Example()

Func Example()
    GUICreate("My GUI control tip") ; will create a dialog box that when displayed is centered

    Local $idLabel1 = GUICtrlCreateLabel("my label 1 - click me to get the tip text", 10, 20)
    _GUICtrlSetTip(-1, "tip of my label 1")

    Local $idLabel2 = GUICtrlCreateLabel("my label 2 - click me to get the tip text", 10, 60)
    _GUICtrlSetTip(-1, "tip of my label 2")

    Local $idbtn = GUICtrlCreateButton("Change Tips of label 1 and label 2", 100, 200, 200, 30)

    GUISetState(@SW_SHOW)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

            Case $idLabel1
                MsgBox(0, "", _GUICtrlGetTip($idLabel1))
            Case $idLabel2
                MsgBox(0, "", _GUICtrlGetTip($idLabel2))

            Case $idbtn
                _GUICtrlSetTip($idLabel1, "tip of my label 1 is changed")
                _GUICtrlSetTip($idLabel2, "tip of my label 2 is changed")
                MsgBox(0, "", "labels' Tips changed", 2)
        EndSwitch
    WEnd
EndFunc   ;==>Example

Func _GUICtrlGetTip($iControlID)
    Local $sTipText = ""
    If $g_oToolTipDic.Exists(String(GUICtrlGetHandle($iControlID))) Then
        $sTipText = $g_oToolTipDic.Item(String(GUICtrlGetHandle($iControlID)))
    EndIf
    Return $sTipText
EndFunc   ;==>_GUICtrlGetTip


Func _GUICtrlSetTip($iControlID, $sTipText, $sTipTitle = "", $iIcon = $TIP_NOICON, $iOptions = 0)
    If Not $g_oToolTipDic.Exists(String(GUICtrlGetHandle($iControlID))) Then
        $g_oToolTipDic.Add(String(GUICtrlGetHandle($iControlID)), $sTipText)
    Else
        $g_oToolTipDic.Item(String(GUICtrlGetHandle($iControlID))) = $sTipText
    EndIf
    GUICtrlSetTip($iControlID, $sTipText, $sTipTitle, $iIcon, $iOptions)
EndFunc   ;==>_GUICtrlSetTip

Func _GUICtrlGetTip2() ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    Local $aTipList = WinList("[CLASS:tooltips_class32]")
    Local $aRet
    For $i = 1 To $aTipList[0][0]
        ; See which one is active
        $aRet = _GUIToolTip_GetCurrentTool($aTipList[$i][1])
        ; If one is active then display it
        If $aRet[8] <> "" Then MsgBox(0, "Visible Tip", $aRet[8])
    Next
EndFunc   ;==>_GUICtrlGetTip2

 

[Saad]

If I'm not mistaken, _GUIToolTip_GetText retrieves what _GUICtrlSetTip sets but not  GUICtrlSetTip sets.

[BrewManNH]

47 minutes ago, Saad said:

If I'm not mistaken,

You are mistaken, and you would have known that had you looked at and run the script I posted.

As you can see by danyfirex's script, the tips are being set by GUICtrlSetTip, he's just using it inside another function. They are then read with _GUIToolTip_GetText inside my addition.

 

[Saad]

Thank you.