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