
Nun mal Schluss mit Kindergarten spider. Poste den vollständigen Quelltext und die exakten Fehlermeldungen.
Code: Alles auswählen
Procedure makeNewImage()
Image2=CreateImage( #PB_Any,bildw-1,bildh)
FirstElement(Path())
;-Debug
If bildh<>ListSize(Path())
Debug "listsize: "
Debug ListSize(Path())
Debug bildh
EndIf
;------
flag=0
For y=0 To bildh-1
For x=0 To bildw-1
If Path()\x <> x
StartDrawing(ImageOutput(Image0))
Pixel=Point(x, y)
StopDrawing()
StartDrawing(ImageOutput(Image2))
Plot(x-flag, y,Pixel)
StopDrawing()
Else
flag=1
EndIf
Next x
NextElement(Path())
flag=0
Next y
FreeImage(Image0)
Image0=Image2
Global bildw=bildw-1
EndProcedure
Deinen Studienplatz haste wohl eingeklagt oder?es lässt sich ja auch ganz ohne code so erklären, dass es glasklar ist:
Darauf können wir gerne wetten wenn du möchtest.vermutlich habe ich aber bis dahin die Ratschläge der API-Leute aus dem Chat verwirklicht und verstanden wie SetDIBits funzen soll bzw. eine UserLib genutzt.
Genau das passiert jetztHeXOR hat geschrieben:-Also wird er einfach entnervt zum nächsten ungelesenen Beitrag übergehen und du hast Pech gehabt.