PureBasic Forums - English

Code: Select all

;Simple Multicolored Text
;by einander
;
Macro GetCharPos(STR,Po) :  TextWidth(Left(STR,Po-1)) : EndMacro

Procedure CharRGB(x,y,A$,POS,TextRGB,BackRGB)
    DrawText(GetCharPos(A$,POS)+x ,y,Mid(A$,POS,1),TextRGB,BackRGB) 
EndProcedure

Macro RRGB:Random(#White):EndMacro

;<<<<<<<<<<<<<<<<<<<< Test It <<<<<<<<<<<<<<<<<<
CreateGadgetList(OpenWindow(0, 100, 100,700,500 ,"Simple Multicolored Text"))
Wi=WindowWidth(0):He=WindowHeight(0)
ImGad=ImageGadget(#PB_Any,0,0,0,0,0)
IMG=CreateImage(#PB_Any,Wi,He,32)

Text$="Multicolored text example"
FontID=FontID(LoadFont(-1,"arial",36))
 
StartDrawing(ImageOutput(IMG))
DrawingFont(FontID)
For POS= 1 To Len(Text$)
    CharRGB(100,50,Text$,POS,RRGB,RRGB)
    CharRGB(100,150,"Black background",POS,RRGB,0)
    CharRGB(100,250,"Multicolored background",POS,#White,RRGB) 
Next
T$="Invert selected text color"
DrawText(100,350,T$,#Blue,#Cyan) 
For POS= 8 To 15
    CharRGB(100,350,T$,POS,#Cyan,#Blue) ; overwrite selection
Next

StopDrawing()
SetGadgetState(ImGad,ImageID(IMG))
   
Repeat :Until WaitWindowEvent()=#PB_Event_CloseWindow