Hex in String zu Hex, oder anderes Problem?

  • Wie einige in der Shoutbox gelesen haben, habe ich ein Problem.
    Ich experimentiere mit eigenen Bildformaten xD:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    $handle=FileOpen("C:\colors.jpf",1)
    $color=""
    for $y=1 to 76 ;testweise nicht 768
    for $x=1 to 102 ;dito
    ToolTip($x & "," & $y,0,0)
    $color=$color & String(hex(PixelGetColor($x,$y),6))
    Next
    FileWriteLine($handle,$color)
    $color=""
    Next
    FileClose($handle)
    $handle=FileOpen("C:\colors.jpf",0)
    GUICreate("Draw")
    $field=GUICtrlCreateGraphic(0,0)
    GUICtrlSetBkColor(-1, 0xffffff)
    for $y=1 to 76
    $color=FileReadLine($handle,$y)
    for $x=1 to 102
    $work=StringLeft($color,6)
    StringTrimLeft($color,6)
    GUICtrlSetColor($field, Hex(Int('0x' & $work),6))
    ;~ Msgbox(0,"","0x" & $work)
    GUICtrlSetGraphic($field,$GUI_GR_PIXEL,$x,$y)
    Next
    Next
    GUISetState()
    Sleep(3000)

    [/autoit]


    Funktioniert leider nicht..., schwarzes bild, oder ist es ein anderer Fehler?
    Ich seh irgendwie das Problem nicht... :S

    edit:Problem gelöst, GUICtrlSetGraphic($field,$GUI_GR_COLOR,'0x' & $work) war nötig

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    Einmal editiert, zuletzt von L3viathan2142 (8. Januar 2009 um 16:18)