Laufschrift

[Falko]

Ich habe nun nicht alles mitgelesen, aber vielleicht mittels Webgadget.

Code: Alles auswählen

If OpenWindow(0, 0, 0, 600, 300, "Scroll with WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    WebGadget(0, 0, 0, 600, 40,"")
    SetGadgetItemText(0, #PB_Web_HtmlCode,"<marquee height="+Chr(34)+"100%"+Chr(34)+" scrolldelay="+Chr(34)+"110"+Chr(34)+" width="+Chr(34)+"100%"+Chr(34)+">Hier meine Laufschrift</marquee>")
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Und hier noch ein älterer Source von teacho, welchen ich nach
PB 4.2 umgestellt habe.

Code: Alles auswählen

;Autor: teachco
;http://www.purebasic.fr/german/archive/viewtopic.php?p=28316#28316
;Angepasst in PB 4.2 von Falko

Global x
Global y
Global stringtext.s
x = 0
y = 0
stringtext.s = "Test"

Procedure titelanzeige(wert)
 
  Repeat   
    ClearScreen($FFFFFF)
    StartDrawing(ScreenOutput())
      laenge = Len(stringtext)
      DrawingMode(1)
      DrawText(x,y,stringtext)
    StopDrawing()
    FlipBuffers()
    x - 1
    If x < (0 - (laenge + 5))
      x = 70 + 5
    EndIf
  ForEver
 
EndProcedure


InitSprite()
OpenWindow(0,200,200,100,100,"Testfenster - 2",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
   
If OpenWindowedScreen(WindowID(0),10,10,70,20,0,0,0)

  CreateThread(@titelanzeige(),23)
 
  Repeat

    eventid = WaitWindowEvent()
    If eventid = #PB_Event_CloseWindow
      ende = 1
    EndIf
 
   
 
  Until ende = 1
 
EndIf

Gruß Falko