Jump to content

Recommended Posts

Posted (edited)

Hi

I am trying to set Accelerator keys from an array.

I select the KEY and CONTROL from a SQLite table, the Array looks like that generated for the Helpfile, but I can't get the CONTROLS to resolve...

I though about Assign & Eval, but not sure if that's a step in the right direction. IsDeclared shows that the $var exists in Local Scope -1.  

 

Local $Main = GUICreate("Custom MsgBox", 225, 80)

    GUICtrlCreateLabel("Please select a button.", 10, 10)
    Local $idButton_Yes = GUICtrlCreateButton("Yes", 10, 50, 65, 25)
    Local $idButton_No = GUICtrlCreateButton("No", 80, 50, 65, 25)
    Local $idButton_Exit = GUICtrlCreateButton("Exit", 150, 50, 65, 25)


    Local $query, $aResult, $iRows, $iColumns
    $query = "" ;reset
    $query = "Select hotkey_key, hotkey_ctrl from mytable where mykeys = 'hotkey' ; " ;
    ; Query
    $iRval = _SQLite_GetTable2d($sqliteDb, $query, $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
        Local $sizeofHotkeys = UBound($aResult) - 1
        ConsoleWrite("$sizeofHotkeys " & $sizeofHotkeys & @CRLF)
        If $sizeofHotkeys > 0 Then
            Local $main__aAccelKeys[$sizeofHotkeys][2]
            For $i = 0 To $sizeofHotkeys - 1
                $j = $i + 1
                ; replace friendly text with code -- ! alt + Shift ^ Ctrl # Windows
                $aResult[$j][0] = StringReplace($aResult[$j][0], "Alt", "!")
                $aResult[$j][0] = StringReplace($aResult[$j][0], "Shift", "+")
                $aResult[$j][0] = StringReplace($aResult[$j][0], "Ctrl", "^")
                $main__aAccelKeys[$i][0] = $aResult[$j][0] ;---
                $main__aAccelKeys[$i][1] = $aResult[$j][1] ;---
            Next
;~ Row|Col 0|Col 1
;~ Row 0|F2|$idButton_Yes
;~ Row 1|F3|$idButton_No

            _DebugArrayDisplay($main__aAccelKeys)
            Local $rv = GUISetAccelerators($main__aAccelKeys, $Main)


    GUISetState(@SW_SHOW) ; Display the GUI.

 

Please note that this is a modified Helpfile example.

The Helpfile specifies (a) WinHandle and (b) last Gui created.

--> the example uses a control not a WinHandle and (b) what happens with ChildGuis? Also, the HelpFile specifies lower case, yet the examples show "{F1}" upper case?

Also, is there a way to check the result of the GuiSetAccelerator function? 

Note, if I add these to lines after the FOR loop, then the F1 works, and the DebugArrayDisplays shows control 4... not it's name... So I am in the right place, but my $vars names do not convert to their control numbers in the GUI

Next
            $main__aAccelKeys[$sizeofHotkeys - 1][0] = "{F1}" ; -- -- use the extra row for the F1
            $main__aAccelKeys[$sizeofHotkeys - 1][1] = $ChmHLP   ;---

Skysnake

Edited by Skysnake

Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites

Hi @Skysnake How do you match the SQLite column hotkey_ctrl with the actual control id in the GUI.  That seems to me the major problem of your approach.  The moment you change your GUI by adding, for example, a label or a button or a dummy, you will need to change your database accordingly.

Share this post


Link to post
Share on other sites
1 hour ago, Nine said:

you will need to change your database accordingly.

@Nine Thanks for the reply.

This is true, but a different question.  The issue you refer to here occurs when new functions / controls are created and that needs to be taken care of separately. I am thinking of putting that into an array.

However, right now, I need to get the value out of the SQLite array into the Accelerator array. 

Any ideas?


Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites
Posted (edited)
1 hour ago, Skysnake said:

Any ideas?

oh, I just noticed your commented lines after the loop.  So if I understand correctly.  It is the name of the control that you have inside the database, Not the control id, right ?  If it is the case, you could use eval () ? 

Edited by Nine

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By sksbir
      Hi
      Trying this from autoit v3.3.14.5 and SCITE 3.19.102.1901.0 :
      help file , page "Language Reference - Variables" , sample autoit script about maps:

      Maps must be declared before use by defining their scope using the 'Global/Local/Static' keywords. Local $mControls[]
      So is my test script : only with this local declation.
      -check syntax is OK
      - running script : 

      test.au3" (13) : ==> Variable subscript badly formatted.: Local $mControls[] Local $mControls[^ ERROR ->14:51:49 AutoIt3.exe ended.rc:1
      any clue ?
    • By Blitzkid
      Hello, i want to search several directories for files with the largest numbers behind them (Like "video123") . They dont have a datatype. But there are also files with longer names and datatypes in these folders (Like "video778.mp4"). Is it possible to filter the _FileListToArray Syntax from
      to smth. like
       
      Here is my Code
      #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <array.au3> #include <File.au3> $filedir = @ScriptDir & "\" _checkfile() Func _checkfile() ConsoleWrite("______________________" & @CRLF) Local $arr[3] = ["music", "picture", "video"] For $i = 0 To UBound($arr) - 1 Local $arrayfiles = _FileListToArray($filedir & $arr[$i], $arr[$i] & "*", 1) If @error = 1 Then ConsoleWrite($arr[$i] & "Error 1") EndIf If @error = 4 Then ConsoleWrite($arr[$i] & "Error 2") ;Exit EndIf $arrayfilter = _ArrayMax($arrayfiles, 0, 1) Global $stringfiles = StringReplace($arrayfilter, $arr[$i], "") ConsoleWrite($arrayfilter & @CRLF) Next EndFunc ;==>_checkfile  
    • By jmp
      Script running good but error in line 7.
      When i run this script :
      #include <IE.au3> #include <Array.au3> $oIE = _IEAttach ("Shop") $oTable = _IETableGetCollection ($oIE, 1) $aTableData = _IETableWriteToArray ($oTable) For $inumber = 1 To UBound($aTableData) -1 $table = $aTableData[4][$inumber] MsgBox(0, "", $table) Next I got Error: array variable has incorrect number of subscripts or subscript dimension range exceeded
    • By nacerbaaziz
      Good morning guys, i hope that you're all well.
      guys, i have a problem and i hope that you can help me
      i've created an 3d array
      the array Contain a Categories info
      as folow
      $array[n][0][0] = Categorie name
      $array[n][0][1] = Categorie file path
      $array[n][0][2] = Categorie contents number
      $array[n][m][0] = link name
      $array[n][m][1] = link url
      $array[n][m][2] = link section name
      in my tool i want to add an option to delete a Category
      as you know the Categorie mean that must delete a region from the array
      when i tried to use _arrayDelete
      with the 2d array it work well
      but here i couldn't find any way to do that, can any one help me please?
      thanks in advance.
    • By nacerbaaziz
      hello sirs, please help me
      i tried to create a function that read a folder files to 3d array
      e.g
      $array[n][0][0] = ctName
      $array[n][0][1] = ctFilePath
      $array[n][0][2] = crtsections number
      $array[n][m][0] = KeyName
      $array[n][m][1] = KeyVal
      $array[n][m][2] = keySectionName
       
      that the array
      when i put one file into the folder all things work fine
      but when i put more than one file
      the last file worked fine but the others only the first key is showing
      please can you help me to correct this problem
      here is the example with the folder
      please accept my greetings
      and thanks in advance
       
      array3d.zip
×
×
  • Create New...