PureBoard

Leider sehe ich nur einen schwarzen Bildschrim

Vielleicht liegt es auch an den unterschiedlichen Farbkonstanten unter Windows/Linux.
Versuchs mal mit dieser Version:
InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v: EndIf
EndMacro:w=29:h=19:s=25:OpenWindowedScreen ...

Blöde Frage sicherlich, aber wie kann ich steuern? Er läuft immer nur nach rechts durch Bild, aber ich scheine keinen Fokus darauf kriegen zu können. Weder Pfeiltasten, noch WASD funktionieren.


Kann es sein, dass bei dir die Konstanten für die Pfeiltasten anders sind, als bei mir?

Meine Werte ...

Hier, nur so Spaß - eine etwas komprimiertere Version :)
InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v; SNAKE
EndIf:EndMacro:w=29:h=19:s=25:g=#Green:b=#Gray:Dim f(w,h):m=10:n=10; _____| _
OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0,w*s+s,h*s+s ...

Sehr gut

so in etwa?


Global zaehler.l, x.l,y.l,xypos.l

InitSprite()

OpenWindow(0,0,0,800,600,"sprite",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),10,10,300,300,0,0,0)

CreateSprite(1,256,256,#PB_Sprite_PixelCollision)

StartDrawing(SpriteOutput(1 ...

Ich will ja nicht kleinlich sein, aber einen klitzekleinen Hinweis auf den Originalautor des Editors (meine Wenigkeit) fänd ich schon angemessen.
Immerhin hast du das Teil zu 100% aus dem Codearchiv übernommen und bloß mit ein paar Zusatzfunktionen versehen.
Ich mein ja nur... weil du ja von "deinem ...

Dafür nimmst du das EditorGadget mit dem Flag #PB_Editor_WordWrap

OpenWindow(0,0,0,500,500,"Test")
EditorGadget(0,10,10,480,480,#PB_Editor_WordWrap)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow


wenn du allerdings den Text nach einer genauen Anzahl von Zeichen umbrechen willst, dann ...

EnumWindows verlangt 2 Parameter. Die Procedure müsste so aussehen (sonst gibts evtl. IMA):


Procedure EnumWindows(whwnd, lparam)
If IsWindowVisible_(whwnd)
Protected title$ = Space(1024)
GetWindowText_(whwnd, @title$, 1024)
If title$ = "Date 1.0"
hwnd = whwnd
ProcedureReturn #False
EndIf ...

Ich behaupte einfach mal, dass es ohne Weiteres nicht möglich ist, so von Aussen auf das fremde Programm einzuwirken.
(Es sei denn, es werden speziell dafür irgendwelche Schnittstellen zur Verfügung gestellt.)

Wenn du das handle des fremnden DateGadgets kennst, hilft dir das hier evtl weiter...


Procedure WriteDate(hDate, wYear.w,wMonth.w,wDay.w)
Protected hProc, pId, sysTime.SYSTEMTIME, *mem, result

If GetWindowThreadProcessId_(hDate, @pID)
hProc = OpenProcess_(#PROCESS_ALL_ACCESS, 0, pID)
If ...