Beiträge von AndyTR

  • GDI+: Weichzeichnen u. Verdunkeln möglich?

    Oh oh ich hab doch noch Probleme 8|


    Mir scheint, dies hier ist ein Beispiel zum Weichzeichnen...

    Dort wird aber nicht "die normale" GDIPlus.dll geladen, sondern Version 1.1 (sieht man auch am Pfad im Win-Ordner)...

    Und dann hab ich das hier gefunden (der post vom 28. Nov.); und im ersten link schreibt Authenticity das ja auch...


    Heißt das, dass das garnicht klappen kann, wenn ich XP benutze? :P


    Andy :)

  • GDI+: Weichzeichnen u. Verdunkeln möglich?

    Erstmal dank Dir UEZ, da sind tolle Beispiele dabei...

    Also Verdunkeln,Sättigen usw. is möglich, aber hab die GDIP.au3 mal nach "blur" durchsucht; da findet sich leider nichts...

    Zu schade, weil das das wichtigste ist. Dann werd ich wohl oder übel darauf verzichten müssen, wenns keine Lösung gibt :(


    Dennoch danke für die fixe Antwort, und vllt gibts ja doch noch ne Möglichkeit, die hier jemand weiß :)

  • Ist es möglich -> Equalizer in AutoIt

    Auslesen und Anzeigen dürfte kein allzu großes Problem sein, das funktioniert mit der Bass.au3 (falls Du damit schonmal gearbeitet hast) und hier gibts auch nen Thread dazu...

    Ob man da auch was zum Einstellen machen könnte (per Slider o.Ä.), würde mich interessieren, weiß ich aber leider nich...

  • _IsPressed/HotKeySet: Maus-Scrollrad

    Huhu, ich bin mal wieder :)


    Und zwar richte ich "Hotkeys" ein, die alle Tastendrücke/-bewegungen der Maus nutzen...

    Du erkennen, ob linke,rechte oder mittlere Maustaste gedrückt werden stellt ja kein Problem dar (_IsPressed ("01"/"02"/"04")...

    Aber ich kenne bisher keine Möglichkeit zu registrieren, ob das Scrollrad der Maus hoch bzw. runter bewegt wird. Was bietet sich da an?


    BG Andy :)

  • GUI mit Child - Probleme beim Child mit Buttons u. Slider

    Hallo,

    also ich hab einige Probleme beim Erstellen eines funktionierendes Child-Fensters...

    Die Aktion-Labels und Slider funktionieren leider nur teilweise, woraufhin ich das ganze auch noch mit .bmp's versucht habe, was aber genauso wenig zuverlässig ist...

    Mein erstes grundlegendes Problem ist, dass immer nur einer der beiden Slider halbwegs zuverlässig die Daten annimmt bzw. ausspuckt...
    Das zweite: ist das Child-Fenster, zunächst @SW_Hide und wird dann erst @SW_Show, funktioniert alles noch weniger...

    Außerdem: Gibt es eine Möglichkeit die Slider schöner darzustellen (genaueres Setzen des Knopfes und ohne rechteckige Markierung)?

    Leider schwer zu beschreiben, aber alles nötige ist im Anhang, um die Probleme zu verdeutlichen...


    Ich hoffe, dass jemand Lösungen für die Macken hat, angestrebte Funktiosweise sollte eigentlich klar sein :)


    BG Andy :)


    Spoiler anzeigen
    [autoit]

    #include <SliderConstants.au3>
    #include <WindowsConstants.au3>

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

    $Child_zuerst_on_oder_off = 1 ; 0 = off , 1 = on

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

    Opt("GUIOnEventMode", 1)

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

    $GUI = GUICreate("", 100, 100, 200, 200)
    GUICtrlSetOnEvent(GUICtrlCreateButton("Child an/aus", 10, 10), "Child_State")
    GUISetState(@SW_SHOW)

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

    GUI_Child_Erstellen()

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

    While 1
    Sleep(100)
    WEnd

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

    Func Child_State()
    If $Child_State = "Show" Then
    WinSetState($GUI_Child, "", @SW_HIDE)
    Global $Child_State = "Hide"
    ElseIf $Child_State = "Hide" Then
    WinSetState($GUI_Child, "", @SW_SHOW)
    Global $Child_State = "Show"
    EndIf
    EndFunc

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

    Func GUI_Child_Erstellen()
    Global $GUI_Child = GUICreate("", 210, 100, 310, 200, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0x000000) ; ändern für bessere Sicht der Button-Grenzen
    GUISetFont(10, 100, -1, "Tahoma")


    GUICtrlCreateLabel(" - ", 5, 0, 20)
    GUICtrlSetOnEvent(-1, "Pitch_Runter")
    GUICtrlSetColor(-1, 0xFFFFFF)

    GUICtrlCreateLabel("Pitch", 37, 0, 26)
    GUICtrlSetOnEvent(-1, "Pitch_Normal")
    GUICtrlSetColor(-1, 0xFFFFFF)

    GUICtrlCreateLabel(" + ", 75, 0, 20)
    GUICtrlSetOnEvent(-1, "Pitch_Rauf")
    GUICtrlSetColor(-1, 0xFFFFFF)

    Global $Pitch_Slider = GUICtrlCreateSlider(0, 15, 100, 16, $TBS_NOTICKS)
    GUICtrlSetOnEvent(-1, "Pitch_Aendern")
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1, 5, -5)
    GUICtrlSetData(-1, 0)


    GUICtrlCreateLabel(" - ", 111, 0, 20)
    GUICtrlSetOnEvent(-1, "Tempo_Runter")
    GUICtrlSetColor(-1, 0xFFFFFF)

    GUICtrlCreateLabel("Tempo", 136, 0, 39)
    GUICtrlSetOnEvent(-1, "Tempo_Normal")
    GUICtrlSetColor(-1, 0xFFFFFF)

    GUICtrlCreateLabel(" + ", 181, 0, 20)
    GUICtrlSetOnEvent(-1, "Tempo_Rauf")
    GUICtrlSetColor(-1, 0xFFFFFF)

    Global $Tempo_Slider = GUICtrlCreateSlider(106, 15, 100, 16, $TBS_NOTICKS)
    GUICtrlSetOnEvent(-1, "Tempo_Aendern")
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1, 50, -50)
    GUICtrlSetData(-1, 0)


    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Runter.bmp", 2, 40, 11, 12), "Pitch_Runter")
    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Pitch.bmp", 15, 40, 28, 12), "Pitch_Normal")
    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Rauf.bmp", 45, 40, 11, 12), "Pitch_Rauf")

    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Runter.bmp", 62, 40, 11, 12), "Tempo_Runter")
    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Tempo.bmp", 75, 40, 41, 12), "Tempo_Normal")
    GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Rauf.bmp", 118, 40, 11, 12), "Tempo_Rauf")


    If $Child_zuerst_on_oder_off = 0 Then
    GUISetState(@SW_HIDE)
    Global $Child_State = "Hide"
    Else
    GUISetState(@SW_SHOW)
    Global $Child_State = "Show"
    EndIf
    EndFunc

    Func Pitch_Runter()
    GUICtrlSetData($Pitch_Slider, GUICtrlRead($Pitch_Slider) - 0.5)
    Pitch_Aendern()
    EndFunc

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

    Func Pitch_Normal()
    GUICtrlSetData($Pitch_Slider, 0)
    Pitch_Aendern()
    EndFunc

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

    Func Pitch_Rauf()
    GUICtrlSetData($Pitch_Slider, GUICtrlRead($Pitch_Slider) + 0.5)
    Pitch_Aendern()
    EndFunc

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

    Func Pitch_Aendern()
    MsgBox(0, "", "Pitch: " & GUICtrlRead($Pitch_Slider))
    EndFunc

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

    Func Tempo_Runter()
    GUICtrlSetData($Tempo_Slider, GUICtrlRead($Tempo_Slider) - 5)
    Tempo_Aendern()
    EndFunc

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

    Func Tempo_Normal()
    GUICtrlSetData($Tempo_Slider, 0)
    Tempo_Aendern()
    EndFunc

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

    Func Tempo_Rauf()
    GUICtrlSetData($Tempo_Slider, GUICtrlRead($Tempo_Slider) + 5)
    Tempo_Aendern()
    EndFunc

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

    Func Tempo_Aendern()
    MsgBox(0, "", "Tempo: " & GUICtrlRead($Tempo_Slider))
    EndFunc

    [/autoit]

  • Tray-Menü generieren + OnEvent

    Neues Problem:

    Bei einer größeren Playlist (probiert mit ~700 Zeilen) wird je nach dem, wie Interpreten- und Album-Anzahl ist, das Tray nur in Berücksichtigung der ersten 400-500 Zeilen erstellt und der letzte Punkt ist zwar Interpret-Album-Titel führt aber die Exit-Funktion aus...

    Woran kann das liegen? Vllt eine Grenze seitens AutoIt?

    BG Andy :)

  • GUICtrlCreateLabel - kein "&"?

    Hey,

    ich bekomme es einfach nich hin, dass das Und-Zeichen (&) in einem Gui-Label dargestellt wird...

    Was mache ich denn nur falls, bzw. welchen Befehl gibt es dafür? BG Andy :)

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>

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

    $Text = "1 & 1 macht 2"

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

    GUICreate("", 80, 25, -1, -1, $WS_POPUP)
    $Label = GUICtrlCreateLabel(" ", 10, 5, 70)
    GUISetState(@SW_SHOW)

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

    Sleep(1000)
    MsgBox(0, "", $Text)
    Sleep(1000)
    GUICtrlSetData($Label, $Text)

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

    While 1
    Sleep(100)
    WEnd

    [/autoit]

  • Funktionen automatisch erstellen lassen? möglich?

    Hallo,

    und zwar möchte ich wissen, ob es eine Möglichkeit gibt Funktionen automatisch zu generieren (mit aufsteigender Nummer in Bezeichnung)...

    Ich weiß, dass es zumindest möglich ist Ereignissen Funktionen mit Nummern in aufsteigender Art zuzuordnen:

    [autoit]

    For $i = 1 to X Step +1
    TrayItemSetOnEvent(X, "Funktion_" & $i)
    Next

    [/autoit]

    Jetzt müsste nur noch soetwas in der Art gehen, aber das klappt leider nicht:

    [autoit]

    For $i = 1 to X Step +1
    Func Funktion_ & $i()
    ...
    EndFunc
    Next

    [/autoit]

    Andy :)

  • Tray-Menü generieren + OnEvent

    Huhu,

    also ich habe folgendes Problem (es geht grundsätzlich um einen Musik-Player):
    Ich lasse aus einer .txt, die ein bestimmtes Muster hat, automatisch ein Tray-Menü erstellen... Das klappt soweit auch genau, wie ich mir das vorstelle :)
    Jede Zeile der .txt hat eine gleichmäßige Struktur, aber die Anzahl der Zeilen variiert.

    Nun möchte ich aber auch wenn ich mich im Tray-Menü so durchhangel, dass ich direkt die Songs auswählen kann; sprich wenn ich den Titel eines Songs klicke, möchte ich den dazugehörigen Pfad aus der .txt geliefert bekommen...
    Bisher habe ich schon Möglichkeiten mit "TrayItemSetOnEvent" und "TrayItemGetText" probiert, aber leider nichts funktionierendes gefunden, da immer der letzte Eintrag der .txt im Hinterkopf des Scripts ist...

    Da muss es doch eine Möglichkeit geben das ganze so zu basteln, wie das gewollt ist :)


    Beste Grüße und ich hoffe auf Denkanstöße :) Andy


    PS: Script + .txt im Anhang

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    #include <File.au3>

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

    Opt('TrayAutoPause', 0)
    Opt('TrayMenuMode', 1)
    Opt('TrayOnEventMode', 1)

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

    $Tracklist = @ScriptDir & "\List.txt"
    $Tracks_Pfad = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Musik\z.Music (Script)\"

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

    Tray_Erstellen()
    While 1
    Sleep(100)
    WEnd

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

    Func Tray_Erstellen()
    $Tray_Interpret_2 = "..."
    $Tray_Album_2 = "..."
    TrayCreateItem(_FileCountLines($Tracklist) & " Tracks")
    TrayItemSetState(-1, $TRAY_DISABLE)
    TrayCreateItem("")
    $File = FileOpen($Tracklist, 0)
    For $i = 1 to _FileCountLines($Tracklist) Step +1
    Global $Tray_Line_Track = FileReadLine($File, $i)
    $Tray_Name = StringTrimLeft($Tray_Line_Track, StringLen($Tracks_Pfad))
    $Tray_Titel = StringTrimRight(StringMid($Tray_Line_Track, StringInStr($Tray_Line_Track, " - ", 0, 3) + 3), 4)
    $Tray_Interpret = StringTrimRight($Tray_Name, StringLen($Tray_Name) - StringInStr($Tray_Name, " - ") + 1)
    $Tray_Album = StringTrimLeft(StringTrimRight($Tray_Name, StringLen($Tray_Name) - StringInStr($Tray_Name, " - ", 0, 2) + 1), StringLen($Tray_Interpret) + 3)
    If $Tray_Interpret <> $Tray_Interpret_2 Then
    $Track_aus_Album = 1
    $Menu_Interpret = TrayCreateMenu($Tray_Interpret)
    EndIf
    $Tray_Interpret_2 = $Tray_Interpret
    If $Tray_Album = "" Then
    $Track_aus_Album = 0
    TrayCreateItem($Tray_Titel, $Menu_Interpret)
    ElseIf $Tray_Album <> $Tray_Album_2 Then
    If $Track_aus_Album = 0 Then
    TrayCreateItem("", $Menu_Interpret)
    $Track_aus_Album = 1
    EndIf
    $Menu_Album = TrayCreateMenu($Tray_Album, $Menu_Interpret)
    TrayCreateItem($Tray_Titel, $Menu_Album)
    Else
    TrayCreateItem($Tray_Titel, $Menu_Album)
    EndIf
    $Tray_Album_2 = $Tray_Album
    Next
    TrayCreateItem("")
    TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")
    FileClose($File)
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]