DisplayTextObjectFX
Posted: Tue Mar 31, 2026 3:57 pm
This instruction on Linux doesn't work DisplayTextObjectFX, the text isn't showed, any idea?
The Cross-Platform Multimedia Application Layer
https://www.hollywood-mal.com/forums/
Function p_Intro()
PlaySample(1, 1)
EnableLayers()
DisplayBrush(1, 0, 0) ;Cover.
DisplayTextObjectFX(1, 20, 80, {Type=#RECTCENTER, Speed=10})
DisplayTextObjectFX(2, 40, 120, {Type=#RECTCENTER, Speed=10})
DisplayTextObjectFX(3, 200, 150, {Type=#RECTCENTER, Speed=10})
Wait(55)
CloseDisplay(1)
CreateDisplay(2, {Title="Baphomet Screen Saver", Desktop=True, Active=True, NoModeSwitch=True,
Color=#BLACK, DisableBlanker=True})
;SetScreenTitle(#Head) ;MorphOS.
AnchoIntro=GetAttribute(#DISPLAY, 2, #ATTRWIDTH)
AltoIntro=GetAttribute(#DISPLAY, 2, #ATTRHEIGHT)
;Para resoluciones inferiores a 640 el salvapantallas no funciona.
If AnchoIntro<=640
CreateDisplay(3, {Title="Baphomet Screen Saver", Width=320, Height=180, Color=#BLACK, Borderless=True,
NoClose=False, KeepProportions=True, Sizeable=False, NoModeSwitch=True, Active=True})
OpenDisplay(3)
DisplayBrush(2, 0, 0) ;Aviso.
DisplayTextObjectFX(1, #CENTER, 0, {Type=#RECTCENTER, Speed=10})
DisplayTextObjectFX(2, #CENTER, 50, {Type=#RECTCENTER, Speed=10})
DisplayTextObjectFX(4, #CENTER, 110, {Type=#RECTCENTER, Speed=10})
Wait(120)
End()
Else
OpenDisplay(2)
FreeBrush(1) ;Cover.
FreeBrush(2) ;Aviso.
FreeTextObject(1) ;Liberamos el Texto Objeto 1.
FreeTextObject(2) ;Liberamos el Texto Objeto 2.
FreeTextObject(3) ;Liberamos el Texto Objeto 3.
FreeTextObject(4) ;Liberamos el Texto Objeto 4.
FreeDisplay(1) ;Cierra y elimina la portada.
HidePointer()
p_Variables()
p_Inicio()
EndIf
EndFunction
Code: Select all
Function p_Intro()
DisplayTextObjectFX(1, 20, 80, {Type=#RECTCENTER, Speed=2})
DisplayTextObjectFX(2, 40, 120, {Type=#RECTCENTER, Speed=10})
Wait(55)
CloseDisplay(1)
EndFunction
SetFontColor(#YELLOW)
CreateTextObject(1, "TextObject number one")
CreateTextObject(2, "TextObject number two")
p_Intro()