Fontstrikethru Property
From Lianjapedia
Whether the object's font is in strikethru style. Read/write.
bFontStrikethru = ob.fontstrikethru ob.fontstrikethru = bFontStrikethru
bFontStrikethru
Boolean to signify whether the font is in strikethru style or not:
True | False |
---|---|
True | False |
.T. | .F. |
1 | 0 |
Example
// // Lianja custom section for page "page1" section "section1" // namespace custom1 public textbox1, textbox2 define class page1_section1 as section enddefine define class font_button as CommandButton proc click textbox1.fontstrikethru = not textbox1.fontstrikethru textbox2.fontstrikethru = not textbox2.fontstrikethru endproc enddefine proc page1_section1 page1_section1 = createobject("page1_section1") page1_section1.addobject("fontbutton","font_button") fontbutton.caption = "Toggle Strikethru" page1_section1.addobject("textbox1", "Textbox") textbox1.value = "Textbox 1" textbox1.fontstrikethru = True page1_section1.addobject("textbox2", "Textbox") textbox2.value = "Textbox 2" textbox2.fontstrikethru = 0 return page1_section1