192:
Does your control supports scrolling by touching the screen

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Select(oPropertiesList)
oPropertiesList.AutoDrag = 4112 'exAutoDragScrollOnShortTouch + exAutoDragScroll
oPropertiesList.EndUpdate()

191:
If I enabled the list filter on runtime, the user can click on [x] and close the filter text. Can I disabled this action

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowMultipleValuesOnEnum = .t.
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = 1
oPropertiesList.EndUpdate()

190:
Is it possible to specify a different background/foreground color for the property from the cursor, aka hot item

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)
oPropertiesList.HotBackColor = 16711680
oPropertiesList.HotForeColor = 16777215
oPropertiesList.SelBackColor = 8388608
oPropertiesList.SelForeColor = 16777215

189:
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"

188:
How can I display checkboxes for flags values only

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowMultipleValuesOnEnum = .t.
var_Property = oPropertiesList.Add("Nextevent",81,8)
	var_Property.AddValue(1,"Option A")
	var_Property.AddValue(2,"Option B")
	var_Property.AddValue(3,"Option C")
	var_Property.AddValue(4,"Option D")
	var_Property.AddValue(16,"Flag A")
	var_Property.AddValue(32,"Flag B")
	var_Property.AddValue(64,"Flag C")
	var_Property.AddValue(128,"Flag D")
oPropertiesList.Refresh()
oPropertiesList.EndUpdate()

187:
Is is possible to display a checkbox on ENUM types

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowMultipleValuesOnEnum = .t.
var_Property = oPropertiesList.Add("Nextevent",5,8)
	var_Property.AddValue(1,"Flag A")
	var_Property.AddValue(2,"Flag B")
	var_Property.AddValue(4,"Flag C")
	var_Property.AddValue(8,"Flag D")
	var_Property.AddValue(16,"Flag E")
oPropertiesList.Refresh()
oPropertiesList.EndUpdate()

186:
Is it possible to display the full path in the EditFolder editor

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.Add("Folder","c:\",18)
	' var_Property.Option(12) = "Current Folder"
	oPropertiesList.TemplateDef = "dim var_Property"
	oPropertiesList.TemplateDef = var_Property
	oPropertiesList.Template = "var_Property.Option(12) = `Current Folder`"

	' var_Property.Option(15) = .f.
	oPropertiesList.TemplateDef = "dim var_Property"
	oPropertiesList.TemplateDef = var_Property
	oPropertiesList.Template = "var_Property.Option(15) = False"

	' var_Property.Option(17) = .t.
	oPropertiesList.TemplateDef = "dim var_Property"
	oPropertiesList.TemplateDef = var_Property
	oPropertiesList.Template = "var_Property.Option(17) = True"


185:
How can I include a "New Folder" button so user can create new folders when using the EditFolder form

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Folder","",18).Option(16) = .t.
var_Property = oPropertiesList.Add("Folder","",18)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(16) = True"


184:
Is it possible to show always the selection in the files/folders list in the EditFolder dialog
Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Folder","",18).Option(14) = .t.
var_Property = oPropertiesList.Add("Folder","",18)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(14) = True"


183:
How can I hide the editbox in the EditFolder editor

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Folder","",18).Option(15) = .f.
var_Property = oPropertiesList.Add("Folder","",18)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(15) = False"


182:
How can I include the files in the in the EditFolder editor

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Folder","",18).Option(13) = .t.
var_Property = oPropertiesList.Add("Folder","",18)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(13) = True"


181:
Is it possible to change the caption in the EditFolder editor

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Folder","",18).Option(12) = "Select a directory..."
var_Property = oPropertiesList.Add("Folder","",18)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(12) = `Select a directory...`"


180:
Is it possible to filter for properties that contains a specified text

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = .t.
oPropertiesList.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
oPropertiesList.FilterBarPromptPattern = "back"
oPropertiesList.IncrementalSearch = 1
oPropertiesList.EndUpdate()

179:
How can I filter the properties at runtime

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = .t.
oPropertiesList.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
oPropertiesList.FilterBarPromptPattern = "Back"
oPropertiesList.EndUpdate()

178:
Is it possible to change the caption being displayed in the filter bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = .t.
oPropertiesList.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
oPropertiesList.EndUpdate()

177:
How can I enable the filter-prompt feature

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = .t.
oPropertiesList.EndUpdate()

176:
How do I specify the height of the control's header bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.HeaderVisible = .t.
oPropertiesList.HeaderHeight = 36
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.EndUpdate()

175:
Is it possible to display a checkbox for ENUM types that allow BIT combinations

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowMultipleValuesOnEnum = .t.
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.t.)
oPropertiesList.FilterBarPromptVisible = .t.
oPropertiesList.FilterBarPromptPattern = "Inc"
oPropertiesList.EndUpdate()

174:
Can I add different EditFile entries with different filters

Dim oPropertiesList as P
Dim var_Property as local
Dim var_Property1 as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Text File","text.txt",17).Option(9) = "Text Files (*.txt)|*.txt"
var_Property = oPropertiesList.Add("Text File","text.txt",17)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Option(9) = `Text Files (*.txt)|*.txt`"

' oPropertiesList.Add("INI File","text.ini",17).Option(9) = "INI Files (*.ini)|*.ini"
var_Property1 = oPropertiesList.Add("INI File","text.ini",17)
oPropertiesList.TemplateDef = "dim var_Property1"
oPropertiesList.TemplateDef = var_Property1
oPropertiesList.Template = "var_Property1.Option(9) = `INI Files (*.ini)|*.ini`"

oPropertiesList.EndUpdate()

173:
Is it possible to expand items/entries when user types for searching properties

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.ExpandOnSearch = .t.
oPropertiesList.Select(oPropertiesList)
oPropertiesList.EndUpdate()

172:
Is it possible to show ticks on the slider control

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Slider",50,16)
var_Property = oPropertiesList.Add("Slider w/h ticks",50,16)
	var_Property.SliderStep = 10
	var_Property.SliderTickFrequency = 10
oPropertiesList.Refresh()

171:
How can I edit a number between a range or interval
Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
var_Property = oPropertiesList.Add("Slider",50,16)
	var_Property.Numeric = .t.
	var_Property.SpinStep = 0
	var_Property.SliderWidth = 0
	var_Property.SliderStep = 0
	var_Property.SliderMin = 0
	var_Property.SliderMax = 100

170:
How can I edit a number between a range or interval
Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
var_Property = oPropertiesList.Add("Slider","0.5",16)
	var_Property.NumericFloat = .t.
	var_Property.SpinStep = 0
	var_Property.SliderWidth = 0
	var_Property.SliderStep = 0
	var_Property.SliderMin = 0
	var_Property.SliderMax = 1

169:
How can I add a slider or track bar editor, with a fixed size

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Slider","0.5",16).SliderWidth = 48
var_Property = oPropertiesList.Add("Slider","0.5",16)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.SliderWidth = 48"

oPropertiesList.EndUpdate()

168:
How can I add a slider or track bar editor, so it covers half of the cell
Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Slider","0.5",16).SliderWidth = -50
var_Property = oPropertiesList.Add("Slider","0.5",16)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.SliderWidth = -50"

oPropertiesList.EndUpdate()

167:
How can I add a slider or track bar editor, so it covers the full cell

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Slider","0.5",16).SliderWidth = -100
var_Property = oPropertiesList.Add("Slider","0.5",16)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.SliderWidth = -100"

oPropertiesList.EndUpdate()

166:
How can I add a spin editor within a range or interval of float numbers

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowSpin = .t.
var_Property = oPropertiesList.Add("Slider","0.5",16)
	var_Property.NumericFloat = .t.
	var_Property.SpinStep = ".01"
	var_Property.SliderWidth = 0
	var_Property.SliderMin = 0
	var_Property.SliderMax = 1
oPropertiesList.EndUpdate()

165:
How can I add a spin editor within a range or interval of numbers

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowSpin = .t.
var_Property = oPropertiesList.Add("Slider",10,16)
	var_Property.Numeric = .t.
	var_Property.SliderWidth = 0
	var_Property.SliderMin = 5
	var_Property.SliderMax = 15
oPropertiesList.EndUpdate()

164:
Can I use your HTML format to display a property

Dim oPropertiesList as P
Dim var_Property as P
Dim var_Property1 as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.SelBackColor = 16777216
oPropertiesList.SelForeColor = 0
oPropertiesList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPropertiesList.Template = "ColumnWidth(0) = 304" // oPropertiesList.ColumnWidth(0) = 304
var_Property = oPropertiesList.Add("I1","link1",1)
	var_Property.HTMLName = "<br>text<off 4>subscript</off><off -4>sup<off -4>ers</off>cript</off> icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor>"
	var_Property.Height = 128
var_Property1 = oPropertiesList.Add("I2","link1",1)
	var_Property1.HTMLName = "<sha ;;0>antialiasing</sha> format"
oPropertiesList.EndUpdate()

163:
How can I display I picture to a property

Dim oPropertiesList as P
Dim var_Property as P
Dim var_Property1 as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oPropertiesList.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oPropertiesList.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oPropertiesList.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Property = oPropertiesList.Add("Picture 1","link1",1)
	var_Property.HTMLName = "<img>pic1</img> <b>1</b>"
	var_Property.Height = 48
oPropertiesList.Add("Edit","text",1)
var_Property1 = oPropertiesList.Add("Picture 2","link2",1)
	var_Property1.HTMLName = "<img>pic2</img> <b>2</b>"
	var_Property1.Height = 32
oPropertiesList.EndUpdate()

162:
How do I display an icon to a property

Dim oPropertiesList as P
Dim var_Property as local
Dim var_Property1 as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DefaultItemHeight = 18
oPropertiesList.BeginUpdate()
oPropertiesList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oPropertiesList.Add("I1","link1",1).HTMLName = "<img>1</img> <b>1</b>"
var_Property = oPropertiesList.Add("I1","link1",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.HTMLName = `<img>1</img> <b>1</b>`"

oPropertiesList.Add("Edit","text",1)
' oPropertiesList.Add("I2","link1",1).HTMLName = "<img>2</img> <b>2</b>"
var_Property1 = oPropertiesList.Add("I2","link1",1)
oPropertiesList.TemplateDef = "dim var_Property1"
oPropertiesList.TemplateDef = var_Property1
oPropertiesList.Template = "var_Property1.HTMLName = `<img>2</img> <b>2</b>`"

oPropertiesList.EndUpdate()

161:
How do I specify the height of a property

Dim oPropertiesList as P
Dim var_Property as P
Dim var_Property1 as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oPropertiesList.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oPropertiesList.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oPropertiesList.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Property = oPropertiesList.Add("Picture 1","link1",1)
	var_Property.HTMLName = "<img>pic1</img> <b>1</b>"
	var_Property.Height = 48
oPropertiesList.Add("Edit","text",1)
var_Property1 = oPropertiesList.Add("Picture 2","link2",1)
	var_Property1.HTMLName = "<img>pic2</img> <b>2</b>"
	var_Property1.Height = 48
oPropertiesList.EndUpdate()

160:
How do I edit a float number

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowSpin = .t.
var_Property = oPropertiesList.Add("Edit","0.5",1)
	var_Property.NumericFloat = .t.
	var_Property.SpinStep = "0.1"
oPropertiesList.EndUpdate()

159:
How do I change the step for a spin

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowSpin = .t.
' oPropertiesList.Add("Edit",10,1).SpinStep = 10
var_Property = oPropertiesList.Add("Edit",10,1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.SpinStep = 10"

oPropertiesList.EndUpdate()

158:
How do I sort the items in a drop down editor

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.Add("Enum",1,8)
	var_Property.DropDownItems = 1
	var_Property.AddValue(1,"First choice")
	var_Property.AddValue(2,"Second choice")
	var_Property.AddValue(3,"Third choice")
	var_Property.SortItems()
oPropertiesList.Refresh()

157:
How do I specify the number of visible items in a drop down editor

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.Add("Enum",1,8)
	var_Property.DropDownItems = 1
	var_Property.AddValue(1,"First choice")
	var_Property.AddValue(2,"Second choice")
	var_Property.AddValue(3,"Third choice")
oPropertiesList.Refresh()

156:
How do I bold a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).Bold = .t.
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Bold = True"

oPropertiesList.EndUpdate()

155:
How do I disable or enable a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).Enabled = .f.
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Enabled = False"

oPropertiesList.EndUpdate()

154:
How do I specify a tooltip for a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowTooltip = .t.
' oPropertiesList.Add("ToolTip","",1).ToolTip = "This is a bit of text that shows up when the user hovers the cursor"
var_Property = oPropertiesList.Add("ToolTip","",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ToolTip = `This is a bit of text that shows up when the user hovers the cursor`"

oPropertiesList.EndUpdate()

153:
How do I specify the masking character

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
var_Property = oPropertiesList.Add("Edit",12,1)
	var_Property.Mask = "##"
	var_Property.MaskChar = 48
oPropertiesList.EndUpdate()

152:
How do I specify a mask

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit",12,1).Mask = "##"
var_Property = oPropertiesList.Add("Edit",12,1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Mask = `##`"

oPropertiesList.EndUpdate()

151:
How do I edit a number

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.AllowSpin = .t.
' oPropertiesList.Add("Edit",15,1).Numeric = .t.
var_Property = oPropertiesList.Add("Edit",15,1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Numeric = True"

oPropertiesList.EndUpdate()

150:
How do I change the foreground color for a cell

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).CellForeColor(0) = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.CellForeColor(0) = 255"

oPropertiesList.EndUpdate()

149:
How do I change the foreground color for a cell

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).CellForeColor(1) = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.CellForeColor(1) = 255"

oPropertiesList.EndUpdate()

148:
How do I change the background color for a cell

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).CellBackColor(0) = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.CellBackColor(0) = 255"

oPropertiesList.EndUpdate()

147:
How do I change the background color for a cell

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).CellBackColor(1) = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.CellBackColor(1) = 255"

oPropertiesList.EndUpdate()

146:
How do I change the background color for a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).BackColor = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.BackColor = 255"

oPropertiesList.EndUpdate()

145:
How do I change the foreground color for a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).ForeColor = 255
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ForeColor = 255"

oPropertiesList.EndUpdate()

144:
How do I associate an extra data to a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Color",255,2).UserData = "your data"
var_Property = oPropertiesList.Add("Color",255,2)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.UserData = `your data`"

oPropertiesList.EndUpdate()

143:
How do I get the caption of the property, as it is displayed in the browser

Dim oPropertiesList as P
Dim var_Property as local
Dim var_Property1 as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Color",255,2).ID = 12345
var_Property = oPropertiesList.Add("Color",255,2)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ID = 12345"

' oPropertiesList.Add(oPropertiesList.Property("Color").DisplayValue,"",-1).Bold = .t.
var_Property1 = oPropertiesList.Add(oPropertiesList.Property("Color").DisplayValue,"",-1)
oPropertiesList.TemplateDef = "dim var_Property1"
oPropertiesList.TemplateDef = var_Property1
oPropertiesList.Template = "var_Property1.Bold = True"

oPropertiesList.EndUpdate()

142:
How do I get the value of the property

Dim oPropertiesList as P
Dim var_Property as local
Dim var_Property1 as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).ID = 12345
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ID = 12345"

' oPropertiesList.Add(oPropertiesList.Property("Edit").Value,"",-1).Bold = .t.
var_Property1 = oPropertiesList.Add(oPropertiesList.Property("Edit").Value,"",-1)
oPropertiesList.TemplateDef = "dim var_Property1"
oPropertiesList.TemplateDef = var_Property1
oPropertiesList.Template = "var_Property1.Bold = True"

oPropertiesList.EndUpdate()

141:
How do I make a property read only
Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).Locked = .t.
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Locked = True"

oPropertiesList.EndUpdate()

140:
How do I specify a description for a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
' oPropertiesList.Add("Edit","text",1).Description = "This is just a description"
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Description = `This is just a description`"

oPropertiesList.SelectedProperty = oPropertiesList.Property("Edit")
oPropertiesList.EndUpdate()

139:
How do I get the identifer of the property

Dim oPropertiesList as P
Dim var_Property as local
Dim var_Property1 as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("Edit","text",1).ID = 12345
var_Property = oPropertiesList.Add("Edit","text",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ID = 12345"

' oPropertiesList.Add(oPropertiesList.Property("Edit").ID,"",-1).Bold = .t.
var_Property1 = oPropertiesList.Add(oPropertiesList.Property("Edit").ID,"",-1)
oPropertiesList.TemplateDef = "dim var_Property1"
oPropertiesList.TemplateDef = var_Property1
oPropertiesList.Template = "var_Property1.Bold = True"

oPropertiesList.Refresh()

138:
How do I get the type of the property
Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Edit","text",1)
' oPropertiesList.Add(oPropertiesList.Property("Edit").Type,"",-1).Bold = .t.
var_Property = oPropertiesList.Add(oPropertiesList.Property("Edit").Type,"",-1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Bold = True"

oPropertiesList.Refresh()

137:
How do I get the name of the property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Edit","text",1)
' oPropertiesList.Add(oPropertiesList.Property("Edit").Name,"",-1).Bold = .t.
var_Property = oPropertiesList.Add(oPropertiesList.Property("Edit").Name,"",-1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Bold = True"

oPropertiesList.Refresh()

136:
How do I select a folder

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Folder","",18)
oPropertiesList.Refresh()

135:
How do I select a file

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("File","",17)
oPropertiesList.Refresh()

134:
How do I slider or trackbar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Slider",50,16)
oPropertiesList.Refresh()

133:
How do I add a button

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Button","Aaa",15)
oPropertiesList.Refresh()

132:
How do I add a check box editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Check",.t.,14)
oPropertiesList.Refresh()

131:
How do I add a color editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Color",255,13)
oPropertiesList.Refresh()

130:
How do I add a new object properties inside the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("MySelf 1",oPropertiesList,12)
oPropertiesList.Add("MySelf 2",oPropertiesList,12)
oPropertiesList.EndUpdate()

129:
How do I add a new objects inside the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("MySelf",oPropertiesList,12)
oPropertiesList.EndUpdate()

128:
How do I add a drop down editor with some predefined values

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.Add("DropDown","Aaa",11)
	var_Property.AddValue(1,"First choice")
	var_Property.AddValue(2,"Second choice")
	var_Property.AddValue(3,"Third choice")
oPropertiesList.Refresh()

127:
How do I add a password editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Password","pass",10)
oPropertiesList.Refresh()

126:
How do I add a date picker editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

125:
How do I add a drop down editor with some predefined values

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.Add("Enum",1,8)
	var_Property.AddValue(1,"First choice")
	var_Property.AddValue(2,"Second choice")
	var_Property.AddValue(3,"Third choice")
oPropertiesList.Refresh()

124:
How do I add a boolean editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Boolean",.t.,7)
oPropertiesList.Refresh()

123:
How do I add a button or a page editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Page","",6)
oPropertiesList.Refresh()

122:
How do I add a picture editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Picture",,5)
oPropertiesList.Refresh()

121:
How do I add a font editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Font","Arial",4)
oPropertiesList.Refresh()

120:
How do I add a font editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Font","Arial",3)
oPropertiesList.Refresh()

119:
How do I add a color editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Color",255,2)
oPropertiesList.Refresh()

118:
How do I add an edit

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Edit","text",1)
oPropertiesList.Refresh()

117:
How do I specify the character sets being included in the font editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(7) = `0`" // oPropertiesList.Option(7) = "0"
oPropertiesList.Add("Font","Arial",4)
oPropertiesList.Refresh()

116:
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(6) = False" // oPropertiesList.Option(6) = .f.
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

115:
How do highlight the "Today" date is the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(5) = True" // oPropertiesList.Option(5) = .t.
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

114:
How do I show or hide the "Today" button is the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(4) = False" // oPropertiesList.Option(4) = .f.
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

113:
How to specify the first day of the week in the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(3) = 1" // oPropertiesList.Option(3) = 1
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

112:
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(2) = `Du Lu Ma Mi Jo Vi Si`" // oPropertiesList.Option(2) = "Du Lu Ma Mi Jo Vi Si"
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

111:
How can I change the name of the months in the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(1) = `Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre`" // oPropertiesList.Option(1) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

110:
Can I change the "Today" caption being displayed in the drop down date picker calendar editor

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Option(0) = `Azi`" // oPropertiesList.Option(0) = "Azi"
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

109:
How can I open the drop down editors, using a different than F4 key
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.EditOnSelect = .f.
oPropertiesList.EditOnKey = 113
oPropertiesList.Select(oPropertiesList)

108:
How do I display the color properties as RGB

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.DisplayColorAs = 1
oPropertiesList.Add("Red",255,2)
oPropertiesList.Add("Blue",16711680,2)
oPropertiesList.EndUpdate()

107:
How do I get the list of properties being listed as a string

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)
' oPropertiesList.Add(" _ toString _ ",oPropertiesList.ToString(0),15).Bold = .t.
var_Property = oPropertiesList.Add(" _ toString _ ",oPropertiesList.ToString(0),15)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.Bold = True"

oPropertiesList.Sort(.t.)

106:
How can I display a picture to a property

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DefaultItemHeight = 48
oPropertiesList.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oPropertiesList.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oPropertiesList.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oPropertiesList.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
' oPropertiesList.Add("Picture 1","link1",1).HTMLName = "Pic <img>pic1</img> or <img>pic2</img>"
var_Property = oPropertiesList.Add("Picture 1","link1",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.HTMLName = `Pic <img>pic1</img> or <img>pic2</img>`"

oPropertiesList.Refresh()

105:
How do I show or hide the properties with multiple parameters

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowMultipleParams = .f.
oPropertiesList.Select(oPropertiesList)

104:
How can I add a hyperlink or anchor element

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BackColor = 16777215
oPropertiesList.SelBackColor = oPropertiesList.BackColor
oPropertiesList.SelForeColor = oPropertiesList.ForeColor
' oPropertiesList.Add("Link 1","link1",1).HTMLName = "Link <a1>one</s>"
var_Property = oPropertiesList.Add("Link 1","link1",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.HTMLName = `Link <a1>one</s>`"

oPropertiesList.Refresh()

103:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.SelBackColor = 16744703
oPropertiesList.Template = "FormatAnchor(False) = `<b><u><fgcolor=880000> </fgcolor></u></b>`" // oPropertiesList.FormatAnchor(.f.) = "<b><u><fgcolor=880000> </fgcolor></u></b>"
' oPropertiesList.Add("Link 1","link1",1).HTMLName = "Link <a1>one</s>"
var_Property = oPropertiesList.Add("Link 1","link1",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.HTMLName = `Link <a1>one</s>`"

oPropertiesList.Refresh()

102:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.SelBackColor = 16744703
oPropertiesList.Template = "FormatAnchor(True) = `<b><u> </u></b>`" // oPropertiesList.FormatAnchor(.t.) = "<b><u> </u></b>"
' oPropertiesList.Add("Link 1","link1",1).HTMLName = "Link <a1>one</s>"
var_Property = oPropertiesList.Add("Link 1","link1",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.HTMLName = `Link <a1>one</s>`"

oPropertiesList.Refresh()

101:
How do I specify the indentation of the child items relative to their parents

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.AutoIndent = .f.
oPropertiesList.Indent = 8
oPropertiesList.Select(oPropertiesList)
oPropertiesList.ExpandAll()

100:
How do I specify the indentation of the child items relative to their parents

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Indent = 11
oPropertiesList.Select(oPropertiesList)
oPropertiesList.ExpandAll()

99:
How do I get the a property based on its identifier

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("Root","",-1)
' oPropertiesList.Add("Child 1",1,1,,"Root").ID = 1234
var_Property = oPropertiesList.Add("Child 1",1,1,,"Root")
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ID = 1234"

oPropertiesList.Add("Child 2",2,1,,"Root")
oPropertiesList.Template = "ExpandItem(`Root`) = True" // oPropertiesList.ExpandItem("Root") = .t.
oPropertiesList.Add("Property",oPropertiesList.Property(1234).Name,-1)
oPropertiesList.EndUpdate()

98:
How do I get the a property based on its index

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("Root","",-1)
oPropertiesList.Add("Child 1",1,1,,"Root")
oPropertiesList.Add("Child 2",2,1,,"Root")
oPropertiesList.Template = "ExpandItem(`Root`) = True" // oPropertiesList.ExpandItem("Root") = .t.
oPropertiesList.Add("Item",oPropertiesList.Item(1).Name,-1)
oPropertiesList.EndUpdate()

97:
How do I get the number or count of the properties being listed

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("Root","",-1)
oPropertiesList.Add("Child 1",1,1,,"Root")
oPropertiesList.Add("Child 2",2,1,,"Root")
oPropertiesList.Template = "ExpandItem(`Root`) = True" // oPropertiesList.ExpandItem("Root") = .t.
oPropertiesList.Add("Count",oPropertiesList.Count,-1)
oPropertiesList.EndUpdate()

96:
How do I change the name or the caption for a column

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HeaderVisible = .t.
oPropertiesList.Template = "ColumnCaption(0) = `Properties`" // oPropertiesList.ColumnCaption(0) = "Properties"
oPropertiesList.Select(oPropertiesList)

95:
How do I expand a property

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("Root","",-1)
oPropertiesList.Add("Child 1",1,1,,"Root")
oPropertiesList.Add("Child 2",2,1,,"Root")
oPropertiesList.Template = "ExpandItem(`Root`) = True" // oPropertiesList.ExpandItem("Root") = .t.
oPropertiesList.EndUpdate()

94:
How do I change the width for a column

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ColumnWidth(1) = 48" // oPropertiesList.ColumnWidth(1) = 48
oPropertiesList.Select(oPropertiesList)

93:
How do I clear or remove all properties
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("First","A",1)
oPropertiesList.Clear()
oPropertiesList.Refresh()

92:
How do I remove a property
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("First","A",1)
oPropertiesList.Remove("First")
oPropertiesList.Refresh()

91:
How do I add a property

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Refresh()

90:
How do I change the visual aspect description's spliter, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.Template = "Background(0) = 16777216" // oPropertiesList.Background(0) = 16777216
oPropertiesList.Select(oPropertiesList)

89:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oPropertiesList.Template = "Background(388) = 16777216" // oPropertiesList.Background(388) = 16777216
oPropertiesList.Template = "Background(389) = 33554432" // oPropertiesList.Background(389) = 33554432
oPropertiesList.Template = "Background(391) = 50331648" // oPropertiesList.Background(391) = 50331648
oPropertiesList.Template = "Background(260) = 16777216" // oPropertiesList.Background(260) = 16777216
oPropertiesList.Template = "Background(261) = 33554432" // oPropertiesList.Background(261) = 33554432
oPropertiesList.Template = "Background(263) = 50331648" // oPropertiesList.Background(263) = 50331648
oPropertiesList.Select(oPropertiesList)

88:
I've seen that you can change the visual appearance for the scroll bar. How can I do that

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oPropertiesList.Template = "Background(324) = 16777216" // oPropertiesList.Background(324) = 16777216
oPropertiesList.Template = "Background(325) = 33554432" // oPropertiesList.Background(325) = 33554432
oPropertiesList.Template = "Background(327) = 50331648" // oPropertiesList.Background(327) = 50331648
oPropertiesList.Template = "Background(404) = 15790320" // oPropertiesList.Background(404) = 15790320
oPropertiesList.Template = "Background(276) = 15790320" // oPropertiesList.Background(276) = 15790320
oPropertiesList.Template = "Background(511) = 15790320" // oPropertiesList.Background(511) = 15790320
oPropertiesList.HeaderVisible = .t.
oPropertiesList.ColumnAutoResize = .f.
oPropertiesList.Select(oPropertiesList)

87:
Can I change the forecolor for the tooltip

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 1
oPropertiesList.ToolTipWidth = 364
oPropertiesList.Template = "Background(66) = 255" // oPropertiesList.Background(66) = 255
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

86:
Can I change the background color for the tooltip

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 1
oPropertiesList.ToolTipWidth = 364
oPropertiesList.Template = "Background(65) = 255" // oPropertiesList.Background(65) = 255
oPropertiesList.Select(oPropertiesList)
oPropertiesList.AllowTooltip = .t.

85:
Can I change the default border of the tooltip, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 1
oPropertiesList.ToolTipWidth = 364
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.Template = "Background(64) = 16777216" // oPropertiesList.Background(64) = 16777216
oPropertiesList.Select(oPropertiesList)
oPropertiesList.AllowTooltip = .t.

84:
Is there any option to highligth the column from the cursor - point
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.Template = "Background(32) = 16777216" // oPropertiesList.Background(32) = 16777216
oPropertiesList.HeaderVisible = .t.

83:
How can change the visual appearance for the spin control, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.Template = "Background(22) = 16777216" // oPropertiesList.Background(22) = 16777216
oPropertiesList.Template = "Background(23) = 33554432" // oPropertiesList.Background(23) = 33554432
oPropertiesList.Template = "Background(24) = 16777216" // oPropertiesList.Background(24) = 16777216
oPropertiesList.Template = "Background(25) = 33554432" // oPropertiesList.Background(25) = 33554432
oPropertiesList.AllowSpin = .t.
oPropertiesList.Add("Spin",50,1)
oPropertiesList.Refresh()

82:
How can change the visual appearance for the slider or track bar, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.Template = "Background(16) = 16777216" // oPropertiesList.Background(16) = 16777216
oPropertiesList.Template = "Background(15) = 13816530" // oPropertiesList.Background(15) = 13816530
oPropertiesList.Add("Slider",50,16)
oPropertiesList.Refresh()

81:
How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.Template = "Background(8) = 16777216" // oPropertiesList.Background(8) = 16777216
oPropertiesList.Template = "Background(9) = 16777216" // oPropertiesList.Background(9) = 16777216
oPropertiesList.Template = "Background(10) = 33554432" // oPropertiesList.Background(10) = 33554432
oPropertiesList.Template = "Background(11) = 16777216" // oPropertiesList.Background(11) = 16777216
oPropertiesList.Template = "Background(12) = 15132390" // oPropertiesList.Background(12) = 15132390
oPropertiesList.Template = "Background(13) = 15132390" // oPropertiesList.Background(13) = 15132390
oPropertiesList.Template = "Background(14) = 16777216" // oPropertiesList.Background(14) = 16777216
oPropertiesList.Add("Date","1/1/2001",9)
oPropertiesList.Refresh()

80:
How can change the visual appearance for the button that are visible inside the editors, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.Template = "Background(7) = 16777216" // oPropertiesList.Background(7) = 16777216
oPropertiesList.Template = "Background(6) = 33554432" // oPropertiesList.Background(6) = 33554432
oPropertiesList.Select(oPropertiesList)

79:
How can change the visual appearance for the button that shows the drop down editors, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.Template = "Background(4) = 16777216" // oPropertiesList.Background(4) = 16777216
oPropertiesList.Template = "Background(5) = 33554432" // oPropertiesList.Background(5) = 33554432
oPropertiesList.Select(oPropertiesList)

78:
Can I change the order of the buttons in the scroll bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollOrderParts(1) = `t,l,r`" // oPropertiesList.ScrollOrderParts(1) = "t,l,r"
oPropertiesList.Template = "ScrollOrderParts(0) = `t,l,r`" // oPropertiesList.ScrollOrderParts(0) = "t,l,r"
oPropertiesList.Select(oPropertiesList)

77:
The thumb size seems to be very small. Can I make it bigger

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollThumbSize(0) = 128" // oPropertiesList.ScrollThumbSize(0) = 128
oPropertiesList.Select(oPropertiesList)

76:
How do I enlarge or change the size of the control's scrollbars

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ScrollHeight = 18
oPropertiesList.ScrollWidth = 18
oPropertiesList.ScrollButtonWidth = 18
oPropertiesList.ScrollButtonHeight = 18
oPropertiesList.Select(oPropertiesList)

75:
How can I display my text on the scroll bar, using a different font

Dim oPropertiesList as P
Dim var_StdFont as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollPartCaption(0,256) = `This is just a text`" // oPropertiesList.ScrollPartCaption(0,256) = "This is just a text"
' oPropertiesList.ScrollFont(0).Size = 12
var_StdFont = oPropertiesList.ScrollFont(0)
oPropertiesList.TemplateDef = "dim var_StdFont"
oPropertiesList.TemplateDef = var_StdFont
oPropertiesList.Template = "var_StdFont.Size = 12"

oPropertiesList.Select(oPropertiesList)

74:
How can I display my text on the scroll bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollPartCaption(0,256) = `this is just a text`" // oPropertiesList.ScrollPartCaption(0,256) = "this is just a text"
oPropertiesList.Select(oPropertiesList)

73:
How do I assign a tooltip to a scrollbar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollToolTip(0) = `This is a tooltip being shown when you click and drag the thumb in the vertical scroll bar`" // oPropertiesList.ScrollToolTip(0) = "This is a tooltip being shown when you click and drag the thumb in the vertical scroll bar"
oPropertiesList.Select(oPropertiesList)

72:
How do I assign an icon to the button in the scrollbar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPropertiesList.Template = "ScrollPartVisible(0,32768) = True" // oPropertiesList.ScrollPartVisible(0,32768) = .t.
oPropertiesList.Template = "ScrollPartCaption(0,32768) = `<img>1</img>`" // oPropertiesList.ScrollPartCaption(0,32768) = "<img>1</img>"
oPropertiesList.ScrollHeight = 18
oPropertiesList.ScrollButtonWidth = 18
oPropertiesList.Select(oPropertiesList)

71:
I need to add a button in the scroll bar. Is this possible

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollPartVisible(0,32768) = True" // oPropertiesList.ScrollPartVisible(0,32768) = .t.
oPropertiesList.Template = "ScrollPartCaption(0,32768) = `1`" // oPropertiesList.ScrollPartCaption(0,32768) = "1"
oPropertiesList.Select(oPropertiesList)

70:
Can I display an additional buttons in the scroll bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "ScrollPartVisible(0,32768) = True" // oPropertiesList.ScrollPartVisible(0,32768) = .t.
oPropertiesList.Template = "ScrollPartVisible(0,16384) = True" // oPropertiesList.ScrollPartVisible(0,16384) = .t.
oPropertiesList.Template = "ScrollPartVisible(0,1) = True" // oPropertiesList.ScrollPartVisible(0,1) = .t.
oPropertiesList.Template = "ScrollPartVisible(0,2) = True" // oPropertiesList.ScrollPartVisible(0,2) = .t.
oPropertiesList.Select(oPropertiesList)

69:
Can I change the font for the tooltip

Dim oPropertiesList as P
Dim var_StdFont as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 1
var_StdFont = oPropertiesList.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

68:
How do I call your x-script language

Dim oPropertiesList as P
Dim var_Property as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_Property = oPropertiesList.ExecuteTemplate("Add(`Bold`,1,1)")
	var_Property.Bold = .t.

67:
How do I disable sorting the columns when clicking the control's header
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.SortOnClick = 0
oPropertiesList.HeaderVisible = .t.
oPropertiesList.Select(oPropertiesList)

66:
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList.HasButtons = 4
oPropertiesList.Template = "HasButtonsCustom(0) = 16777216" // oPropertiesList.HasButtonsCustom(.f.) = 16777216
oPropertiesList.Template = "HasButtonsCustom(1) = 33554432" // oPropertiesList.HasButtonsCustom(.t.) = 33554432
oPropertiesList.Select(oPropertiesList)

65:
Can I use my own icons for the +/- ( expand/collapse ) buttons

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPropertiesList.HasButtons = 4
oPropertiesList.Template = "HasButtonsCustom(0) = 1" // oPropertiesList.HasButtonsCustom(.f.) = 1
oPropertiesList.Template = "HasButtonsCustom(1) = 2" // oPropertiesList.HasButtonsCustom(.t.) = 2
oPropertiesList.Select(oPropertiesList)

64:
How do I change visual appearance of the +/- ( expand/collapse ) buttons

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HasButtons = 3
oPropertiesList.Select(oPropertiesList)

63:
How do I browse or select for a com or net object
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.SelectedObject = oPropertiesList

62:
How do I expand all properties

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)
oPropertiesList.ExpandAll()

61:
How do I enable resizing the columns at runtime

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ColumnsAllowSizing = .t.
oPropertiesList.Select(oPropertiesList)

60:
How do I call your x-script language

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Template = "Add(`First`,1,1)"

59:
How can I enable or disable the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Enabled = .f.
oPropertiesList.Select(oPropertiesList)

58:
I've seen that the width of the tooltip is variable. Can I make it larger

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipWidth = 328
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

57:
How do I disable showing the tooltip for all control
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 0
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

56:
How do I let the tooltip being displayed longer

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipPopDelay = 10000
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

55:
How do I show the tooltip quicker

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ToolTipDelay = 1
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

54:
How do I get the handle of the control's window
Dim oPropertiesList as P
Dim var_hWnd as 

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
var_hWnd = oPropertiesList.hWnd

53:
How do I show alternate rows in different background color

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BackColorAlternate = 15790320
oPropertiesList.Select(oPropertiesList)

52:
How do enable or disable tooltips
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.AllowTooltip = .t.
oPropertiesList.Select(oPropertiesList)

51:
How do change the foreground color for the control's header bar, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HeaderVisible = .t.
oPropertiesList.ForeColorHeader = 255

50:
How do change the visual appearance for the control's header bar, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HeaderVisible = .t.
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.BackColorHeader = 16777216

49:
How do I change the foreground color for the description part in the bottom side of the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ForeColorDescription = 255
oPropertiesList.Select(oPropertiesList)

48:
How do I change the visual appearance for the description part in the bottom side of the control, using your EBN files

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.BackColorDescription = 16777216

47:
How do I change the background color for the description part in the bottom side of the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BackColorDescription = 255

46:
Is there any option to specify the height of the items, before adding them

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DefaultItemHeight = 13
oPropertiesList.Select(oPropertiesList)

45:
How do I show or hide the connection between categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.MarkCategories = .t.
oPropertiesList.LinkCategories = .f.
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

44:
How do I show or hide the categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.MarkCategories = .t.
oPropertiesList.MarkLineColor = 255
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

43:
How do I change the foreground color for categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ForeColorCategories = 255
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

42:
How do I change the background color for categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BackColorCategories = 255
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

41:
How do I sort the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)
oPropertiesList.Sort(.f.)

40:
Is there any option to change the color for the grid lines

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HasGridLines = -1
oPropertiesList.GridLineColor = 255
oPropertiesList.Select(oPropertiesList)

39:
How do I specify the default category

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DefaultCategory = "Font"
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

38:
How do I show or hide the categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.MarkCategories = .f.
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

37:
How do I get a property based on its name

Dim oPropertiesList as P
Dim var_Property as local

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
' oPropertiesList.Add("First Name","Mihai",1).ID = 100
var_Property = oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.TemplateDef = "dim var_Property"
oPropertiesList.TemplateDef = var_Property
oPropertiesList.Template = "var_Property.ID = 100"

oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property(100)
oPropertiesList.Refresh()

36:
How do I get a property based on its name

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property("Last Name")
oPropertiesList.Refresh()

35:
How do I maintain performance while making several changes
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BeginUpdate()
oPropertiesList.Add("First",1,1)
oPropertiesList.Add("Second",1,1)
oPropertiesList.EndUpdate()

34:
How can I get a list of interfaces that an object implements

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
? oPropertiesList.Interfaces(oPropertiesList) 

33:
How can I display something else when including the elements of a collection
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowObjects = .t.
oPropertiesList.ShowItemsCollection = .t.
oPropertiesList.NameItemsCollection = "Name;Caption;Item;Index"
oPropertiesList.Select(oPropertiesList)

32:
How can I include the elements of a collection
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowObjects = .t.
oPropertiesList.ShowItemsCollection = .t.
oPropertiesList.Select(oPropertiesList)

31:
How can I use a spin control to edit numeric values

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.AllowSpin = .t.
oPropertiesList.Select(oPropertiesList)

30:
How can I change the control's font

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Font.Name = "Tahoma"
oPropertiesList.Select(oPropertiesList)

29:
How do I show or hide the variables of an object like Font

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowVariables = .t.
oPropertiesList.Select(oPropertiesList.Font)

28:
How do I show or hide the categories

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowCategories = .t.
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

27:
How do I refresh the control
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.Refresh()

26:
How can still display the selected items when the control loses the focus
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HideSelection = .f.
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property("Last Name")
oPropertiesList.Refresh()

25:
How do I change the visual appearance effect for the selected item, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.SelBackColor = 16777216
oPropertiesList.SelForeColor = 0
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property("Last Name")
oPropertiesList.Refresh()

24:
How do I change the colors for the selected item

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.SelBackColor = 0
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property("Last Name")
oPropertiesList.Refresh()

23:
How do I show or hide the non browseable members
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowNonBrowsable = .t.
oPropertiesList.Select(oPropertiesList)

22:
How can I hide or show the object's property pages

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowPropertyPages = .f.
oPropertiesList.Select(oPropertiesList)

21:
How do I filter properties when loading
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.FireIncludeProperty = .t.

20:
How do I get or set the selected property

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Add("First Name","Mihai",1)
oPropertiesList.Add("Last Name","Filimon",1)
oPropertiesList.SelectedProperty = oPropertiesList.Property("Last Name")
oPropertiesList.Refresh()

19:
How do I remove "Invalid property value." message
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.InvalidValueMessage = ""
oPropertiesList.Select(oPropertiesList)

18:
How do I change the "Invalid property value." message
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.InvalidValueMessage = "new message"
oPropertiesList.Select(oPropertiesList)

17:
How do I edit a property as soon as the user selects it
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.EditOnSelect = .t.
oPropertiesList.Select(oPropertiesList)

16:
How do I make the control read only

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ReadOnly = .t.
oPropertiesList.Select(oPropertiesList)

15:
How do I show or hide the read only members
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowReadOnly = .f.
oPropertiesList.Select(oPropertiesList)

14:
How do I show or hide the grid lines

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HasGridLines = 0
oPropertiesList.Select(oPropertiesList)

13:
How do I hide the hierarchy lines

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HasLines = .f.
oPropertiesList.Select(oPropertiesList)

12:
How can I add the horizontal scroll bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ColumnAutoResize = .f.
oPropertiesList.HeaderVisible = .t.
oPropertiesList.Select(oPropertiesList)

11:
How do I show or hide the control's header bar

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.HeaderVisible = .t.
oPropertiesList.Select(oPropertiesList)

10:
How do I show or hide the objects members
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowObjects = .f.
oPropertiesList.Select(oPropertiesList)

9:
How do I show or hide the restricted members
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowRestricted = .f.
oPropertiesList.Select(oPropertiesList)

8:
How do I show or hide the hidden members
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ShowHidden = .f.
oPropertiesList.Select(oPropertiesList)

7:
How do I browse or select an object
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)

6:
How do I change the control's foreground color

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.ForeColor = 7864440
oPropertiesList.Select(oPropertiesList)

5:
How do I change the control's background color

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BackColor = 13158600

4:
How do change the visual appearance for the control's border, using EBN

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList.BorderStyle = 16777216 '1000000 + 
oPropertiesList.BackColor = 16777215

3:
How do I remove the control's border
Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.BorderStyle = 0

2:
How do I change the height of the description part in the bottom side of the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DescriptionHeight = 100

1:
How do I hide or show the description part in the bottom side of the control

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.DescriptionVisible = .f.