Difference between revisions of "Addproperty Method"

//
// Lianja custom section for page "page1" section "section1"
//
namespace custom1
public textbox1
define class page1_section1 as section
enddefine
 
define class info_button as CommandButton
	proc click
		Messagebox("Textbox created by " + textbox1.createdby;
                 + " at " + textbox1.created,0,"Info")
	endproc
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("infobutton","info_button")
	infobutton.caption = "Information about Textbox 1"
 
	page1_section1.addobject("textbox1", "Textbox")
	textbox1.text = "Textbox 1"
	textbox1.addproperty("createdby",user())
	textbox1.addproperty("created",time())
return page1_section1