Bild auf dem Bildschirm erscheinen lassen das vergrößerbar ist

  • Ich möchte einen Screenrecorder Proggen.
    Ich habe es schon geschafft, dass ein GUI kommt, man eintippen kann ob die Maus angezeigt werden soll, den Namen eingeben kann und die OutDir und natürlich den Screen aufnehmen.

    Jetzt möchte ich es noch so machen dass man eine Grafik au dem Bildschirm sieht, die man vergrößern/ Verkleinern / verschieben kann und somit den Aufnamebereich verändern kann. Ich habe in einem Beispiel etwas gefunden und das verändert:

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    Global $gui, $guiPos, $pic, $picPos

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

    Example2()

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

    Func Example2()
    Local $msg

    $gui = GUICreate("test transparentpic", 200, 100)
    $pic = GUICreate("", 142, 142, 10, 10, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
    GUICtrlCreatePic("win.gif", 0, 0, 0, 0)

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

    GUISetState(@SW_SHOW, $pic)

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

    HotKeySet("{LEFT}", "left")
    HotKeySet("{RIGHT}", "right")
    HotKeySet("{DOWN}", "down")
    HotKeySet("{UP}", "up")

    $picPos = WinGetPos($pic)
    $guiPos = WinGetPos($gui)

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

    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example2

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

    Func left()
    $picPos = WinGetPos($pic)
    WinMove($pic, "", $picPos[0] - 10, $picPos[1])
    EndFunc ;==>left

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

    Func right()
    $picPos = WinGetPos($pic)
    WinMove($pic, "", $picPos[0] + 10, $picPos[1])
    EndFunc ;==>right

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

    Func down()
    $picPos = WinGetPos($pic)
    WinMove($pic, "", $picPos[0], $picPos[1] + 10)
    EndFunc ;==>down

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

    Func up()
    $picPos = WinGetPos($pic)
    WinMove($pic, "", $picPos[0], $picPos[1] - 10)
    EndFunc ;==>up

    [/autoit]

    Jetzt fehlt mir nur noch wie ich das Bild/Fenster vergrößern kann und wie ich die Größe des Fensters auslesen kann.
    Hat jemand einen Tip für mich ?

    Schönen Abend

    MfG Robin