B4J Question How to set Font Name in TextArea

rapblack

Member
Licensed User
Longtime User
Dear All,
I use "Text area" for show string (as attachment).
Some one can help me to setting font name of "Text Area" to font Name = "Consolas"
Code:
Dim klst as List , txtaReport as TextArea
klst.Initialize
klst.Add("")
klst.Add("Element Design : " & edtFtgName.Text)
klst.Add("Design Code : " & "xxxxxxxxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Project Name : " & "xxxxxxxxxxxxxx In-house Program")
klst.Add("Project No. : " & "13-4444")
klst.Add("Project Location : " & "xxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Owner : " & "In-House Program")
klst.Add("Engineer : " & "xxxxxxxxxxxxxx")
klst.Add("Checker : " & "xxxxxxxxxxxxxx")
klst.Add("Date : " & "2013-Dec-25")
klst.Add(" * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ")

Dim i As Int
For i = 1 To 10
txtaReport.Text = txtaReport.Text & klst.Get(i) & CRLF
Next

Sorry for my English

Best Regard
 

Attachments

  • TextArea.png
    TextArea.png
    11 KB · Views: 495

rapblack

Member
Licensed User
Longtime User
Thank you Very much, Erel.
For more information about setting style,Please tell me for reference document.

Best Regard
 
Upvote 0
Top