Beiträge von BugFix

  • jEdit für AutoIt

    Zitat

    Wie sieht denn die au3-Datei aus?

    Ist bei jeder Datei der Fall. Ich habe Dateien von funktionierenden Projekten geladen, die Includes enfernt und dann getestet.
    Erst kommt die Fehlermeldung und beim nachfolgenden 2.ten Start funktioniert es tadellos.

  • jEdit für AutoIt

    Fragen:
    Wo kann ich den Pfad für ctags bei den Plugin-Optionen eintragen? ctags ist dort nirgendwo erwähnt.
    Strg+B - da passiert bei mir nix ?(
    Gibt es evtl. die Möglichkeit eine Datei, wie in Scite zu erstellen, in der ich die Abbrevs eintrage?
    Das wäre wesentlich komfortabler als dass ich jeden Eintrag einzeln neu erstellen muß.
    Wo kann ich eigene HotKeys hinterlegen (ich würde gern wieder F5 für Run und die anderen Hotkeys aus Scite übernehmen.


    Bei den Makros sind folgende Probleme:
    Macro: Include Auto Insert
    Fehler-Meldung:

    Spoiler anzeigen


    Aber wenn ich dann sofort wieder aufrufe, funktioniert es.


    Macro: Fuction Go To Definition (Was müßte da passieren, ich habe einen Funktion markiert und bekam dann Fehler)

    Spoiler anzeigen

  • hyperlink

    Opt("WinTitleMatchMode", 4)
    #include <GuiConstants.au3>
    #include <Date.au3>
    #include <file.au3>
    #include <GuiHyperLink.au3>
    #include <Events.au3>

    Das ist nur richtig, wenn die Dateien im Include-Verzeichnis von Scite gespeichert sind - sind sie das?

    Deine GUI hat keine Variable über die sie angesprochen werden kann.
    Und ich sehe hier nicht, dass du versuchst einen Hyperlink einzuinden.
    Du hast nur ein Label mit 'ner Web-Adresse geschrieben.

  • hyperlink

    WARNING: $GUI: possibly used before declaration.
    $hl_ctrl[1] = _GuiCtrlHyperLinkCreate ($GUI,

    $GUI = Da mußt du natürlich die Variable einsetzen, die du bei: $variable = GUICreate() verwendet hast.

  • Registryeinträge in Listenfeld übernehmen

    Dann kopier dir aus der array.au3 nur die Funktionen in dein Skript, die du brauchst. Dann brauchst du kein Include.

    Oder hier mal schnell eine ganz simple ArrayMax-Funktion:

    Da dei Array an Position 0 einen Zähler hat, mußt du aufrufen:

    $max = _MaxValue($Array, 1)

    [autoit]

    Func _MaxValue(ByRef $ARRAY , $start=0)
    Local $max = 0
    For $i = $start To UBound($ARRAY) -1
    If $ARRAY[$i] > $max Then $max = $ARRAY[$i]
    Next
    Return $max
    EndFunc

    [/autoit]

  • Registryeinträge in Listenfeld übernehmen

    Hier mal ein Test Szenario.
    - erstellt die Unterschlüssel \TEST\1 bis ..\19 (nur ungerade Werte)
    - gibt alle Unterschlüssel aus
    - zeigt größten Wert der Unterschlüssel
    - löscht alle Testschlüssel wieder

    Das ConsoleWrite() dient nur als Kontrolle ob alles fehlerfrei abläuft.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To 20 Step 2 ; erzeugt Schlüssel mit ungeraden Zahlen bis 19
    ConsoleWrite($i & ' RegWrite= '& RegWrite("HKCU\TEST\" & $i, '', 'REG_SZ', '') & ' Fehler: ' &@error & @CRLF)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    Dim $arSubKey[1] = [0]
    $i = 1
    While 1
    $subkey = RegEnumKey("HKCU\TEST", $i)
    If @error Then ExitLoop
    $arSubKey[0] += 1
    ReDim $arSubKey[UBound($arSubKey)+1]
    $arSubKey[UBound($arSubKey)-1] = $subkey
    $i += 1
    WEnd
    _ArrayDisplay($arSubKey, 'Testschlüssel')
    MsgBox(0, 'größter numerischer Wert', _ArrayMax($arSubKey, 1, 1)) ; größter Wert 19

    [/autoit] [autoit][/autoit] [autoit]

    ConsoleWrite($i & ' RegDelete= '& RegDelete("HKCU\TEST") & ' Fehler: ' &@error & @CRLF) ; Testschlüssel löschen

    [/autoit]

  • Registryeinträge in Listenfeld übernehmen

    Zitat

    Original von DerSchatten
    Habe aber die Ursache gefunden.
    Und zwar tritt der Fehler dann auf, wenn dieser Key nicht existiert.
    Das heißt man müßte zuvor abfragen ob dieser existiert.

    Nö, muß man nicht.
    Du fragst die INSTANZEN unterhalb des Keys

    [autoit]

    RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\MasterBackup", Instanz)

    [/autoit]


    ab.
    In jedem Schleifenumlauf wird die Nummer der Instanz um 1 erhöht. Das hat nichts mit dem Namen des Schlüssels zu tun.
    Sind dort 5 Einträge und es wird nach Instanz 6 gefragt entsteht ein Fehler und die Schleife wird verlassen.

  • jEdit für AutoIt

    Also das einzige, was mich gereizt hat, es mal mit jEdit zu probieren, war die Möglichkeit den Bildschirm zu splitten und somit mehrere Skripte nebeneinander zu packen.
    Es stimmt, intuitiv kommt man nicht allzugut klar. Ich habe etwa 1,5 Stunden gebraucht bis es halbwegs lief. Aber eben auch ohne Calltip und Autocomplete.

    Ich denke es ist hauptsächlich eine Gewöhnungssache. Ich werde es mal weiter probieren.
    Ich finde es schon super, was Stilgar hier alles implementiert hat.

    Und meinen Manager für Abbrevations und CallTip unter Scite mußte ich auch erst selbst erstellen. Gerade nach dem letzten SciteUpdate war ja der Abbrev-Ordner geradezu leer.

    So hat halt jeder Editor sein Für und Wider.

  • Registryeinträge in Listenfeld übernehmen

    Zitat

    Original von DerSchatten
    Bekomme den Fehler: Array variable has incorrect number ....
    Wozu dient das _ArrayDisplay($arSubKey) ?

    Das _ArrayDisplay diente jetzt nur dazu, die ausgelesenen SubKeys anzuzeigen.

    Ich vermute aber, dass du gar keine Subkeys auslesen willst, sondern die Werte EINES Keys. Also das, was auf der rechten Seite des Regeditors steht. (li. Seite = Schlüsselbaum; re. Seite = WertName/WertInhalt)
    Dann ersetze einfach RegEnumKey durch RegEnumVal und gib den korrekten Schlüssel an.

  • Registryeinträge in Listenfeld übernehmen

    [autoit]

    #include <array.au3>

    [/autoit][autoit][/autoit][autoit]

    Dim $arSubKey[1] = [0]
    $i = 1
    While 1
    $subkey = RegEnumKey('HKEY_CURRENT_USER\Software', $i)
    If @error Then ExitLoop
    $arSubKey[0] += 1
    ReDim $arSubKey[UBound($arSubKey)+1]
    $arSubKey[UBound($arSubKey)-1] = $subkey
    $i += 1
    WEnd

    [/autoit][autoit][/autoit][autoit]

    _ArrayDisplay($arSubKey)

    [/autoit][autoit][/autoit][autoit]

    ; wenn du numerische Einträge hast kannst du den größten Wert so ausgeben:
    ;~ MsgBox(0, 'größter numerischer Wert', _ArrayMax($arSubKey, 1, 1) )

    [/autoit]

  • Registryeinträge in Listenfeld übernehmen

    Das ist sicher möglich, aber ich bin dafür möglichst einfache Wege zu gehen ;)
    Es besteht ja keine Notwendigkeit eine Reihenfolge der Nummerierung beizubehalten.
    Also lies einfach alle Schlüssel in diesem Zweig aus und verwende als neuen Schlüssel: letzter Schlüssel + 1
    Welchen Namen der Schlüssel annimmt ist doch letztendlich ohne Belang.

  • hyperlink

    Na dann wolln mir ma nicht so sein ;)

    Ich habe dir hier ein ganz einfaches Bsp. erstellt.

    Achte auf die Includes, dass die beiden notwendigen Dateien auch eingebunden werden.

    Edit: Vielleicht noch zum besseren Verständnis
    - Das Array $hl_ctrl[] enthält die Anzahl der Link-Controls
    - Das Array $Links[] nimmt die URL's auf
    - Das Array $Link_On[] enthält die Alias-Texte der Links
    Beachte:
    Jeder Alias-Text wird erkannt und innerhalb eines Link-Controls unterstrichen dargestellt.
    Demzufolge muss der Alias-Text bei der Erstellung des Link-Controls verwendet werden um als klickbarer Link zur Verfügung zu stehen.

    Spoiler anzeigen
    [autoit]

    Opt("WinTitleMatchMode", 4)
    #include "GuiHyperLink.au3"
    #include "Events.au3"
    #include <GUIConstants.au3>
    Local $hl_ctrl[1]
    Local $Links[1] = ["http://www.autoit.de/jgs_portal.php?sid="] ; Array mit der oder den URL
    Local $Link_On[1] = ["DIE deutsche AutoIt Community"] ; Array mit Anzeigetext für Link

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("Hyperlink Test", 400, 250, -1, -1)

    [/autoit] [autoit][/autoit] [autoit]

    $hl_ctrl[0] = _GuiCtrlHyperLinkCreate ($GUI, _
    'Willkommen, hier ist' & @LF & 'DIE deutsche AutoIt Community', _
    $Links[0], $Link_On[0], _
    20, 20, 360, 40,-1, -1, "Courier New", 12)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)
    GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Skript für Spiel

    :lol:

    Zitat

    Vllt kann mir ja jemand schnell ein kleines Script schreiben, wäre echt sehr nett!

    Also, wir helfen gerne, wenn du Probleme hast. Aber für dich schreiben...
    Mach den Anfang und wenn du nicht weiter kommst, frag nach.

  • Registryeinträge in Listenfeld übernehmen

    Du kannst auch ohne MY_WM_COMMAND arbeiten, wenn du nur SingleClick abfragst.
    Wichtig ist, du mußt für jedes Item ein Handle erzeugen (z.B. $arItem=..) und darauf mit dem Event ListViewClick verweisen.

    Spoiler anzeigen
    [autoit]

    #include <GuiConstants.au3>
    #include <GuiListView.au3>
    Opt ("GUIOnEventMode", 1)
    Dim $gui, $listview
    $gui = GUICreate("ListView Get Selected Indices", 392, 322)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    $listview = GUICtrlCreateListView("col1|col2|col3", 40, 30, 310, 149, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER))
    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
    $item1 = GUICtrlCreateListViewItem("line1|data1|more1", $listview)
    $item2 = GUICtrlCreateListViewItem("line2|data2|more2", $listview)
    $item3 = GUICtrlCreateListViewItem("line3|data3|more3", $listview)
    $item4 = GUICtrlCreateListViewItem("line4|data4|more4", $listview)
    $item5 = GUICtrlCreateListViewItem("line5|data5|more5", $listview)

    [/autoit] [autoit][/autoit] [autoit]

    For $i = $item1 To $item5
    GUICtrlSetOnEvent($i, '_ListViewClick')
    Next

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func Form1Close()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _ListViewClick()
    Local $s_indices = _GUICtrlListViewGetSelectedIndices($listview)
    MsgBox(0,"Selected", "Index: " & $s_indices & @LF & _
    "Text: " & _GUICtrlListViewGetItemText($listview, $s_indices))
    EndFunc

    [/autoit]