changing text size in listbox

[regoroxford]

I feel stupid for expecting the text size to change after the window containing the listbox is opened. Font commands must follow window open command! Assuming agreement on my expectations ; how do you control text size of the words following options$? I can Only discover lip service on this topic.  

[setup.1.Window]



   '-----Begin code for #1



   nomainwin

   WindowWidth = 550

   WindowHeight = 410

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)





   '-----Begin GUI objects code



   ListboxColor$ = "green"

   options$(0) = "Coldcontact phone call"

   options$(1) = "Send Literature"

   options$(2) = "Follow Up Call"

   options$(3) = "Send Promotional"

   options$(4) = "Final Call"

   listbox #1.list, options$(), [selectionMade], 5, 35, 250, 120

   button #1.list "Continue", [selectionMade], UL, 5, 5,60,30

   button #1.list "Cancel", [cancelSelection], UR, 15, 5,60,30

   WindowWidth = 270 : WindowHeight = 180

   open "Select a contact " for window as #1

   '#1.list "font arial 14"   'does not work
   chosefont$="arial 14"  'copied from Metro

   listfont$="font "+chosenfont$

   #1.list ,listfont$

   wait



[selectionMade]

 print #1.list, "selection? selection$"

 notice selection$ + " was chosen"

 close #1

 end



[cancelSelection]

 notice " selection cancelled"

 close #1

 end

   '-----End GUI objects code



   open "untitled" for window as #1

   print #1, "font ms_sans_serif 20"

   print #1, "trapclose [quit.1]"





[1.inputLoop]   'wait here for input event

   wait







[listbox1DoubleClick]   'Perform action for the listbox named 'listbox1'







   wait



[quit.1] 'End the program

   close #1

   end







[metro]

www.libertybasicuniversity.com/lb4help/2MLNSIR.htm
FONT - This command sets the font of all of the controls in a window.

'set the font of all the controls in a
'window to courier new 8pt italic
print #handle, "font courier_new 8 italic"

When using a text window, precede the command with a ! character:

open "Font Test" for text as #handle
print #handle, "!font courier_new 8 italic"
wait

For more on specifying fonts read How to Specify Fonts

To override this general font command, font commands may be sent to individual controls after this command is issued.
See the command lists for individual controls for control-specific documentation.
If a control can accept a new text string such as a caption, the font command must be preceded by a ! character. Examples:
'some controls require !font
print #h.button, "!font courier_new 8 italic"
print #h.textbox, "!font courier_new 8 italic"

'some controls do not require a ! character:
print #h.graphicbox, "font courier_new 8 italic"
print #h.radiobutton, "font courier_new 8 italic"

[setup.1.Window]



   '-----Begin code for #1
   nomainwin

   WindowWidth = 550
   WindowHeight = 410

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   '-----Begin GUI objects code
   ListboxColor$ = "green"
   options$(0) = "Coldcontact phone call"
   options$(1) = "Send Literature"
   options$(2) = "Follow Up Call"
   options$(3) = "Send Promotional"
   options$(4) = "Final Call"
   listbox #1.lblist, options$(), [selectionMade], 5, 35, 250, 120
   button #1.list "Continue", [selectionMade], UL, 5, 5,60,30

   button #1.list2 "Cancel", [cancelSelection], UR, 15, 5,60,30

   WindowWidth = 270 : WindowHeight = 180

   open "Select a contact " for window as #1
  #1.lblist,  "font arial 14 italic"
  #1.list  ,  "!font arial 10 bold"
  #1.list2 ,  "!font times_new_roman 10 italic bold"

   wait

[selectionMade]
 print #1.list, "selection? selection$"
 notice selection$ + " was chosen"
 close #1
 end

[cancelSelection]
 notice " selection cancelled"
 close #1
 end

   '-----End GUI objects code



[Rod]

Reg the problem is that you are giving all of the controls on the form the same name, #1.list. Liberty gets confused as to what you are sending the command to, in your example code it was sending the command to the last #1.list named control. So they should all have unique names and then Liberty knows what control to send the command to. Everything you put on the form, say #1, should have a unique name #1.buttona #1.buttonb #1.listboxa etc

[setup.1.Window]

   '-----Begin code for #1
   nomainwin
   WindowWidth = 550
   WindowHeight = 410
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   '-----Begin GUI objects code

   ListboxColor$ = "green"
   options$(0) = "Coldcontact phone call"
   options$(1) = "Send Literature"
   options$(2) = "Follow Up Call"
   options$(3) = "Send Promotional"
   options$(4) = "Final Call"
   listbox #1.lbx, options$(), [selectionMade], 5, 35, 250, 120
   button #1.bsm "Continue", [selectionMade], UL, 5, 5,60,30
   button #1.bcs "Cancel", [cancelSelection], UR, 15, 5,60,30
   WindowWidth = 270 : WindowHeight = 180
   open "Select a contact " for window as #1
   #1.lbx "font arial 14"   'does work

   wait


[regoroxford]

That makes sense.
Thanks