Text Box Height & Border Around Label

ceaser

Active Member
Licensed User
Hi

1. Is it possible that I can set my own height of my text boxes and not let Basic4ppc set the height according to the font size that I have selected.

2. It would be nice to be able to have the label box have a border around.

Thanks
Michael
(ceaser)
Civil Engineering And Surveying Earthworks Routines
 

Erel

Administrator
Staff member
Licensed User
1. This is the underlying OS control behavior. If Multiline is set to true it is possible to change the height.
2. You can draw the border. Something like:
B4X:
Sub App_Start
    Form1.Show
    DrawBorder("Label1",cBlack)
End Sub

Sub DrawBorder(label,color)
    x = Control(label).Left-1
    y = Control(label).Top-1
    form1.Line(x,y,x + Control(label).Width+2,y + Control(label).Height + 2,color,b)
End Sub
 

ceaser

Active Member
Licensed User
Thanks

Sorry about these questions. Having programmed in NSBasic for 3 years and only 2 weeks with Basic4ppc, I am still trying to find my feet!

Michael
 
Top