Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 09/06/2022 in all areas

  1. You can do this: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiMenu.au3> #include <GuiToolTip.au3> #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Form1", 625, 442, 370, 232) Global $idFile = GUICtrlCreateMenu("&File") Global $idFileExit = GUICtrlCreateMenuItem("&Exit", $idFile) Global $idBookmarks = GUICtrlCreateMenu("&Bookmarks") Global $idBookmark1 = GUICtrlCreateMenuItem("Bookmark1", $idBookmarks) GUISetState(@SW_SHOW) GUIRegisterMsg($WM_MENUSELECT, "WM_MENUSELECT") #EndRegion ### END Koda GUI section ### Global $g_sBookmarkTT = "This is a tooltip for bookmark1" Global $g_hMain = _GUICtrlMenu_GetMenu($Form1) Global $g_hBookmark1 = _GUICtrlMenu_GetItemSubMenu($g_hMain, 1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func WM_MENUSELECT($hWnd, $iMsg, $wParam, $lParam) Local $iIndex = BitAND($wParam, 0xFFFF) Local $iFlag = BitShift($wParam, 16) If BitAND($iFlag, $MF_MOUSESELECT) Then ToolTip("") If $lParam = $g_hBookmark1 Then ToolTip($g_sBookmarkTT, Default, Default, "", 0, 1) EndIf EndIf Return $GUI_RUNDEFMSG EndFunc ;==>WM_MENUSELECT Saludos
    2 points
  2. There never will be an AutoIT 4, and by all accounts no AutoIt 4 either. I am guessing this is probably the longest stretch we have had here, without a mention of AutoIt 4 ... until now. We could tell you all the reasons for AutoIt 4 being unlikely, but where is the fun in that, much better if you just do some research ... plenty of topics out there to whet your appetite. Why do you want to Automate It 4? I'm not sure why we would want a 4th Auto IT department either.
    1 point
  3. Looks like this was [fixed] a while back. What version are you using?
    1 point
  4. Your script as written works fine for me. I'm using v3.3.16.0 If I run the script, the _overTray function is never called. If I comment out the 2nd TraySetOnEvent then the function fires as expected.
    1 point
  5. Do you mean this? GUICreate("Screen Capture Window", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP) And for your 2nd question... There seem to be loads of good techniques and examples from this question asked by YOU in 2018! 🤣
    1 point
  6. Basic example: #include <Array.au3> #include <Excel.au3> Local $iBlack = 1 Local $iWhite = 2 Local $iRed = 3 Local $iOrange = 45 Local $aTeamColors = [["USA",$iRed],["Canada",$iOrange],["Germany",$iWhite],["Norway",$iBlack]] Local $oExcel = _Excel_Open() If @error Then Exit Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Teams.xlsx") If @error Then Exit For $i = 0 To UBound($aTeamColors) - 1 $aFindAll = _Excel_RangeFind($oWorkbook, $aTeamColors[$i][0]) If @error Then ContinueLoop For $j = 0 To UBound($aFindAll) - 1 $iRow = Number(StringReplace($aFindAll[$j][2], "$B$", "")) $oWorkbook.ActiveSheet.Range("E" & $iRow).Select With $oExcel.Selection.Interior .Pattern = 1 .PatternColorIndex = -4105 .ColorIndex = $aTeamColors[$i][1] .TintAndShade = 0 .PatternTintAndShade = 0 EndWith Next Next
    1 point
  7. ..... https://quoteinvestigator.com/2018/05/14/mistakes/
    1 point
×
×
  • Create New...