Page 1 of 1
flashing text for TextGadget?
Posted: Sat May 02, 2020 2:59 pm
by smacker
Is there an easy way with PB to flash the text of a TextGadget (or for any other gadget with text)?
for example;
Code: Select all
If OpenWindow(0, 0, 0, 270, 160, "flash text?", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget(0, 10, 10, 250, 20, "want to flash this text")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
how would I get the "want to flash this text" to flash for as long as I wished, including 'forever', at the rate I wish ?
Re: flashing text for TextGadget?
Posted: Sat May 02, 2020 3:27 pm
by RASHAD
Hi
Code: Select all
If OpenWindow(0, 0, 0, 270, 160, "flash text?", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget(0, 10, 10, 250, 24, " want to flash this text")
ButtonGadget(1,10,120,60,24,"RUN")
AddWindowTimer(0,125,500)
bcolor = $AFFEFE
fcolor = $050DFF
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Timer
If Run = 1
bcolor = bcolor ! $FFFFFF
fcolor = fcolor ! $FFFFFF
SetGadgetColor(0,#PB_Gadget_BackColor,bcolor)
SetGadgetColor(0,#PB_Gadget_FrontColor,fcolor)
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Run ! 1
EndSelect
EndSelect
Until Quit = 1
EndIf
Re: flashing text for TextGadget?
Posted: Sat May 02, 2020 5:59 pm
by smacker
Thank you RASHAD
