PureBoard

DarkDragon hat geschrieben:@ts-soft: Extra für dich schreib ich das jetzt in meinen Wohnort.

Pelagio hat geschrieben:Hallo,

unter einer früheren PB Version hatte ich ein Informationstext innerhalb eines Fensters laufen lassen.
Dieses Programm wollte ich jetzt auf PB 4.4 ändern. Hierdurch habe ich festgestellt dass ein Text welcher
nicht größer als das Image ist funktioniert aber ein Text der größer ist wird einfach abgeschnitten.
Ich kann mir auch vorstellen warum, allerdings vorher funktionierte es, jetzt nicht?
Ist dies so gewollt? Wenn ja wie kann ich jetzt meinen Lauftext korrekt laufen lassen?
Zeichenweise zu verschieben ist mir zu ruckelig.

Code: Alles auswählen

Procedure Lauftext(vText.s)
   Protected pValue.s, pFont.l = LoadFont(0, "Courier NEW", 24, #PB_Font_Bold)
   Static x.l = 420

   If StartDrawing(ImageOutput(0))
      DrawingFont(pFont)
      Box(0, 0, 420, 050, #Yellow)
      pValue = vText + Space(22)
      If (x<(420-TextWidth(pValue))): x = 420: Else: x - 1: EndIf
      DrawText(x, 10, pValue, #Blue, #Yellow)
      DrawingFont(#PB_Default)
      StopDrawing()
      SetGadgetState(0, ImageID(0))
   EndIf
EndProcedure

If OpenWindow(0, 0, 0, 440, 70, "Lauftext Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   CreateImage (0, 420, 050)
   ImageGadget (0, 010, 010, 420, 050, ImageID(0))
EndIf

AddWindowTimer(0, 0, 20) 
Repeat 
   Select WaitWindowEvent()
      Case #PB_Event_CloseWindow: Break
      Case #PB_Event_Timer      : Lauftext("Dies ist ein Lauftext Versuch")
   EndSelect
ForEver

End

Sebastian hat geschrieben:Ich bin schon so hibbelig: Hat schon jemand einen Tipp erhalten, wann die final erscheinen wird?

ts-soft hat geschrieben:

Sebastian hat geschrieben:Ich bin schon so hibbelig: Hat schon jemand einen Tipp erhalten, wann die final erscheinen wird?

Montag

ts-soft hat geschrieben:Montag

Falko hat geschrieben: Freitag