- Left - Center - Right Text
- Different border style
- Any font size
And More
Code: Select all
Global gw,gh,padw,padh
Procedure sTEXT(gad,text$,bColor,fColor,align,padw,padh,border)
cont = ContainerGadget(#PB_Any,10,10,10,10,border)
TextGadget(gad, 0, 0, 0, 0,text$, align)
CloseGadgetList()
SetGadgetFont(gad,FontID(0))
gw = GadgetWidth(gad,#PB_Gadget_RequiredSize)
gh = GadgetHeight(gad,#PB_Gadget_RequiredSize)
SetGadgetColor( cont,#PB_Gadget_BackColor,bColor)
SetGadgetColor( gad,#PB_Gadget_BackColor,bColor)
SetGadgetColor( gad,#PB_Gadget_FrontColor,fColor)
ResizeGadget(cont,10,10,gw+padw*4,gh+padh*2)
If align = #PB_Text_Center
ResizeGadget(gad,padw,padh,gw+padw*2,gh)
ElseIf align = #PB_Text_Right
ResizeGadget(gad,padw*3,padh,gw,gh)
Else
ResizeGadget(gad,padw,padh,gw,gh)
EndIf
EndProcedure
If OpenWindow(0, 0, 0, 0, 0, "TextGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
fSize = 32
LoadFont(0,"Georgia",fSize)
padw = 20 ;Hal padding
padh = 20 ;Val padding
padh - fSize/4
text$ = "TextGadget Center"+#CRLF$+"Second Line"
sTEXT(1,text$,$CCFEFF,$2027FE,2,padw,padh,4) ;align : 0=left - 1=center - 2=right
;border : 0=Borderless - 1=Flat 2=Raised - 3=Single - 4=Double
ResizeWindow(0,0,0,gw+padw*4+20,gh+padh*2+20)
HideWindow(0,0,#PB_Window_ScreenCentered)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf