LB Booster
Programming >> Liberty BASIC language >> Setting fonts attributes for StaticText in Window
http://lbb.conforums.com/index.cgi?board=lblang&action=display&num=1498509702
Setting fonts attributes for StaticText in Window
Post by flotulopex on Jun 26th, 2017, 8:41pm

I've been trying to set a font type, size and color for "StaticText" labels in a window.

I reached to set the font name, size and attribute but how do I set the StaticText background color?

The BackGroundColor$ doesn't seem to do anything here :-/

Code:
NOMAINWIN

GRAPHICBOX #Side.GBx1,0,0,DisplayWidth,DisplayHeight
STYLEBITS  #Side.GBx1,0,_WS_BORDER,0,0
STATICTEXT #Side.STx1,"  AAAAAAA",10,20,200,20
STATICTEXT #Side.STx2,"  BBBBBBB",10,60,200,20

[SIDE]
   UpperLeftX   = 0
   UpperLeftY   = 0
   WindowWidth  = DisplayWidth
   WindowHeight = DisplayHeight
   ForegroundColor$ = "red"
   BackgroundColor$ = "blue"
   OPEN "SIDE" FOR window_popup AS #Side
   #Side "TRAPCLOSE [QuitSide]"
   #Side "font tahoma 12 bold"
   #Side.GBx1 "down; fill darkgreen"
   #Side.GBx1 "when leftButtonDown [MouseLeftButton]"
   WAIT

[QuitSide]
   CLOSE #Side
   END

[MouseLeftButton]
   IF (MouseX < 10 AND MouseY < 10) THEN [QuitSide] 'clic on top left = QUIT
   WAIT

Any idea?

Rog'
Re: Setting fonts attributes for StaticText in Win
Post by Richard Russell on Jun 26th, 2017, 9:35pm

on Jun 26th, 2017, 8:41pm, flotulopex wrote:
how do I set the StaticText background color?

The positioning of the BackgroundColor$ makes a difference; you need to set it before the STATICTEXT statement. This is an LBB extension; it allows you to set different background colors for different controls. It's called out in the LBB docs under New Features: "The background color of (for example) a STATICTEXT control may be selected independently of the background color of its parent window, by changing the value of the BackgroundColor$ variable in between".

Here is your program modified accordingly:

Code:
NOMAINWIN

GRAPHICBOX #Side.GBx1,0,0,DisplayWidth,DisplayHeight
STYLEBITS  #Side.GBx1,0,_WS_BORDER,0,0
BackgroundColor$ = "blue"
STATICTEXT #Side.STx1,"  AAAAAAA",10,20,200,20
STATICTEXT #Side.STx2,"  BBBBBBB",10,60,200,20

[SIDE]
   UpperLeftX   = 0
   UpperLeftY   = 0
   WindowWidth  = DisplayWidth
   WindowHeight = DisplayHeight
   BackgroundColor$ = "blue"
   ForegroundColor$ = "red"
   OPEN "SIDE" FOR window_popup AS #Side
   #Side "TRAPCLOSE [QuitSide]"
   #Side "font tahoma 12 bold"
   #Side.GBx1 "down; fill darkgreen"
   #Side.GBx1 "when leftButtonDown [MouseLeftButton]"
   WAIT

[QuitSide]
   CLOSE #Side
   END

[MouseLeftButton]
   IF (MouseX < 10 AND MouseY < 10) THEN [QuitSide] 'clic on top left = QUIT
   WAIT

Richard.
Re: Setting fonts attributes for StaticText in Win
Post by flotulopex on Jun 27th, 2017, 07:11am

Thanks a lot for your help and very helpful indications smiley

Rog'