Beiträge von clezZ

  • Daten aus einer Liste in .ini schreiben

    Ich hab jetzt nochmal mein Skript bearbeitet, jetzt wird der Inhalt der Liste nicht mehr alphabetisch angezeigt:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $GruppeA = 1
    Global $GruppeB = 1
    Global $GruppeC = 1
    Global $GruppeD = 1

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

    #Region ### START Koda GUI section ### Form=
    $Form1_1_1 = GUICreate("Gruppen", 903, 606, 186, 122)
    GUISetFont(12, 400, 0, "Monotype Corsiva")
    GUISetBkColor(0xC0C0C0)
    GUICtrlSetFont(-1, 60, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x316AC5)
    $Button1 = GUICtrlCreateButton("OK", 176, 120, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List1 = GUICtrlCreateList("", 8, 192, 153, 150, $WS_BORDER)
    GUICtrlSetData(-1, "")
    $Input1 = GUICtrlCreateInput("Team", 6, 117, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label1 = GUICtrlCreateLabel("Gruppe A", 16, 160, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button2 = GUICtrlCreateButton("OK", 396, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List2 = GUICtrlCreateList("", 228, 193, 153, 150, $WS_BORDER)
    GUICtrlSetData(-1, "")
    $Input2 = GUICtrlCreateInput("Team", 226, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label2 = GUICtrlCreateLabel("Gruppe B", 236, 161, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button3 = GUICtrlCreateButton("OK", 620, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List3 = GUICtrlCreateList("", 452, 193, 153, 150, $WS_BORDER)
    GUICtrlSetData(-1, "")
    $Input3 = GUICtrlCreateInput("Team", 450, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label3 = GUICtrlCreateLabel("Gruppe C", 460, 161, 134, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button4 = GUICtrlCreateButton("OK", 844, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List4 = GUICtrlCreateList("", 676, 193, 153, 150, $WS_BORDER)
    GUICtrlSetData(-1, "")
    $Input4 = GUICtrlCreateInput("Team", 674, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label4 = GUICtrlCreateLabel("Gruppe D", 684, 161, 138, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $weg1 = GUICtrlCreateButton("Liste löschen", 24, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg2 = GUICtrlCreateButton("Liste löschen", 244, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg3 = GUICtrlCreateButton("Liste löschen", 472, 381, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg4 = GUICtrlCreateButton("Liste löschen", 695, 383, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $Weiter = GUICtrlCreateButton("Weiter", 768, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    $Abbrechen = GUICtrlCreateButton("Abbrechen", 656, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Team1 = GUICtrlRead($Input1)
    GUICtrlSetData($List1, $Team1)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe A", $GruppeA & ")", $Team1) ;;; Du hast überall vergessen den Pfad deiner ini anzugeben!
    GUICtrlSetData($Input1, "")
    $GruppeA += 1
    Case $Button2
    $Team2 = GUICtrlRead($Input2)
    GUICtrlSetData($List2, $Team2)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe B", $GruppeB & ")", $Team2)
    GUICtrlSetData($Input2, "")
    $GruppeB += 1
    Case $Button3
    $Team3 = GUICtrlRead($Input3)
    GUICtrlSetData($List3, $Team3)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe C", $GruppeC & ")", $Team3)
    GUICtrlSetData($Input3, "")
    $GruppeC += 1
    Case $Button4
    $Team4 = GUICtrlRead($Input4)
    GUICtrlSetData($List4, $Team4)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe D", $GruppeD & ")", $Team4)
    GUICtrlSetData($Input4, "")
    $GruppeD += 1
    Case $weg1
    GUICtrlSetData($List1, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe A")
    Case $weg2
    GUICtrlSetData($List2, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe B")
    Case $weg3
    GUICtrlSetData($List3, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe C")
    Case $weg4
    GUICtrlSetData($List4, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe D")
    Case $Abbrechen
    FileDelete(@ScriptDir & "\Teams.ini")
    Exit
    Case $Weiter
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Daten aus einer Liste in .ini schreiben

    Hier hab ich mal das Skript angepasst. Ich hoffe, das du es auch so meintest:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    Global $GruppeA = 1
    Global $GruppeB = 1
    Global $GruppeC = 1
    Global $GruppeD = 1

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

    #Region ### START Koda GUI section ### Form=
    $Form1_1_1 = GUICreate("Gruppen", 903, 606, 186, 122)
    GUISetFont(12, 400, 0, "Monotype Corsiva")
    GUISetBkColor(0xC0C0C0)
    GUICtrlSetFont(-1, 60, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x316AC5)
    $Button1 = GUICtrlCreateButton("OK", 176, 120, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List1 = GUICtrlCreateList("", 8, 192, 153, 150)
    GUICtrlSetData(-1, "")
    $Input1 = GUICtrlCreateInput("Team", 6, 117, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label1 = GUICtrlCreateLabel("Gruppe A", 16, 160, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button2 = GUICtrlCreateButton("OK", 396, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List2 = GUICtrlCreateList("", 228, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input2 = GUICtrlCreateInput("Team", 226, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label2 = GUICtrlCreateLabel("Gruppe B", 236, 161, 136, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button3 = GUICtrlCreateButton("OK", 620, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List3 = GUICtrlCreateList("", 452, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input3 = GUICtrlCreateInput("Team", 450, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label3 = GUICtrlCreateLabel("Gruppe C", 460, 161, 134, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $Button4 = GUICtrlCreateButton("OK", 844, 121, 33, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $List4 = GUICtrlCreateList("", 676, 193, 153, 150)
    GUICtrlSetData(-1, "")
    $Input4 = GUICtrlCreateInput("Team", 674, 118, 161, 26)
    GUICtrlSetColor(-1, 0x800000)
    $Label4 = GUICtrlCreateLabel("Gruppe D", 684, 161, 138, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
    GUICtrlSetColor(-1, 0x800000)
    $weg1 = GUICtrlCreateButton("Liste löschen", 24, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg2 = GUICtrlCreateButton("Liste löschen", 244, 384, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg3 = GUICtrlCreateButton("Liste löschen", 472, 381, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $weg4 = GUICtrlCreateButton("Liste löschen", 695, 383, 121, 25, 0)
    GUICtrlSetColor(-1, 0x800000)
    $Weiter = GUICtrlCreateButton("Weiter", 768, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    $Abbrechen = GUICtrlCreateButton("Abbrechen", 656, 560, 75, 25)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Team1 = GUICtrlRead($Input1)
    GUICtrlSetData($List1, $Team1)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe A", $GruppeA & ")", $Team1) ;;; Du hast überall vergessen den Pfad deiner ini anzugeben!
    GUICtrlSetData($Input1, "")
    $GruppeA += 1
    Case $Button2
    $Team2 = GUICtrlRead($Input2)
    GUICtrlSetData($List2, $Team2)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe B", $GruppeB & ")", $Team2)
    GUICtrlSetData($Input2, "")
    $GruppeB += 1
    Case $Button3
    $Team3 = GUICtrlRead($Input3)
    GUICtrlSetData($List3, $Team3)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe C", $GruppeC & ")", $Team3)
    GUICtrlSetData($Input3, "")
    $GruppeC += 1
    Case $Button4
    $Team4 = GUICtrlRead($Input4)
    GUICtrlSetData($List4, $Team4)
    IniWrite(@ScriptDir & "\Teams.ini", "Gruppe D", $GruppeD & ")", $Team4)
    GUICtrlSetData($Input4, "")
    $GruppeD += 1
    Case $weg1
    GUICtrlSetData($List1, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe A")
    Case $weg2
    GUICtrlSetData($List2, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe B")
    Case $weg3
    GUICtrlSetData($List3, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe C")
    Case $weg4
    GUICtrlSetData($List4, "")
    IniDelete(@ScriptDir & "\Teams.ini", "Gruppe D")
    Case $Abbrechen
    FileDelete(@ScriptDir & "\Teams.ini")
    Exit
    Case $Weiter
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • Daten aus einer Liste in .ini schreiben

    Das ist eine For-Schleife, schau sie dir mal in der Hilfe an. Sie bedeutet:

    [autoit]


    Global $Input[6] ;Erzeugt ein Array mit 6 Elementen

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

    For $i = 0 To 5 ;Für $i (Eine Variable für diese Schleife) = 0 bis 5: Durchläuft die Schleife sooft, bis $i den Wert 5 hat. Bei jedem Durchlauf wird $i um 1 erhöht
    $Input[$i] = InputBox("Eingabe", "Gib den " & $i+1 & ". Wert ein:") ;Die Werte werden in dem Array gespeichert
    IniWrite(@ScriptDir & "\data.ini", "Input Werte", "Wert" & $i, $Input[$i]) ;Die Werte werden aus dem Array in eine .ini gespeichert
    Next ;Schleife wird beendet

    [/autoit]

  • Daten aus einer Liste in .ini schreiben

    Meinst du so?:

    [autoit]


    Global $Input[6]

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

    For $i = 0 To 5
    $Input[$i] = InputBox("Eingabe", "Gib den " & $i+1 & ". Wert ein:")
    IniWrite(@ScriptDir & "\data.ini", "Input Werte", "Wert" & $i, $Input[$i])
    Next

    [/autoit]

    Abfrage später mit

    [autoit]

    IniRead()

    [/autoit]

  • Funktion stoppen?

    Versuch mal die Funktion:

    [autoit]


    #include<Misc.au3>
    _IsPressed()

    [/autoit]

    Die Parameter stehen in der Hilfe.
    Setz einfach eine Abfrage in deine While-Schleife.

    [autoit]


    While 1
    ;Blablabla
    If _IsPressed("58") Then ExitLoop
    WEnd

    [/autoit]

  • GDI+: Star Wars: Laserschwert Maler

    Hi,
    Ich hab einen Laserschwert Maler gemacht, und stelle ihn hier vor.
    Mit ihm kann man Laserschwerter in Bilder einmalen.
    Einstellbar ist bis jetzt:
    -Die Farbe
    -Die Breite der Klinge
    -Die Breite des Scheins
    -Die Transparent des Scheins

    Hier ist das Skript:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>
    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

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

    Opt("MouseCoordMode", 2)
    Opt("GUICloseOnESC", 0)

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

    _GDIPlus_Startup()

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

    Global $GUIEinstellungenWidth = 300
    Global $GUIEinstellungenHeight = 150

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

    Global $hPath = _GDIPlus_PathCreate(0)
    Global $hCustomLineCap = _GDIPlus_CustomLineCapCreate(0, $hPath)
    Global $GUIWidth = 500
    Global $GUIHeight = 500
    Global $hImage
    Global $hImageHeight
    Global $hImageWidth
    Global $SchonGedrucktLinks = False
    Global $SchonGedrucktRechts = False
    Global $Punkt1
    Global $Punkt2
    Global $BladeWidth = 10
    Global $BildImported = False
    Global $BildTransparents = -1
    Global $BreiteSchein = 2
    Global $Farbe = '0000CD'

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

    _GDIPlus_CustomLineCapSetStrokeCaps($hCustomLineCap, 2, 2)
    $avCaps = _GDIPlus_CustomLineCapGetStrokeCaps($hCustomLineCap)
    _GDIPlus_CustomLineCapSetStrokeCaps($hCustomLineCap, 1, 2)
    $avCapsBlade = _GDIPlus_CustomLineCapGetStrokeCaps($hCustomLineCap)

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

    Global $GUIEinstellungen = GUICreate("Bearbeitung", $GUIEinstellungenWidth, $GUIEinstellungenHeight, -1, 10)
    Global $EinstellungenMenu = GUICtrlCreateMenu("Datei")
    Global $EinstellungenMenuImport = GUICtrlCreateMenuItem("Bild importieren", $EinstellungenMenu)
    Global $EinstellungenMenuExport = GUICtrlCreateMenu("Bild exportieren", $EinstellungenMenu)
    Global $EinstellungenMenuExportPNG = GUICtrlCreateMenuItem("Als PNG", $EinstellungenMenuExport)
    Global $EinstellungenMenuExportJPG = GUICtrlCreateMenuItem("Als JPG", $EinstellungenMenuExport)
    Global $EinstellungenMenuExportBMP = GUICtrlCreateMenuItem("Als BMP", $EinstellungenMenuExport)
    Global $EinstellungenMenuExit = GUICtrlCreateMenuItem("Exit", $EinstellungenMenu)
    Global $HelpMenu = GUICtrlCreateMenu("Help")
    Global $Label1 = GUICtrlCreateLabel("Transparents:", 10, 10, 65, 15)
    Global $UpDownTransparentsInput = GUICtrlCreateInput(-$BildTransparents, 110, 7, 35, 20)
    Global $UpDownTransparents = GUICtrlCreateUpdown($UpDownTransparentsInput)
    GUICtrlSetLimit($UpDownTransparents, 10, 1)
    Global $Label2 = GUICtrlCreateLabel("Breite des Scheins:", 10, 30, 100, 15)
    Global $UpDownScheinInput = GUICtrlCreateInput($BreiteSchein, 110, 30, 35, 20)
    Global $UpDownSchein = GUICtrlCreateUpdown($UpDownScheinInput)
    GUICtrlSetLimit($UpDownSchein, 10, 1)
    Global $Label3 = GUICtrlCreateLabel("Klingenbreite:", 10, 50, 65, 15)
    Global $UpDownBladeInput = GUICtrlCreateInput($BladeWidth, 110, 50, 35, 20)
    Global $UpDownBlade = GUICtrlCreateUpdown($UpDownBladeInput)
    GUICtrlSetLimit($UpDownBlade, 50, 1)
    Global $FarbButton = GUICtrlCreateButton("Farbe", 160, 10, 130, 60)
    GUICtrlSetBkColor($FarbButton, '0x' & $Farbe)
    Global $HelpMenuAbout = GUICtrlCreateMenuItem("About", $HelpMenu)
    GUISetState()

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

    Global $GUI = GUICreate("Laserschwert v1.0", $GUIWidth, $GUIHeight, -1, -1)
    GUISetState()

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

    $GDIPlusGUI = _GDIPlus_GraphicsCreateFromHWND($GUI)
    $Bitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $GDIPlusGUI)
    $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
    _GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)
    If $BildImported = False Then _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    $BrushWhite = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    $PenBlack = _GDIPlus_PenCreate(0xFF000000, 1, 2)
    $PenWhite = _GDIPlus_PenCreate('0x' & Hex(220, 2) & 'FFFFFF', $BladeWidth, 2)
    $PenRedTransparent1 = _GDIPlus_PenCreate('0x' & Hex(50, 2) & $Farbe, $BladeWidth * 3, 2)

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

    _GDIPlus_PenSetLineCap($PenWhite, $avCapsBlade[0], $avCapsBlade[1], 0)
    _GDIPlus_PenSetLineCap($PenRedTransparent1, $avCaps[0], $avCaps[1], 0)

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

    GUIRegisterMsg($WM_PAINT, "_WM_PAINT")

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

    _WM_PAINT()

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    $MsgExitQuestion = MsgBox(0 + 4, "Achtung", "Wollen Sie das Programm wirklich beenden? Alle nicht gespeicherten Daten gehen verloren!")
    If $MsgExitQuestion = 6 Then _Exit()
    If $MsgExitQuestion = 7 Then Sleep(0)
    Case $GUI_EVENT_RESTORE
    _WM_PAINT()
    Case $UpDownTransparents
    $InputReadTransparents = GUICtrlRead($UpDownTransparentsInput)
    $BildTransparents = -$InputReadTransparents
    Case $UpDownSchein
    $InputReadSchein = GUICtrlRead($UpDownScheinInput)
    $BreiteSchein = $InputReadSchein
    Case $UpDownBlade
    $InputReadBlade = GUICtrlRead($UpDownBladeInput)
    $BladeWidth = $InputReadBlade
    Case $FarbButton
    $Farbe = StringTrimLeft(_ChooseColor(2), 2)
    GUICtrlSetBkColor($FarbButton, '0x' & $Farbe)
    Case $HelpMenuAbout
    MsgBox(64, "About", "Dies ist ein Programm, um Laserschwerter aus ""Star Wars"" in ein Bild einzuzeichnen." & @CRLF & @CRLF & "©All Rights Reserved by Clezz.")
    Case $EinstellungenMenuExportPNG
    _GDIPlus_ImageSaveToFile($Bitmap, FileSaveDialog("Bild speichern", @ScriptDir, "PNG (*.png)", 16) & ".png")
    Case $EinstellungenMenuExportJPG
    _GDIPlus_ImageSaveToFile($Bitmap, FileSaveDialog("Bild speichern", @ScriptDir, "JPG (*.jpg)", 16) & ".jpg")
    Case $EinstellungenMenuExportBMP
    _GDIPlus_ImageSaveToFile($Bitmap, FileSaveDialog("Bild speichern", @ScriptDir, "BMP (*.bmp)", 16) & ".bmp")
    Case $EinstellungenMenuExit
    $MsgExitQuestion = MsgBox(0 + 4, "Achtung", "Wollen Sie das Programm wirklich beenden? Alle nicht gespeicherten Daten gehen verloren!")
    If $MsgExitQuestion = 6 Then _Exit()
    If $MsgExitQuestion = 7 Then Sleep(0)
    Case $EinstellungenMenuImport
    $BildPfad = FileOpenDialog("Bild öffnen", @DesktopDir, "Bilddateien (*.jpg;*.bmp;*.png)", 1 + 2)
    If Not @error Then
    $BildImported = True
    $hImage = _GDIPlus_ImageLoadFromFile($BildPfad)
    If $hImage = -1 Then
    $BildImported = False
    MsgBox(32, "Fehler", "Fehler beim Laden des Bildes.")
    Else
    $hImageHeight = _GDIPlus_ImageGetHeight($hImage)
    $hImageWidth = _GDIPlus_ImageGetWidth($hImage)
    If $hImageHeight = -1 Then
    $BildImported = False
    MsgBox(32, "Fehler", "Fehler beim Laden des Bildes.")
    ElseIf $hImageWidth = -1 Then
    $BildImported = False
    MsgBox(32, "Fehler", "Fehler beim Laden des Bildes.")
    Else
    $GUIHeight = $hImageHeight
    $GUIWidth = $hImageWidth
    WinMove($GUI, "", @DesktopWidth / 2 - $GUIWidth / 2, @DesktopHeight / 2 - $GUIHeight / 2, $GUIWidth, $GUIHeight, 2)
    $GDIPlusGUI = _GDIPlus_GraphicsCreateFromHWND($GUI)
    $Bitmap = _GDIPlus_BitmapCreateFromGraphics($hImageWidth, $hImageHeight, $GDIPlusGUI)
    $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
    _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    _GraphicsDrawImageRect()
    _WM_PAINT()
    EndIf
    EndIf
    EndIf
    EndSwitch
    If _IsPressed("01") And $SchonGedrucktRechts = False Then
    $SchonGedrucktLinks = True
    $Punkt1 = MouseGetPos()
    If $BildImported = False Then _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    If $BildImported = True Then
    _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    _GraphicsDrawImageRect()
    EndIf
    _GDIPlus_GraphicsFillRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $PenBlack)
    _WM_PAINT()
    EndIf
    If _IsPressed("01") And $SchonGedrucktRechts = True Then
    $SchonGedrucktLinks = True
    $Punkt1 = MouseGetPos()
    _GDIPlus_GraphicsFillRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $PenBlack)

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

    _GDIPlus_GraphicsFillRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $PenBlack)

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

    If $BildImported = False Then _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    If $BildImported = True Then
    _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    _GraphicsDrawImageRect()
    EndIf
    For $i = 20 To 0 Step $BildTransparents
    _GDIPlus_PenDispose($PenRedTransparent1)
    $PenRedTransparent1 = _GDIPlus_PenCreate('0x' & Hex($i, 2) & $Farbe, $i * $BreiteSchein, 2)
    _GDIPlus_PenSetLineCap($PenRedTransparent1, $avCaps[0], $avCaps[1], 0)
    _GDIPlus_GraphicsDrawLine($Buffer, $Punkt1[0], $Punkt1[1], $Punkt2[0], $Punkt2[1], $PenRedTransparent1)
    Next

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

    $PenWhite = _GDIPlus_PenCreate('0x' & Hex(250, 2) & 'FFFFFF', $BladeWidth, 2)
    _GDIPlus_PenSetLineCap($PenWhite, $avCapsBlade[0], $avCapsBlade[1], 0)
    _GDIPlus_GraphicsDrawLine($Buffer, $Punkt1[0], $Punkt1[1], $Punkt2[0], $Punkt2[1], $PenWhite)
    _GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)

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

    _WM_PAINT()
    EndIf
    If _IsPressed("02") And $SchonGedrucktLinks = False Then
    $SchonGedrucktRechts = True
    $Punkt2 = MouseGetPos()
    If $BildImported = False Then _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    If $BildImported = True Then
    _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    _GraphicsDrawImageRect()
    EndIf
    _GDIPlus_GraphicsFillRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $PenBlack)
    _WM_PAINT()
    EndIf
    If _IsPressed("02") And $SchonGedrucktLinks = True Then
    $SchonGedrucktRechts = True
    $Punkt2 = MouseGetPos()
    _GDIPlus_GraphicsFillRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt1[0], $Punkt1[1], 5, 5, $PenBlack)

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

    _GDIPlus_GraphicsFillRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $BrushWhite)
    _GDIPlus_GraphicsDrawRect($Buffer, $Punkt2[0], $Punkt2[1], 5, 5, $PenBlack)

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

    If $BildImported = False Then _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    If $BildImported = True Then
    _GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
    _GraphicsDrawImageRect()
    EndIf
    For $i = 20 To 0 Step $BildTransparents
    _GDIPlus_PenDispose($PenRedTransparent1)
    $PenRedTransparent1 = _GDIPlus_PenCreate('0x' & Hex($i, 2) & $Farbe, $i * $BreiteSchein, 2)
    _GDIPlus_PenSetLineCap($PenRedTransparent1, $avCaps[0], $avCaps[1], 0)
    _GDIPlus_GraphicsDrawLine($Buffer, $Punkt1[0], $Punkt1[1], $Punkt2[0], $Punkt2[1], $PenRedTransparent1)
    Next

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

    $PenWhite = _GDIPlus_PenCreate('0x' & Hex(250, 2) & 'FFFFFF', $BladeWidth, 2)
    _GDIPlus_PenSetLineCap($PenWhite, $avCapsBlade[0], $avCapsBlade[1], 0)
    _GDIPlus_GraphicsDrawLine($Buffer, $Punkt1[0], $Punkt1[1], $Punkt2[0], $Punkt2[1], $PenWhite)
    _GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)

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

    _WM_PAINT()
    EndIf
    WEnd

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

    Func _Exit()
    _GDIPlus_CustomLineCapDispose($hCustomLineCap)
    _GDIPlus_PathDispose($hPath)
    _GDIPlus_PenDispose($PenWhite)
    _GDIPlus_PenDispose($PenBlack)
    _GDIPlus_BrushDispose($BrushWhite)
    _GDIPlus_GraphicsDispose($Buffer)
    _GDIPlus_BitmapDispose($Bitmap)
    _GDIPlus_GraphicsDispose($GDIPlusGUI)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_Exit

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

    Func _GraphicsDrawImageRect()
    _GDIPlus_GraphicsDrawImageRect($Buffer, $hImage, 0, 0, $hImageWidth, $hImageHeight)
    EndFunc ;==>_GraphicsDrawImageRect

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

    Func _WM_PAINT()
    If $BildImported = False Then _GDIPlus_GraphicsDrawImageRect($GDIPlusGUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)
    If $BildImported = True Then _GDIPlus_GraphicsDrawImageRect($GDIPlusGUI, $Bitmap, 0, 0, $hImageWidth, $hImageHeight)
    EndFunc ;==>_WM_PAINT

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

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;Folgende Funktionen sind aus der GDIP.au3 kopiert:;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

    Func _GDIPlus_CustomLineCapCreate($hPathFill, $hPathStroke, $iLineCap = 0, $nBaseInset = 0)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateCustomLineCap", "hwnd", $hPathFill, "hwnd", $hPathStroke, "int", $iLineCap, "float", $nBaseInset, "int*", 0)

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

    If @error Then Return SetError(@error, @extended, 0)
    $GDIP_STATUS = $aResult[0]
    Return $aResult[5]
    EndFunc ;==>_GDIPlus_CustomLineCapCreate

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

    Func _GDIPlus_PathCreate($iFillMode = 0)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreatePath", "int", $iFillMode, "int*", 0)

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

    If @error Then Return SetError(@error, @extended, 0)
    $GDIP_STATUS = $aResult[0]
    Return $aResult[2]
    EndFunc ;==>_GDIPlus_PathCreate

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

    Func _GDIPlus_PathDispose($hPath)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPath)

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

    If @error Then Return SetError(@error, @extended, False)
    $GDIP_STATUS = $aResult[0]
    Return $aResult[0] = 0
    EndFunc ;==>_GDIPlus_PathDispose

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

    Func _GDIPlus_CustomLineCapSetStrokeCaps($hCustomLineCap, $iStartCap, $iEndCap)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetCustomLineCapStrokeCaps", "hwnd", $hCustomLineCap, "int", $iStartCap, "int", $iEndCap)

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

    If @error Then Return SetError(@error, @extended, False)
    $GDIP_STATUS = $aResult[0]
    Return $aResult[0] = 0
    EndFunc ;==>_GDIPlus_CustomLineCapSetStrokeCaps

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

    Func _GDIPlus_CustomLineCapGetStrokeCaps($hCustomLineCap)
    Local $aCaps[2], $aResult

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

    $aResult = DllCall($ghGDIPDll, "uint", "GdipGetCustomLineCapStrokeCaps", "hwnd", $hCustomLineCap, "int*", 0, "int*", 0)
    If @error Then Return SetError(@error, @extended, -1)

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

    $GDIP_STATUS = $aResult[0]
    If $GDIP_STATUS Then Return -1
    $aCaps[0] = $aResult[2]
    $aCaps[1] = $aResult[3]
    Return $aCaps
    EndFunc ;==>_GDIPlus_CustomLineCapGetStrokeCaps

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

    Func _GDIPlus_PenSetLineCap($hPen, $iStartCap, $iEndCap, $iDashCap)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetPenLineCap197819", "hwnd", $hPen, "int", $iStartCap, "int", $iEndCap, "int", $iDashCap)

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

    If @error Then Return SetError(@error, @extended, False)
    $GDIP_STATUS = $aResult[0]
    Return $aResult[0] = 0
    EndFunc ;==>_GDIPlus_PenSetLineCap

    [/autoit]

    Und noch einige Bilder, allerdings habe ich bei den Beispielbildern auf einen weißen Untergrund gezeichnet:

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


    //Edit: Bitte Feedback geben. Danke :thumbup:
    Achja, Hab ich vergessen zu sagen: Für den ersten Punkt macht man einen Linksklick, und für den zweiten Punkt einen Rechtsklick, dann erscheint das Lichtschwert.

  • DLL-Dateien erstellen (nicht mit AutoIt)?

    Für PNG geht es so (Hat mir BugFix gezeigt :D :( Schau dir das Beispiel im Anhang an, ein Skript, mit einer Dll, dann siehst du wie es geht.
    Das Skript (funktioniert nur mit der Dll im Anhang, oder pass es an deine Dll an.):

    Spoiler anzeigen
    [autoit]

    #include <WinAPI.au3>
    #include <Memory.au3>
    #include <GDIPlus.au3>
    #include <StaticConstants.au3>
    #include <Constants.au3>

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

    Opt("MustDeclareVars", 1)

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

    Global Const $STM_SETIMAGE = 370

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

    GUICreate("TestPNG")

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

    Global $bBinary = _ResourceGetAsRaw(@ScriptDir & "\Bild.dll", "PNG", "STADT") ; PNG is type and number 1 is name
    Global $iWidth = 400
    Global $iHeight = 400
    Global $hPNG = _CreateHBitmapFromBinaryImage($bBinary, $iWidth, $iHeight)

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

    Global $hPicControl = GUICtrlCreatePic("", 10, 10, $iWidth, $iHeight) ;Position des Bildes
    ConsoleWrite($iWidth & " x " & $iHeight & @CRLF)

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

    _WinAPI_DeleteObject(GUICtrlSendMsg($hPicControl, $STM_SETIMAGE, 0, $hPNG))
    _WinAPI_DeleteObject($hPNG)

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

    GUISetState()

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

    While 1
    If GUIGetMsg() = -3 Then Exit
    WEnd

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

    Func _ResourceGetAsRaw($sModule, $vResType, $vResName, $iResLang = 0)

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

    Local $hResDll = _WinAPI_LoadLibraryEx($sModule, $LOAD_LIBRARY_AS_DATAFILE)
    If @error Then Return SetError(1, 0, 0)

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

    Local $sTypeType = "wstr"
    If IsNumber($vResType) Then $sTypeType = "int"

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

    Local $sNameType = "wstr"
    If IsNumber($vResName) Then $sNameType = "int"

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

    Local $aCall = DllCall("kernel32.dll", "handle", "FindResourceExW", _
    "handle", $hResDll, _
    $sTypeType, $vResType, _
    $sNameType, $vResName, _
    "int", $iResLang)
    If @error Or Not $aCall[0] Then
    _WinAPI_FreeLibrary($hResDll)
    Return SetError(2, 0, 0)
    EndIf

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

    Local $hResource = $aCall[0]

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

    $aCall = DllCall("kernel32.dll", "int", "SizeofResource", "handle", $hResDll, "handle", $hResource)
    If @error Or Not $aCall[0] Then
    _WinAPI_FreeLibrary($hResDll)
    Return SetError(3, 0, 0)
    EndIf

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

    Local $iSizeOfResource = $aCall[0]

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

    $aCall = DllCall("kernel32.dll", "handle", "LoadResource", "handle", $hResDll, "handle", $hResource)
    If @error Or Not $aCall[0] Then
    _WinAPI_FreeLibrary($hResDll)
    Return SetError(4, 0, 0)
    EndIf

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

    $hResource = $aCall[0]

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

    $aCall = DllCall("kernel32.dll", "ptr", "LockResource", "handle", $hResource)
    If @error Or Not $aCall[0] Then
    _WinAPI_FreeLibrary($hResDll)
    Return SetError(5, 0, 0)
    EndIf

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

    Local $pResource = $aCall[0]

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

    Local $tBinary = DllStructCreate("byte[" & $iSizeOfResource & "]", $pResource)
    Local $bBinary = DllStructGetData($tBinary, 1)

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

    _WinAPI_FreeLibrary($hResDll)

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

    Return $bBinary

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

    EndFunc ;==>_ResourceGetAsRaw

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

    Func _CreateHBitmapFromBinaryImage($bBinary, ByRef $iWidth, ByRef $iHeight)

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

    Local $iSize = BinaryLen($bBinary)

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

    Local $hMemGlobal = _MemGlobalAlloc($iSize, $GMEM_MOVEABLE)
    If @error Then Return SetError(1, 0, 0)

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

    Local $pMemory = _MemGlobalLock($hMemGlobal)
    If @error Then
    _MemGlobalFree($hMemGlobal)
    Return SetError(2, 0, 0)
    EndIf

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

    Local $tBinary = DllStructCreate("byte[" & $iSize & "]", $pMemory)
    DllStructSetData($tBinary, 1, $bBinary)

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

    Local $aCall = DllCall("ole32.dll", "long", "CreateStreamOnHGlobal", _
    "handle", $pMemory, _
    "int", 1, _ ; automatically free
    "ptr*", 0)

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

    If @error Or $aCall[0] Then
    _MemGlobalFree($hMemGlobal)
    Return SetError(3, 0, 0)
    EndIf

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

    Local $pStream = $aCall[3]

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

    _MemGlobalUnlock($pMemory)
    If @error Then Return SetError(4, 0, 0)

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

    _GDIPlus_Startup()
    $aCall = DllCall($ghGDIPDll, "dword", "GdipCreateBitmapFromStream", _
    "ptr", $pStream, _
    "ptr*", 0)

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

    If @error Or $aCall[0] Then
    _GDIPlus_Shutdown()
    _MemGlobalFree($hMemGlobal)
    Return SetError(5, 0, 0)
    EndIf

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

    Local $pBitmap = $aCall[2]

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

    $aCall = DllCall($ghGDIPDll, "dword", "GdipGetImageDimension", _
    "handle", $pBitmap, _
    "float*", 0, _
    "float*", 0)

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

    If @error Or $aCall[0] Then
    _GDIPlus_ImageDispose($pBitmap)
    _GDIPlus_Shutdown()
    _MemGlobalFree($hMemGlobal)
    Return SetError(6, 0, 0)
    EndIf

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

    $iWidth = $aCall[2]
    $iHeight = $aCall[3]

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

    Local $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($pBitmap)
    If @error Then
    _GDIPlus_ImageDispose($pBitmap)
    _GDIPlus_Shutdown()
    _MemGlobalFree($hMemGlobal)
    Return SetError(7, 0, 0)
    EndIf

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

    _GDIPlus_ImageDispose($pBitmap)
    _GDIPlus_Shutdown()
    _MemGlobalFree($hMemGlobal)

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

    Return $hBitmap

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

    EndFunc ;==>_CreateHBitmapFromBinaryImage

    [/autoit]