Jump to content

MrCreatoR

MVPs
  • Posts

    3,478
  • Joined

  • Last visited

  • Days Won

    9

MrCreatoR last won the day on February 21 2021

MrCreatoR had the most liked content!

6 Followers

About MrCreatoR

  • Birthday 10/28/1982

Profile Information

  • Member Title
    Must AutoIt!
  • Location
    IL
  • WWW
    http://creator-lab.ucoz.ru
  • Interests
    I am desire for Creation!

    * Table Tennis
    * Opera
    * AutoIt

Recent Profile Visitors

4,673 profile views

MrCreatoR's Achievements

Universalist

Universalist (7/7)

166

Reputation

  1. You trying to open explorer and make it transparent? This one a little bit more complicated, you need to wait for the window with the specified path, and check for new window, something like this... _Explorer_Open(@ScriptDir, 100) Func _Explorer_Open($sPath, $iTrans, $iState = @SW_MAXIMIZE) Local $iOld_WWD, $aWinList_Old, $aWinList_New $iOld_WWD = Opt('WinWaitDelay', 0) $aWinList_Old = WinList('[CLASS:CabinetWClass]') ShellExecute('EXPLORER.EXE', $sPath, '', '', $iState) WinWait('[CLASS:CabinetWClass;REGEXPTITLE:.*?' & StringRegExpReplace($sPath, '^.*\\', '') & ']') $aWinList_New = WinList('[CLASS:CabinetWClass]') For $i = 1 To UBound($aWinList_New) - 1 For $j = 1 To UBound($aWinList_Old) - 1 If $aWinList_New[$i][1] = $aWinList_Old[$j][1] Then ContinueLoop 2 EndIf Next WinSetTrans($aWinList_New[$i][0], '', $iTrans) ExitLoop Next Opt('WinWaitDelay', $iOld_WWD) EndFunc
  2. Sure... _FileOpenDialog('Title', @ScriptDir, 'All (*.*)', 0, '', 0, 200) Func _FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts = 0, $sDefName = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts, $sDefName, $hWnd) EndFunc
  3. Lazy method: _FileSelectFolder('Title', '', 0, @ScriptDir, 0, 200) Func _FileSelectFolder($sTitle, $sRoot, $iFlag = 0, $sInitDir = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileSelectFolder($sTitle, $sRoot, $iFlag, $sInitDir, $hWnd) EndFunc
  4. Oh i see now, so in the Beta the $SS_CENTERIMAGE style is forced. I only pointed out that this can solve the issue for the user, but did not suggested it as a permanent solution. Sorry for that, i hope you will find a correct solution for the problem without braking other functionality .
  5. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate('Form1', 300, 200, -1, -1, $WS_SIZEBOX) $PIC = GUICtrlCreatePic(@AutoItExe & '\..\Examples\GUI\msoobe.jpg', 0, 0, 300, 300) GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) GUISetState() While GUIGetMsg() <> $GUI_EVENT_CLOSE WEnd Created image does not accept the resizing. Also if we use GUICtrlSetPos, it will move the image relative to it's current position. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate('Form1', 300, 200, -1, -1, $WS_SIZEBOX) $aPos1 = WinGetClientSize($Form1) $iPic = GUICtrlCreatePic(@AutoItExe & '\..\Examples\GUI\msoobe.jpg', 0, 0, $aPos1[0], $aPos1[1]) ;GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) GUISetState() While GUIGetMsg() <> $GUI_EVENT_CLOSE $aPos = WinGetClientSize($Form1) If $aPos[0] <> $aPos1[0] Or $aPos[1] <> $aPos1[1] Then GUICtrlSetPos($iPic, 0, 0, $aPos[0], $aPos[1]) $aPos1 = $aPos EndIf WEnd In 3.3.15.1 it was working fine.
  6. Now i understand, thanks for clarification. It was interesting for me to see how it takes the strings from script, i mean the logic behind detecting translatable strings and distinguish them from other strings that should not be translated.
  7. I don't understand, then what i should do to see the results of eci.exe? I thought that this tool can help in getting strings table quicker. Your readme files sais: So this is what i am trying to do. But no success, i don't get translatable strings.
  8. No. Well, i used your Extract.au3 from the archive, it runs the eci.exe only from there.
  9. Not working for me, eci.exe returns empty string. I use Win 10 Home x64.
  10. Then we do it like this: If Not $iNoRow Then __ArrayDisplay_SortItems($idListView, 0) EndIf Well, the logics says that ascending should be from up to down, so i think that the arrow as well should indicate the same.
  11. And if we add __ArrayDisplay_SortItems($idListView, 0) after __ArrayDisplay_RegisterSortCallBack($idListView, 2, True, "__ArrayDisplay_SortCallBack") we get this arrow displayed at the beginning (right after the array is displayed). Btw, is this arrow should be in opposite direction or i am wrong?
  12. In what AutoIt version? I have it in 3.3.14.5 (final release).
  13. Old version of DDE usage... $sURL = _OpenGetURL('Firefox') ConsoleWrite($sURL & @CRLF) Func _OpenGetURL($sServer, $sURL = "", $iWin = -1, $iRetType = 0, $iWait = 10000) Local $aRet, $uIdInst = DllStructCreate("int") Local $hServer[1], $hTopic[1], $hItem[1], $hConv[1], $hData[1], $sData[1] Local $sTopic = "WWW_OpenURL", $sItem = '"' & $sURL & '",,0x' & Hex($iWin) If $sURL = '' Then $sTopic = "WWW_GetWindowInfo" $sItem = "0x" & Hex($iWin) EndIf Local $hDll = DllOpen("user32.dll") If $hDll = -1 Then Return SetError(1, 0, "") ; Error to open Dll $aRet = DllCall($hDll, "int", "DdeInitialize", "ptr", DllStructGetPtr($uIdInst), "ptr", 0, "int", 0, "int", 0) If $aRet[0] Then Return SetError(2, $aRet[0], "") ; Error Initializing DDE $hServer = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst, 1), "str", $sServer, "int", 1004) If $hServer[0] Then $hTopic = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst, 1), "str", $sTopic, "int", 1004) If $hTopic[0] Then $hItem = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst, 1), "str", $sItem, "int", 1004) If $hItem[0] Then $hConv = DllCall($hDll, "int", "DdeConnect", "int", DllStructGetData($uIdInst, 1), "int", $hServer[0], "int", $hTopic[0], "int", 0) If $hConv[0] Then $hData = DllCall($hDll, "int", "DdeClientTransaction", "ptr", 0, "int", 0, "int", $hConv[0], "int", $hItem[0], "int", 1, "int", 0x20B0, "int", $iWait, "ptr", 0) If $hData[0] Then $sData = DllCall($hDll, "str", "DdeAccessData", "int", $hData[0], "ptr", 0) EndIf EndIf EndIf EndIf $iErr = DllCall($hDll, "int", "DdeGetLastError", "int", DllStructGetData($uIdInst, 1)) If $hData[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hData[0]) If $hConv[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hConv[0]) If $hItem[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hItem[0]) If $hTopic[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hTopic[0]) If $hServer[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hServer[0]) If $iErr[0] Then Return SetError(3, $iErr[0], "") ; Other DDE Errors DllCall($hDll, "int", "DdeUninitialize", "int", DllStructGetData($uIdInst, 1)) DllClose($hDll) If StringRight($sData[0], 3) = ',""' Then $sData[0] = StringTrimRight($sData[0], 3) If $sURL = '' Then $sURL = StringRegExpReplace($sData[0], '^"([^"]*?)".*', '"\1"') If $iRetType = 1 Then Local $sRetTitle = StringReplace(StringTrimLeft($sData[0], StringLen($sURL) + 1), '\"', '"') Local $aRetArr[3] = [$sRetTitle, $sURL, StringReplace($sData[0], '\"', '"') ] Return $aRetArr EndIf Return $sURL EndFunc
  14. Which one? I have tried few, but on the fragment from the first post they are not working.
×
×
  • Create New...