Beiträge von Tweaky

  • Progressbar mit GDIplus

    Irgendwas hat sich in 3.3.8.1 geändert.

    Bei dem folgenden Beispiel siehts so aus

    Spoiler anzeigen
    [autoit]

    #region ;************ Includes ************
    #include <GDIpProgress.au3>
    #endregion ;************ Includes ************
    Opt("GUIOnEventMode", 1)

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

    $Gui = GUICreate("3.3.6.1", 250, 50)
    $sID = _ProgressCreate(10, 10)
    _ProgressSet($sID, 30)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
    GUISetState()

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

    While 1
    Sleep(10)
    WEnd

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

    Func _beenden()
    _ProgressDelete($sID) ; MUST BE DONE ON EXIT
    _Progress_CallBack_Free(1) ; Force Killing Timer
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_beenden

    [/autoit]

    3.3.8.1 Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    3.3.6.1 Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Kannst du mal danach schauen progandy?

  • [Anregung] zu GUISetState und "Skripte ausführen"

    Die Makro werden in 3.3.8.1 ergänzt.

    Ändere bitte den Inhalt zu den Anführungszeichen.

    So sieht es momentan aus in der Hilfe.

    Zitat

    Form4: AutoIt3.exe [/ErrorStdOut] /AutoIt3ExecuteLine "Befehlszeile"
    Ausführen einer Zeile mit Code.

    Um eine einzelne Zeile mit Code auszuführen ist folgender Befehl auszuführen:
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(0, ''Hallo Welt!'', ''Hi!'')"')

    Das Trayicon wird nicht anzeigt, wenn /AutoIt3ExecuteLine verwendet wird

    ACHTUNG: Die korrekte Benutzung von einfachen und doppelten Anführungszeichen ist wichtig, auch doppelten einfachen

  • GUI ruckelt

    Hm, ok so scheint es zu funktionieren.
    Jedoch verstehe ich es nicht ganz warum dem so ist.
    Wenn ich die GUI vorher nicht minimiere funktioniert es ja auch ohne anpassen der Größe.

  • GUI ruckelt

    So, muß den Thread leider nochmals ausgraben.

    Wenn ich das Skript minimiere bevor das Bild gezeichnet wird, wird deren Größe nicht übernommen (siehe Zeile 27)
    Weiß einer warum?
    Komme leider nicht weiter.

    Spoiler anzeigen
    [autoit]

    #region ;************ Includes ************
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #endregion ;************ Includes ************

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

    Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

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

    Global Const $IMAGE_BITMAP = 0
    Global Const $STM_SETIMAGE = 0x0172
    Global $hPreviewBitmap

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

    Global $datei1 = "C:\Windows\Web\Wallpaper\Windows\img0.jpg"

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

    _GDIPlus_Startup() ;Vorschau

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

    Global $hPreviewGui = GUICreate("Foto", 710, 350)
    Global $idPreviewPic = GUICtrlCreatePic("", 10, 10, 300, 200)
    GUICtrlSetState(-1, $GUI_DISABLE)
    Global $idPreviewPic2 = GUICtrlCreatePic("", 400, 10, 200, 300)
    GUICtrlSetState(-1, $GUI_DISABLE)
    Global $idButtonLoad = GUICtrlCreateButton("Laden", 300, 250, 60, 40)
    GUICtrlSetOnEvent(-1, "Load")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

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

    WinSetState("Foto", "", @SW_MINIMIZE) ;wenn aktiv wird in der nächsten Zeile die Größe 600 bzw. 100 ignoriert
    _PreviewLoadImage($datei1, $idPreviewPic, 600, 100)
    WinSetState("Foto", "", @SW_RESTORE)
    GUISetState()

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

    While 1
    Sleep(10)
    WEnd

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

    Func _beenden()
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_beenden

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

    Func Load()
    Local $file = FileOpenDialog("Suche ein Bild aus", "", "Bilder (*.jpg;*png;*.bmp;*.gif)")
    If @error Then Return
    _PreviewLoadImage($file, $idPreviewPic2, 300, 200, 7, 1, 1)
    EndFunc

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

    ; $iRotateFlipType - Type of rotation and flip:
    ; |0 - No rotation and no flipping (A 180-degree rotation, a horizontal flip and then a vertical flip)
    ; |1 - A 90-degree rotation without flipping (A 270-degree rotation, a horizontal flip and then a vertical flip)
    ; |2 - A 180-degree rotation without flipping (No rotation, a horizontal flip folow by a vertical flip)
    ; |3 - A 270-degree rotation without flipping (A 90-degree rotation, a horizontal flip and then a vertical flip)
    ; |4 - No rotation and a horizontal flip (A 180-degree rotation followed by a vertical flip)
    ; |5 - A 90-degree rotation followed by a horizontal flip (A 270-degree rotation followed by a vertical flip)
    ; |6 - A 180-degree rotation followed by a horizontal flip (No rotation and a vertical flip)
    ; |7 - A 270-degree rotation followed by a horizontal flip (A 90-degree rotation followed by a vertical flip)

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

    Func _PreviewLoadImage($sImgFile, $CtrlID, $iW, $iH, $iInterpolationMode = 7, $iRotateFlipType = 0, $clear = 0)
    If $clear Then GUICtrlSendMsg($CtrlID, $STM_SETIMAGE, $IMAGE_BITMAP, 0)
    Local $hImage = _GDIPlus_ImageLoadFromFile($sImgFile)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iW, "int", $iH, "int", 0, "int", 0x0026200A, "ptr", 0, "int*", 0)
    Local $hBitmap = $aResult[6]
    Local $hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "handle", $hGfxCtxt, "int", $iInterpolationMode)
    _GDIPlus_GraphicsDrawImageRect($hGfxCtxt, $hImage, 0, 0, $iW, $iH)
    If $iRotateFlipType Then DllCall($ghGDIPDll, "uint", "GdipImageRotateFlip", "hwnd", $hBitmap, "int", $iRotateFlipType)
    Local $hHBitmap = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGfxCtxt)
    _WinAPI_DeleteObject(GUICtrlSendMsg($CtrlID, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBitmap))
    EndFunc ;==>_PreviewLoadImage

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

    Func _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
    Local $tBIHDR, $Ret, $tData, $pBits, $hResult = 0
    $Ret = DllCall($ghGDIPDll, 'uint', 'GdipGetImageDimension', 'ptr', $hBitmap, 'float*', 0, 'float*', 0)
    If (@error) Or ($Ret[0]) Then Return 0
    $tData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $Ret[2], $Ret[3], $GDIP_ILMREAD, $GDIP_PXF32ARGB)
    $pBits = DllStructGetData($tData, 'Scan0')
    If Not $pBits Then Return 0
    $tBIHDR = DllStructCreate('dword;long;long;ushort;ushort;dword;dword;long;long;dword;dword')
    DllStructSetData($tBIHDR, 1, DllStructGetSize($tBIHDR))
    DllStructSetData($tBIHDR, 2, $Ret[2])
    DllStructSetData($tBIHDR, 3, $Ret[3])
    DllStructSetData($tBIHDR, 4, 1)
    DllStructSetData($tBIHDR, 5, 32)
    DllStructSetData($tBIHDR, 6, 0)
    $hResult = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', 0, 'ptr', DllStructGetPtr($tBIHDR), 'uint', 0, 'ptr*', 0, 'ptr', 0, 'dword', 0)
    If (Not @error) And ($hResult[0]) Then
    DllCall('gdi32.dll', 'dword', 'SetBitmapBits', 'ptr', $hResult[0], 'dword', $Ret[2] * $Ret[3] * 4, 'ptr', DllStructGetData($tData, 'Scan0'))
    $hResult = $hResult[0]
    Else
    $hResult = 0
    EndIf
    _GDIPlus_BitmapUnlockBits($hBitmap, $tData)
    Return $hResult
    EndFunc ;==>_GDIPlus_BitmapCreateDIBFromBitmap

    [/autoit]

  • shutdown mit timer

    Du hast ja auch nochmals Shutdown(1) am Ende des Skrips drin (Zeile 23)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    GUICreate("Zählen", 320, 120)
    $anzahli = GUICtrlCreateInput("", 10, 5, 300, 20)
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
    $label = GUICtrlCreateLabel(" Zähler:", 0, 100, 999, 30)
    GUISetState()

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

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select
    Case $msg = $btn
    $anzahl = GUICtrlRead($anzahli)
    $i = $anzahl
    $time = 60000 * $i
    AdlibRegister("_Update", $time)
    EndSelect
    WEnd

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

    ;~ Shutdown(1)
    Func _Update()
    MsgBox(0, "title", "text")
    Shutdown(1)
    AdlibUnRegister("_Update")
    EndFunc ;==>_Update

    [/autoit]

  • SciTE - alte Farben oder neue Farben - Abstimmung

    Hi,
    seit AutoIt 3.3.8.0 und der neue SciTE-Version haben sich die Farben geändert.
    Dies kann man jedoch auch zurückstellen auf die alten Farben.


    Warum ich diese Abstimmung mache?
    1. Ich weiß selber nicht was sinnvoller ist.
    2. In der AutoIt Hilfe von 3.3.8.1 sind die Beispiele auch in den neuen Farben hinterlegt. Eventuell könnte ich diese in der deutschen Hilfe wieder auf die alten Farben ändern.

  • AutoIt MsGBox oÔ?

    Hilfe lesen ...

    Du mußt schon den Rückgabewert für die MsgBox auswerten und dann sagen was weiter passieren soll

    Spoiler anzeigen
    [autoit]

    $msgbox = MsgBox(3, "Registration", "Wollen sie sich registrieren?")
    If $msgbox = 6 Then
    $AccountID = InputBox("Account ID", "Geben sie ihre WunschID an.")
    $Passwort = InputBox("Passwort", "Geben sie ihr Passwort an.", "", "*")
    $Passwort2 = InputBox("Passwort", "Wiederholen sie bitte ihr Passwort.", "", "*")

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

    If $Passwort = $Passwort2 Then

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

    Else
    MsgBox(0, "Fehler", "Passwörter sind nicht identisch.")
    Exit
    EndIf

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

    If $AccountID = $Passwort Then
    MsgBox(3, "Achtung", "Ihre Account ID und ihr Passwort sind identisch , trotzdem fortfahren?")
    EndIf
    $EMail = InputBox("E-Mail", "Geben sie ihre E-Mail an.")
    $EMail2 = InputBox("E-Mail", "Wiederholen sie bitte ihre E-Mail.")
    If $EMail = $EMail2 Then
    $Spitzname = InputBox("Spitznamen", "Bitte geben sie ihren Spitznamen an.")
    MsgBox(3, "Erfolgreich Registriert.", "Sie haben sich erfolgreich registriert bitte schauen sie in ihrem E-Mail Postfach nach.")
    Else
    MsgBox(0, "E-Mail's nicht identisch.", "Ihre E-Mails sind nicht identisch.")
    EndIf
    EndIf

    [/autoit]