Control

Control Class (Inheritance Component->Object) control_setCaption(control, caption) Sets the text on a control. All the gui objects fall in this category

control_getCaption(control) Returns the text of the control

control_setPosition(control, x,y) Sets the x and y position of the object base don the top left position (relative to the client array of the owner object)

control_getPosition(contron) Returns the x and y position of the object (relative to the client array of the owner object)

control_setSize(control, width,height) Sets the width and height of the control

control_getSize(control) Sets the size of the control

control_setAlign(control, alignmentoption) Sets the alignment of the control

control_getAlign(control, alignmentoption) Gets the alignment of the control

control_getEnabled(control) Gets the enabled state of the control

control_setEnabled(control, boolean) Sets the enabled state of the control

control_getVisible(control) Gets the visible state of the control

control_setVisible(control, boolean) Sets the visible state of the control

control_getColor(control) Gets the color

control_setColor(control, rgb) Sets the color

control_getParent(control) Returns nil or an object that inherits from the Wincontrol class

control_setParent(control) Sets the parent for this control

control_getPopupMenu(control) Gets the assigned popup menu to this control

control_setPopupMenu(control) Sets the popup menu for this control

control_onClick(control, functionnameorstring) Sets the onclick routine function (sender)

--Example:

function clickroutine(sender) --  onClick print "editbox2 clicked" end

local forms = createForm local labels = createLabel(forms)

--Caption control_setCaption(labels, "My first label") local variable = control_getCaption(labels) print(variable)

--Position control_setPosition(labels,30,30) x,y=control_getPosition(labels) print("X coord of label is "..x.."; Y coord of label is "..y)

--Enabled? local editbox1 = createEdit(forms) local editbox2 = createEdit(forms) control_setEnabled(editbox1,false) if control_getEnabled(editbox1) then

else print "editbox1 not enabled" control_setCaption(editbox1,"editbox1") end

control_setEnabled(editbox2,true) if control_getEnabled(editbox2) then print "editbox2 enabled" control_setCaption(editbox2,"editbox2") end

control_setPosition(editbox1,30,60) control_setPosition(editbox2,30,90)

--Visibility local editbox3 = createEdit(forms) control_setVisible(editbox3, true) -- If false editbox3 would not be displayed on the form. if control_getVisible(editbox3) then control_setCaption(editbox3,"editbox3")  -- Sets the caption only when visible control_setPosition(editbox3,30,120) end

--Color control_setColor(labels, 123456) -- color code in hex (range 000000 to FFFFFF) local colorCode = control_getColor(labels) print(colorCode)

--Onclick control_onClick(editbox2,clickroutine) -- clickroutine must have exactly one argument