1011:
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .t.
oGrid.DrawGridLines = 2
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("Left")
		var_Column.AllowSizing = .f.
		var_Column.Width = 96
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		var_Column.FormatColumn = "0 pos `A-Z`"
	var_Column1 = var_Columns.Add("Center")
		var_Column1.HeaderAlignment = 1
		var_Column1.Alignment = var_Column1.HeaderAlignment
		var_Column1.AllowSizing = .f.
		var_Column1.Width = 96
		' var_Column1.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(0) = True"

		var_Column1.FormatColumn = "0 pos `A-Z`"
	var_Column2 = var_Columns.Add("Right")
		var_Column2.HeaderAlignment = 2
		var_Column2.Alignment = var_Column2.HeaderAlignment
		var_Column2.AllowSizing = .f.
		var_Column2.Width = 96
		' var_Column2.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(0) = True"

		var_Column2.FormatColumn = "0 pos `A-Z`"
		' var_Column2.Def(34) = "caption,check,icon,icons,picture"
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(34) = `caption,check,icon,icons,picture`"

	var_Columns.Add("")
var_Items = oGrid.Items
	' var_Items.CellState(var_Items.AddItem("Item 1"),3) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 1`),3) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 2"),2) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),2) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`),1) = 1"

oGrid.EndUpdate()

1010:
Can I display the column's multiple-lines caption vertically oriented (method 2)

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderHeight = 48
oGrid.ColumnAutoResize = .t.
var_Columns = oGrid.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First Column"
		var_Column.HeaderVertical = .t.
		var_Column.Width = 36
		var_Column.AllowSizing = .f.
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		' var_Column.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(48) = 8"

		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second Column"
		var_Column1.HeaderVertical = .t.
		var_Column1.Width = 36
		var_Column1.AllowSizing = .f.
		' var_Column1.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(0) = True"

		' var_Column1.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(48) = 8"

		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third Column"
		var_Column2.HeaderVertical = .t.
		var_Column2.Width = 36
		var_Column2.AllowSizing = .f.
		' var_Column2.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(0) = True"

		' var_Column2.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(48) = 8"

		var_Column2.Position = 2
var_Items = oGrid.Items
	' var_Items.CellState(var_Items.AddItem("Item 1"),3) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 1`),3) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 2"),2) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),2) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`),1) = 1"

oGrid.EndUpdate()

1009:
Can I display the column's multiple-lines caption vertically oriented (method 1)

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderHeight = 48
oGrid.HeaderSingleLine = .f.
oGrid.ColumnAutoResize = .t.
var_Columns = oGrid.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First Column")
		var_Column.HeaderVertical = .t.
		var_Column.Width = 36
		var_Column.AllowSizing = .f.
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		' var_Column.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(48) = 8"

		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second Column")
		var_Column1.HeaderBold = .t.
		var_Column1.HeaderVertical = .t.
		var_Column1.Width = 36
		var_Column1.AllowSizing = .f.
		' var_Column1.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(0) = True"

		' var_Column1.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(48) = 8"

		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third Column")
		var_Column2.HeaderVertical = .t.
		var_Column2.Width = 36
		var_Column2.AllowSizing = .f.
		' var_Column2.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(0) = True"

		' var_Column2.Def(48) = 8
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(48) = 8"

		var_Column2.Position = 2
var_Items = oGrid.Items
	' var_Items.CellState(var_Items.AddItem("Item 1"),3) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 1`),3) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 2"),2) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),2) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`),1) = 1"

oGrid.EndUpdate()

1008:
Can I display the column's caption vertically oriented (method 2)

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderHeight = 48
oGrid.ColumnAutoResize = .t.
var_Columns = oGrid.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First"
		var_Column.HeaderVertical = .t.
		var_Column.Width = 20
		var_Column.AllowSizing = .f.
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second"
		var_Column1.HeaderVertical = .t.
		var_Column1.Width = 20
		var_Column1.AllowSizing = .f.
		' var_Column1.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(0) = True"

		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third"
		var_Column2.HeaderVertical = .t.
		var_Column2.Width = 20
		var_Column2.AllowSizing = .f.
		' var_Column2.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(0) = True"

		var_Column2.Position = 2
var_Items = oGrid.Items
	' var_Items.CellState(var_Items.AddItem("Item 1"),3) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 1`),3) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 2"),2) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),2) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`),1) = 1"

oGrid.EndUpdate()

1007:
Can I display the column's caption vertically oriented (method 1)

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderHeight = 48
oGrid.ColumnAutoResize = .t.
var_Columns = oGrid.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First")
		var_Column.HeaderVertical = .t.
		var_Column.Width = 20
		var_Column.AllowSizing = .f.
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second")
		var_Column1.HeaderBold = .t.
		var_Column1.HeaderVertical = .t.
		var_Column1.Width = 20
		var_Column1.AllowSizing = .f.
		' var_Column1.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(0) = True"

		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third")
		var_Column2.HeaderVertical = .t.
		var_Column2.Width = 20
		var_Column2.AllowSizing = .f.
		' var_Column2.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(0) = True"

		var_Column2.Position = 2
var_Items = oGrid.Items
	' var_Items.CellState(var_Items.AddItem("Item 1"),3) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 1`),3) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 2"),2) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),2) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`),1) = 1"

oGrid.EndUpdate()

1006:
How do I automatically bold items being checked

' Fired after cell's state has been changed.
function CellStateChanged as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_ConditionalFormat as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SelBackMode = 1
var_ConditionalFormat = oGrid.ConditionalFormats.Add("%CS0","check")
	var_ConditionalFormat.Bold = .t.
' oGrid.Columns.Add("Items").Def(0) = .t.
var_Column = oGrid.Columns.Add("Items")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(0) = True"

' oGrid.Columns.Add(oGrid.ConditionalFormats.Item("check").Expression).FormatColumn = oGrid.ConditionalFormats.Item("check").Expression
var_Column1 = oGrid.Columns.Add(oGrid.ConditionalFormats.Item("check").Expression)
oGrid.TemplateDef = "dim var_Column1"
oGrid.TemplateDef = var_Column1
oGrid.Template = "var_Column1.FormatColumn = Me.ConditionalFormats.Item(`check`).Expression"

var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	' var_Items.CellState(var_Items.AddItem("Item 2"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`),0) = 1"

	var_Items.AddItem("Item 3")
oGrid.EndUpdate()

1005:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

' Fired after cell's state has been changed.
function CellStateChanged as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
end function

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = 4
oGrid.SelBackMode = 1
var_Column = oGrid.Columns.Add("Items")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
var_Column1 = oGrid.Columns.Add("Format")
	var_Column1.FormatColumn = "%CS0"
	var_Column1.Caption = var_Column1.FormatColumn
	' var_Column1.Def(5) = 8421504
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(5) = 8421504"

	' var_Column1.Def(8) = var_Column1.Def(5)
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(8) = Def(5)"

var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Item 1")
	' var_Items.CellState(var_Items.InsertItem(h,,"Item 2"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(InsertItem(h,,`Item 2`),0) = 1"

	' var_Items.CellState(var_Items.InsertItem(h,,"Item 3"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(InsertItem(h,,`Item 3`),0) = 1"

	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

oGrid.EndUpdate()

1004:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.Columns.Add("Items")
var_Column = oGrid.Columns.Add("Format")
	var_Column.FormatColumn = "%CD0"
	var_Column.Caption = var_Column.FormatColumn
	' var_Column.Def(5) = 8421504
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(5) = 8421504"

	' var_Column.Def(8) = var_Column.Def(5)
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(8) = Def(5)"

var_Items = oGrid.Items
	' var_Items.CellData(var_Items.AddItem("Item 1"),0) = 1234
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellData(AddItem(`Item 1`),0) = 1234"

	' var_Items.CellData(var_Items.AddItem("Item 2"),0) = "this is just an user data"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellData(AddItem(`Item 2`),0) = `this is just an user data`"

	' var_Items.CellData(var_Items.AddItem("Item 3"),0) = {01/01/2001}
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellData(AddItem(`Item 3`),0) = #1/1/2001#"

oGrid.EndUpdate()

1003:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Items")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Item 1")
		var_Editor.AddItem(2,"Item 2")
		var_Editor.AddItem(3,"Item 3")
var_Column1 = oGrid.Columns.Add("Format")
	var_Column1.FormatColumn = "%0"
	var_Column1.Caption = var_Column1.FormatColumn
	' var_Column1.Def(5) = 8421504
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(5) = 8421504"

	' var_Column1.Def(8) = var_Column1.Def(5)
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(8) = Def(5)"

	var_Column1.AllowSizing = .f.
var_Column2 = oGrid.Columns.Add("Format")
	var_Column2.FormatColumn = "%C0"
	var_Column2.Caption = var_Column2.FormatColumn
	' var_Column2.Def(5) = 8421504
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.Def(5) = 8421504"

	' var_Column2.Def(8) = var_Column2.Def(5)
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.Def(8) = Def(5)"

	var_Column2.AllowSizing = .f.
var_Items = oGrid.Items
	var_Items.AddItem(1)
	' var_Items.CellValue(var_Items.AddItem(0),0) = 2
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),0) = 2"

	var_Items.AddItem(2)
oGrid.EndUpdate()

1002:
Can I display the radio-button with a solid color

Dim oGrid as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.Template = "RadioImage(0) = 32699122" // oGrid.RadioImage(.f.) = 32699122
oGrid.Template = "RadioImage(1) = 16777216" // oGrid.RadioImage(.t.) = 16777216
' oGrid.Columns.Add("Check").Def(1) = .t.
var_Column = oGrid.Columns.Add("Check")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(1) = True"

var_Items = oGrid.Items
	var_Items.AddItem("Radio 1")
	' var_Items.CellState(var_Items.AddItem("Radio 2"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Radio 2`),0) = 1"

	var_Items.AddItem("Radio 1")
oGrid.EndUpdate()

1001:
Can I display the check-box with a solid color

Dim oGrid as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.Template = "CheckImage(0) = 32699122" // oGrid.CheckImage(0) = 32699122
oGrid.Template = "CheckImage(1) = 16777216" // oGrid.CheckImage(1) = 16777216
' oGrid.Columns.Add("Check").Def(0) = .t.
var_Column = oGrid.Columns.Add("Check")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(0) = True"

var_Items = oGrid.Items
	var_Items.AddItem("Check 1")
	' var_Items.CellState(var_Items.AddItem("Check 2"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Check 2`),0) = 1"

	var_Items.AddItem("Check 3")
oGrid.EndUpdate()

1000:
It is possible to search for an item ( inside the Editor ), case insensitive

Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Editor = oGrid.Columns.Add("DropDownList").Editor
	var_Editor.EditType = 3
	var_Editor.AddItem(1,"One")
	var_Editor.AddItem(2,"Two")
	var_Editor.AddItem(3,"Three")
var_Items = oGrid.Items
	var_Items.AddItem(oGrid.Columns.Item(0).Editor.FindItem(">ONE"))
	var_Items.AddItem(oGrid.Columns.Item(0).Editor.FindItem(">ThRee"))
	var_Items.AddItem(oGrid.Columns.Item(0).Editor.FindItem("ONE"))
	var_Items.AddItem(oGrid.Columns.Item(0).Editor.FindItem(">tWo"))
oGrid.EndUpdate()

999:
The text after the BR-tag is in same line as the text before the BR-tag (entire column)

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = 1
var_Column = oGrid.Columns.Add("Default")
	' var_Column.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(17) = 1"

	' var_Column.Def(16) = .f.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(16) = False"

var_Items = oGrid.Items
	var_Items.AddItem("This is the first line.<br>This is the second line.")
	var_Items.AddItem("This is the first line.<br>This is the second line.")
	var_Items.AddItem("This is the first line.<br>This is the second line.")
oGrid.EndUpdate()

998:
The text after the BR-tag is in same line as the text before the BR-tag (individual)

Dim h as N
Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = 1
oGrid.Columns.Add("Default")
var_Items = oGrid.Items
	' var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValueFormat(AddItem(`This is the first line.<br>This is the second line.`),0) = 1"

	h = var_Items.AddItem("<b>This is the first line.<br>This is the second line.</b>")
	' var_Items.CellValueFormat(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValueFormat(h,0) = 1"

	' var_Items.CellSingleLine(h,0) = .f.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellSingleLine(h,0) = False"

	' var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValueFormat(AddItem(`This is the first line.<br>This is the second line.`),0) = 1"

oGrid.EndUpdate()

997:
Can I disable an item once the user selects a new value into a different item

' Occurs when the user changes the cell's content.
function Change as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,NewValue  as  A)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.EnableItem(var_Items.ItemByIndex(1)) = .f.
		oGrid.TemplateDef = "dim var_Items"
		oGrid.TemplateDef = var_Items
		oGrid.Template = "var_Items.EnableItem(ItemByIndex(1)) = NewValue"

end function

Dim h1 as N
Dim h2 as N
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.FreezeEvents(.t.)
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .t.
oGrid.DrawGridLines = -2
oGrid.Columns.Add("Q")
oGrid.Columns.Add("A")
var_Items = oGrid.Items
	h1 = var_Items.AddItem("What's your gender?")
	var_Editor = var_Items.CellEditor(h1,1)
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Male")
		var_Editor.AddItem(0,"Female")
	' var_Items.CellValue(h1,1) = 1
	oGrid.TemplateDef = "dim var_Items,h1"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h1
	oGrid.Template = "var_Items.CellValue(h1,1) = 1"

	h2 = var_Items.AddItem("What's pet name?")
	' var_Items.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	oGrid.TemplateDef = "dim var_Items,h2"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h2
	oGrid.Template = "var_Items.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`"

	' var_Items.CellSingleLine(h2,1) = .f.
	oGrid.TemplateDef = "dim var_Items,h2"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h2
	oGrid.Template = "var_Items.CellSingleLine(h2,1) = False"

oGrid.EndUpdate()
oGrid.FreezeEvents(.f.)

996:
How can I get a row expanded / enlarged to fit the cell's text (entire column)

Dim h1 as N
Dim h2 as N
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .t.
oGrid.DrawGridLines = -2
oGrid.Columns.Add("Q")
var_Column = oGrid.Columns.Add("A")
	' var_Column.Def(16) = .f.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(16) = False"

	var_Editor = var_Column.Editor
		var_Editor.EditType = 5
		var_Editor.Appearance = 8
var_Items = oGrid.Items
	h1 = var_Items.AddItem("What's name?")
	' var_Items.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	oGrid.TemplateDef = "dim var_Items,h1"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h1
	oGrid.Template = "var_Items.CellValue(h1,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`"

	h2 = var_Items.AddItem("What's your pet name?")
	' var_Items.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	oGrid.TemplateDef = "dim var_Items,h2"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h2
	oGrid.Template = "var_Items.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`"

oGrid.EndUpdate()

995:
How can I get a row expanded / enlarged to fit the cell's text (individual cell)

Dim h1 as N
Dim h2 as N
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .t.
oGrid.DrawGridLines = -2
oGrid.Columns.Add("Q")
oGrid.Columns.Add("A")
var_Items = oGrid.Items
	h1 = var_Items.AddItem("What's name?")
	' var_Items.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	oGrid.TemplateDef = "dim var_Items,h1"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h1
	oGrid.Template = "var_Items.CellValue(h1,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`"

	h2 = var_Items.AddItem("What's your pet name?")
	var_Editor = var_Items.CellEditor(h2,1)
		var_Editor.EditType = 5
		var_Editor.Appearance = 8
	' var_Items.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	oGrid.TemplateDef = "dim var_Items,h2"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h2
	oGrid.Template = "var_Items.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`"

	' var_Items.CellSingleLine(h2,1) = .f.
	oGrid.TemplateDef = "dim var_Items,h2"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h2
	oGrid.Template = "var_Items.CellSingleLine(h2,1) = False"

oGrid.EndUpdate()

994:
InsertControlItem / UserEditor / A2X:

Dim h as N
Dim hX as N
Dim oGrid as P
Dim var_Calendar as local
Dim var_Column as local
Dim var_ConditionalFormat as local
Dim var_HTML as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.BackColor = 15790320
' oGrid.ConditionalFormats.Add("1 = 1").Bold = .t.
var_ConditionalFormat = oGrid.ConditionalFormats.Add("1 = 1")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.Bold = True"

' oGrid.Columns.Add("Type").Alignment = 2
var_Column = oGrid.Columns.Add("Type")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Alignment = 2"

var_Items = oGrid.Items
	h = var_Items.AddItem("1. A ProgID such as \"MSCAL.Calendar.7\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"MSCAL.Calendar","")
	' var_Items.ItemObject(hX).BackColor = 16777215
	var_Calendar = var_Items.ItemObject(hX)
	oGrid.TemplateDef = "dim var_Calendar"
	oGrid.TemplateDef = var_Calendar
	oGrid.Template = "var_Calendar.BackColor = 16777215"

	h = var_Items.AddItem("2. A CLSID such as \"{0036F83C-D892-4B7B-AA0B-BEDD8D16A738}\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"{0036F83C-D892-4B7B-AA0B-BEDD8D16A738}","")
	' var_Items.ItemObject(hX).BackColor = 16777215
	var_HTML = var_Items.ItemObject(hX)
	oGrid.TemplateDef = "dim var_HTML"
	oGrid.TemplateDef = var_HTML
	oGrid.Template = "var_HTML.BackColor = 16777215"

	h = var_Items.AddItem("3. A URL such as \"http://www.exontrol.com\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"http://www.exontrol.com","")
	h = var_Items.AddItem("4. A reference to an Active document such as \"file://\\Documents\MyDoc.doc\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"file://C:\empesting.xml","")
	h = var_Items.AddItem("5.A fragment of HTML such as \"MSHTML:<HTML><BODY>This is a line of text</BODY></HTML>\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"MSHTML:<HTML><BODY>This is a <b>line of</b> text</BODY></HTML>","")
	' var_Items.ItemHeight(hX) = 56
	oGrid.TemplateDef = "dim var_Items,hX"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hX
	oGrid.Template = "var_Items.ItemHeight(hX) = 56"

	h = var_Items.AddItem("6.Anything, if it is preffixed by \"A2X:\"")
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	hX = var_Items.InsertControlItem(0,"A2X:TOC24.Toc24Ctrl.1","")
oGrid.EndUpdate()

993:
How do I add a RichTextBox editor
' Occurs when an user editor fires an event.
function UserEditorOleEvent as v (Object  as  P,Ev  as  OLE::Exontrol.Grid.1::IOleEvent,CloseEditor  as  L,Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? Ev 
end function

Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
Dim var_RichTextBox as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = -1
oGrid.DefaultItemHeight = 32
var_Editor = oGrid.Columns.Add("RICHTEXT").Editor
	var_Editor.EditType = 16
	var_Editor.UserEditor("RICHTEXT.RichtextCtrl","")
	var_RichTextBox = var_Editor.UserEditorObject
		var_RichTextBox.AutoVerbMenu = .t.
		var_RichTextBox.TextRTF = "{\rtf1\ansi{\fonttbl\f0\fswiss Helvetica;}\f0\pard\r\nThis is some {\b bold} text.\par\r\n}"
var_Items = oGrid.Items
	var_Items.AddItem("RICHTEXT.RichtextCtrl")
oGrid.EndUpdate()

992:
Is it possible to trap a double-click event on a specific cell and when that happens, to set the cell to a specific value
' Occurs when the user dblclk the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim h as N
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	h = oGrid.ItemFromPoint(-1,-1,c,hit)
	? oGrid.Items.CellValue(h,c) 
end function

Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderAppearance = 4
oGrid.DrawGridLines = -2
oGrid.Columns.Add("C1")
oGrid.Columns.Add("C2")
var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("Item 1"),1) = "Item 2"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 1`),1) = `Item 2`"

	' var_Items.CellValue(var_Items.AddItem("Item 3"),1) = "Item 4"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 3`),1) = `Item 4`"

	' var_Items.CellValue(var_Items.AddItem("Item 5"),1) = "Item 6"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 5`),1) = `Item 6`"

oGrid.EndUpdate()

991:
How can I display dates in DD/MM/YYYY format

Dim h as N
Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .f.
oGrid.Columns.Add("Date")
var_Items = oGrid.Items
	' var_Items.ItemDivider(var_Items.AddItem("Different Date Formats")) = 0
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ItemDivider(AddItem(`Different Date Formats`)) = 0"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "((shortdateF(value) mid 4) left 2) + `/` + (shortdateF (value) left 2) + `/` + (shortdateF (value) right 4)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `((shortdateF(value) mid 4) left 2) + ``/`` + (shortdateF (value) left 2) + ``/`` + (shortdateF (value) right 4)`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "(1 array (0:=(shortdateF(value) split `/`))) + `/` + (0 array (=:0) ) + `/` + (2 array (=:0) )"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `(1 array (0:=(shortdateF(value) split ``/``))) + ``/`` + (0 array (=:0) ) + ``/`` + (2 array (=:0) )`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "((`0` + day(value) ) right 2) + `/` + ((`0` + month(value) ) right 2) + `/` + year(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `((``0`` + day(value) ) right 2) + ``/`` + ((``0`` + month(value) ) right 2) + ``/`` + year(value)`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "day(value) + `/` + month(value) + `/` + year(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `day(value) + ``/`` + month(value) + ``/`` + year(value)`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "year(value) + ` - ` + day(value) + ` - ` + month(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `year(value) + `` - `` + day(value) + `` - `` + month(value)`"

	h = var_Items.AddItem({12/01/1971})
	' var_Items.ItemHeight(h) = 24
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemHeight(h) = 24"

	' var_Items.CellValueFormat(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValueFormat(h,0) = 1"

	' var_Items.FormatCell(h,0) = "`<b>` + year(value) + `</b><off -4> ` + day(value) + ` - ` + month(value)"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.FormatCell(h,0) = ```<b>`` + year(value) + ``</b><off -4> `` + day(value) + `` - `` + month(value)`"

	' var_Items.ItemDivider(var_Items.AddItem("Predefined Date Formats")) = 0
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ItemDivider(AddItem(`Predefined Date Formats`)) = 0"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "value"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `value`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "shortdateF(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `shortdateF(value)`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "shortdate(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `shortdate(value)`"

	' var_Items.FormatCell(var_Items.AddItem({12/01/1971}),0) = "longdate(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(#12/1/1971#),0) = `longdate(value)`"

oGrid.EndUpdate()

990:
I have noticed that the column gets resized once I release the mouse. I have a column that displays multiple-lines cells, and the text gets wrapped only when user releases the mouse. Is it possible to get resized contiguously as I had before
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .f.
oGrid.DrawGridLines = 2
oGrid.ColumnsAllowSizing = .t.
' oGrid.Columns.Add("Column A (cont)").Def(64) = .t.
var_Column = oGrid.Columns.Add("Column A (cont)")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(64) = True"

oGrid.Columns.Add("Column 1")
' oGrid.Columns.Add("Column B (cont)").Def(64) = .t.
var_Column1 = oGrid.Columns.Add("Column B (cont)")
oGrid.TemplateDef = "dim var_Column1"
oGrid.TemplateDef = var_Column1
oGrid.Template = "var_Column1.Def(64) = True"

oGrid.Columns.Add("Column 2")
oGrid.EndUpdate()

989:
How do I get the column from cursor, when it hovers the empty portion of the items section
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim i as N
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	i = oGrid.ItemFromPoint(0,-1,c,hit)
	? "Column" 
	? c 
end function

Dim oGrid as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = 2
oGrid.Columns.Add("Column 0")
oGrid.Columns.Add("Column 1")
oGrid.Columns.Add("Column 2")
oGrid.EndUpdate()

988:
How do I add items once the user clicks the empty area
' Occurs when the user presses and then releases the left mouse button over the grid control.
function Click as v ()
	Dim i as N
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	i = oGrid.ItemFromPoint(0,-1,c,hit)
	var_Items = oGrid.Items
		' var_Items.CellValue(var_Items.AddItem(i),1) = c
		oGrid.TemplateDef = "dim var_Items"
		oGrid.TemplateDef = var_Items
		oGrid.Template = "var_Items.CellValue(AddItem(i),1) = c"

end function

Dim oGrid as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.Columns.Add("Number of Items to Add")
oGrid.Columns.Add("Click on Column")
oGrid.EndUpdate()

987:
Is there any option to stop events
' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "AddItem event is fired only if FreezeEvents(False) is called" 
end function

Dim h1 as N
Dim h2 as N
Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.FreezeEvents(.t.)
oGrid.BeginUpdate()
oGrid.DefaultItemHeight = 24
oGrid.Columns.Add("Task")
var_Items = oGrid.Items
	h1 = var_Items.AddItem("Task 1")
	h2 = var_Items.AddItem("Task 2")
oGrid.EndUpdate()
oGrid.FreezeEvents(.f.)

986:
How can I include the child items, when a filter is applied

Dim h0 as N
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .t.
oGrid.ContinueColumnScroll = .f.
oGrid.MarkSearchColumn = .f.
oGrid.SearchColumnIndex = 1
oGrid.Indent = 16
oGrid.LinesAtRoot = -1
oGrid.FilterBarPromptVisible = .t.
oGrid.FilterBarPromptPattern = "Nancy"
oGrid.FilterInclude = 1
var_Columns = oGrid.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oGrid.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.InsertItem(h0,,"Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	h0 = var_Items.InsertItem(h0,,"Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.InsertItem(h0,,"Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	' var_Items.ExpandItem(0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ExpandItem(0) = True"

oGrid.ApplyFilter()
oGrid.EndUpdate()

985:
How do I prevent changing the cell's state ( check-box state )
' Fired before cell's state is about to be changed.
function CellStateChanging as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,NewState  as  N)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		NewState = var_Items.CellState(Item,ColIndex)
end function

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
var_Column = oGrid.Columns.Add("P1")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
var_Column1 = oGrid.Columns.Add("P2")
	' var_Column1.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(0) = True"

	var_Column1.PartialCheck = .t.
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

oGrid.EndUpdate()

984:
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column1 = oGrid.Columns.Add("DateTime")
	var_Column1.SortType = 3
	var_Column1.DisplayFilterButton = .t.
	var_Column1.DisplayFilterPattern = .f.
	var_Column1.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column2 = oGrid.Columns.Add("Time")
	var_Column2.SortType = 4
	var_Column2.DisplayFilterButton = .t.
	var_Column2.DisplayFilterPattern = .f.
	var_Column2.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
	var_Column2.FormatColumn = "time(value)"
var_Column3 = oGrid.Columns.Add("Numeric")
	var_Column3.SortType = 1
	var_Column3.DisplayFilterButton = .t.
	var_Column3.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column4 = oGrid.Columns.Add("String")
	var_Column4.DisplayFilterButton = .t.
	var_Column4.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Items = oGrid.Items
	h = var_Items.AddItem({01/27/2010})
	' var_Items.CellValue(h,1) = {01/27/2010 10:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #1/27/2010 10:00:00 AM#"

	' var_Items.CellValue(h,2) = var_Items.CellValue(h,1)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = CellValue(h,1)"

	' var_Items.CellValue(h,3) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = 1"

	' var_Items.CellValue(h,4) = var_Items.CellValue(h,3)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,4) = CellValue(h,3)"

	h = var_Items.AddItem({01/27/2011})
	' var_Items.CellValue(h,1) = {01/27/2011 09:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #1/27/2011 9:00:00 AM#"

	' var_Items.CellValue(h,2) = var_Items.CellValue(h,1)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = CellValue(h,1)"

	' var_Items.CellValue(h,3) = 11
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = 11"

	' var_Items.CellValue(h,4) = var_Items.CellValue(h,3)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,4) = CellValue(h,3)"

	h = var_Items.AddItem({11/02/2010})
	' var_Items.CellValue(h,1) = {11/02/2010 09:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #11/2/2010 9:00:00 AM#"

	' var_Items.CellValue(h,2) = var_Items.CellValue(h,1)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = CellValue(h,1)"

	' var_Items.CellValue(h,3) = 2
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = 2"

	' var_Items.CellValue(h,4) = var_Items.CellValue(h,3)
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,4) = CellValue(h,3)"

oGrid.Columns.Item("DateTime").DisplayFilterDate = .f.
oGrid.EndUpdate()

983:
I am using Layout property to sort multiple columns at once. The problem is that all items get expanded. How do I prevent that

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
var_Column = oGrid.Columns.Add("P1")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
var_Column1 = oGrid.Columns.Add("P2")
	' var_Column1.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(0) = True"

	var_Column1.PartialCheck = .t.
	var_Column1.FormatColumn = "1 index ``"
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.AddItem("Root")
	var_Items.AddItem("Root")
oGrid.SingleSort = .f.
oGrid.Layout = "multiplesort=\"C0:1 C1:2\";collapse=\"\""
oGrid.EndUpdate()

982:
How do I find the cell's type, or what the cell holds

Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = -2
var_Columns = oGrid.Columns
	' var_Columns.Add("Value").Width = 24
	var_Column = var_Columns.Add("Value")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Width = 24"

	' var_Columns.Add("Type").FormatColumn = "type(%0)"
	var_Column1 = var_Columns.Add("Type")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.FormatColumn = `type(%0)`"

	' var_Columns.Add("TypeAsString").FormatColumn = "(0 := type(%0)) array (`empty`, `null`, `short`, `long`, `float`, `double`, `currency`, `date`, `string`, `object`, `error`, `boolean`, `variant`, `any`, `reserved`, `decimal`, `char`, `byte`, `unsigned short`, `unsigned long`, `long on 64 bits`)"
	var_Column2 = var_Columns.Add("TypeAsString")
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.FormatColumn = `(0 := type(%0)) array (``empty``, ``null``, ``short``, ``long``, ``float``, ``double``, ``currency``, ``date``, ``string``, ``object``, ``error``, ``boolean``, ``variant``, ``any``, ``reserved``, ``decimal``, ``char``, ``byte``, ``unsigned short``, ``unsigned long``, ``long on 64 bits``)`"

	' var_Columns.Add("Length").FormatColumn = "len(%0)"
	var_Column3 = var_Columns.Add("Length")
	oGrid.TemplateDef = "dim var_Column3"
	oGrid.TemplateDef = var_Column3
	oGrid.Template = "var_Column3.FormatColumn = `len(%0)`"

var_Items = oGrid.Items
	var_Items.AddItem()
	var_Items.AddItem("")
	' var_Items.CellValue(.AddItem(),0) = oGrid
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(),0) = Me"

	' var_Items.CellValue(var_Items.AddItem(),0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(),0) = True"

	' var_Items.CellValue(var_Items.AddItem(),0) = -1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(),0) = -1"

	' var_Items.CellValue(var_Items.AddItem(),0) = -1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(),0) = -1"

	' var_Items.CellValue(var_Items.AddItem(),0) = {01/01/2001}
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(),0) = #1/1/2001#"

oGrid.EndUpdate()

981:
How can I get ride / hide the image being dragged by OLE Drag and Drop
' Occurs when the OLEDrag method is called.
function OLEStartDrag as v (Data  as  OLE::Exontrol.Grid.1::IExDataObject,AllowedEffects  as  N)
	' Data.SetData("data to drag")
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	AllowedEffects = 1
end function

Dim h as N
Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.OLEDropMode = 1
oGrid.Template = "Background(34) = 16777215" // oGrid.Background(34) = 16777215
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Default")
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"


980:
The ReadOnly property does not prevent changing the column's check-box (sample 2)

Dim oGrid as P
Dim var_Column as P
Dim var_Editor as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ShowFocusRect = .f.
var_Column = oGrid.Columns.Add("C1")
	var_Column.AllowSizing = .f.
	var_Column.Width = 18
	var_Column.Editor.EditType = 19
oGrid.Columns.Add("C2")
var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem(0),1) = "Item 1"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),1) = `Item 1`"

	' var_Items.CellValue(var_Items.AddItem(-1),1) = "Item 2"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(-1),1) = `Item 2`"

	' var_Items.CellValue(var_Items.AddItem(0),1) = "Item 3"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),1) = `Item 3`"

oGrid.ReadOnly = .t.
' oGrid.Columns.Item(0).Editor.Option(17) = 2
var_Editor = oGrid.Columns.Item(0).Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(17) = 2"

oGrid.EndUpdate()

979:
The ReadOnly property does not prevent changing the column's check-box (sample 1)

Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ShowFocusRect = .f.
var_Column = oGrid.Columns.Add("C1")
	var_Column.AllowSizing = .f.
	var_Column.Width = 18
	var_Editor = var_Column.Editor
		var_Editor.EditType = 19
		' var_Editor.Option(17) = 1
		oGrid.TemplateDef = "dim var_Editor"
		oGrid.TemplateDef = var_Editor
		oGrid.Template = "var_Editor.Option(17) = 1"

oGrid.Columns.Add("C2")
var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem(0),1) = "Item 1"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),1) = `Item 1`"

	' var_Items.CellValue(var_Items.AddItem(-1),1) = "Item 2"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(-1),1) = `Item 2`"

	' var_Items.CellValue(var_Items.AddItem(0),1) = "Item 3"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),1) = `Item 3`"

oGrid.ReadOnly = .t.
oGrid.EndUpdate()

978:
How can I export checked items only

Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	' var_Columns.Add("C1").Def(0) = .t.
	var_Column = var_Columns.Add("C1")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	' var_Columns.Add("C2").FormatColumn = "1 index `A-Z`"
	var_Column1 = var_Columns.Add("C2")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.FormatColumn = `1 index ``A-Z```"

	' var_Columns.Add("C3").FormatColumn = "100 index ``"
	var_Column2 = var_Columns.Add("C3")
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.FormatColumn = `100 index `````"

var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	' var_Items.CellState(var_Items.AddItem("Item 2")) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 2`)) = 1"

	' var_Items.CellState(var_Items.AddItem("Item 3")) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellState(AddItem(`Item 3`)) = 1"

oGrid.EndUpdate()
? "Export CSV Checked Items Only:" 
? oGrid.Export("","chk") 

977:
How can I export a hidden column

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	var_Columns.Add("C1")
	var_Column = var_Columns.Add("C2")
		var_Column.FormatColumn = "1 index `A-Z`"
		var_Column.Visible = .f.
	var_Column1 = var_Columns.Add("C3")
		var_Column1.FormatColumn = "100 index ``"
		var_Column1.Visible = .f.
var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oGrid.EndUpdate()
? "Export CSV Hidden Columns (1,2):" 
? oGrid.Export("","|1,2") 

976:
I'm trying to use automatic numbering of the outline. How can I have A, B, C for root items, 1, 2, 3 for the sub-items, and a, b, c for sub-sub-items (sample 3)

Dim h as N
Dim hChild as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.DrawGridLines = -2
oGrid.AutoDrag = 3
oGrid.HasLines = 1
oGrid.Indent = 16
oGrid.MarkSearchColumn = .f.
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("")
		' var_Column.Def(17) = 1
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(17) = 1"

		var_Column.FormatColumn = "((1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 + `` :  (=:0 mid (1 + 1 + =:1) )  + `)` ) + ` ` + value"
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
	' var_Items.ExpandItem(0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ExpandItem(0) = True"

	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	' var_Items.CellState(hChild,0) = 1
	oGrid.TemplateDef = "dim var_Items,hChild"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hChild
	oGrid.Template = "var_Items.CellState(hChild,0) = 1"

	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
oGrid.EndUpdate()

975:
I'm trying to use automatic numbering of the outline. How can I have A, B, C for root items, 1, 2, 3 for the sub-items, and a, b, c for sub-sub-items (sample 2)

Dim h as N
Dim hChild as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.GridLineColor = 12500670
oGrid.DrawGridLines = -2
oGrid.AutoDrag = 3
oGrid.HasLines = 1
oGrid.Indent = 16
var_Columns = oGrid.Columns
	var_Columns.Add("Default")
	var_Column = var_Columns.Add("")
		' var_Column.Def(17) = 1
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(17) = 1"

		' var_Column.Def(49) = 4
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(49) = 4"

		var_Column.AllowSizing = .f.
		var_Column.Width = 36
		var_Column.Position = 0
		var_Column.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : (`............` left 2 * (=:0 count `.`)) + (=:0 mid (1 + 1 + =:1) ) "
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
	' var_Items.ExpandItem(0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ExpandItem(0) = True"

	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	' var_Items.CellState(hChild,0) = 1
	oGrid.TemplateDef = "dim var_Items,hChild"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hChild
	oGrid.Template = "var_Items.CellState(hChild,0) = 1"

	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
oGrid.EndUpdate()

974:
I'm trying to use automatic numbering of the outline. How can I have A, B, C for root items, 1, 2, 3 for the sub-items, and a, b, c for sub-sub-items (sample 1)

Dim h as N
Dim hChild as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.DrawGridLines = -2
oGrid.AutoDrag = 3
oGrid.HasLines = 1
oGrid.Indent = 16
var_Columns = oGrid.Columns
	var_Columns.Add("Default")
	var_Column = var_Columns.Add("")
		' var_Column.Def(17) = 1
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(17) = 1"

		' var_Column.Def(49) = 4
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(49) = 4"

		var_Column.Alignment = 2
		var_Column.AllowSizing = .f.
		var_Column.Width = 24
		var_Column.Position = 0
		var_Column.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : `<i>` + (=:0 mid (1 + 1 + =:1) ) "
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
	' var_Items.ExpandItem(0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ExpandItem(0) = True"

	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child")
	hChild = var_Items.InsertItem(h,,"Child")
	' var_Items.CellState(hChild,0) = 1
	oGrid.TemplateDef = "dim var_Items,hChild"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hChild
	oGrid.Template = "var_Items.CellState(hChild,0) = 1"

	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(hChild,,"Child")
	var_Items.InsertItem(h,,"Child")
oGrid.EndUpdate()

973:
How can I programmatically group by columns, without having the control's sort bar visible

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SortBarHeight = 0
oGrid.SortBarVisible = .t.
oGrid.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oGrid.AllowGroupBy = .t.
oGrid.Layout = "multiplesort=\"C1:2\""
oGrid.EndUpdate()

972:
How do I perform my own sort

' Fired when the control sorts a column.
function Sort as v ()
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "Sort" 
	var_Items = oGrid.Items
		' var_Items.ItemPosition(var_Items.ItemByIndex(1)) = 0
		oGrid.TemplateDef = "dim var_Items"
		oGrid.TemplateDef = var_Items
		oGrid.Template = "var_Items.ItemPosition(ItemByIndex(1)) = 0"
		' var_Items.ItemPosition(var_Items.ItemByIndex(0)) = 1
		oGrid.TemplateDef = "dim var_Items"
		oGrid.TemplateDef = var_Items
		oGrid.Template = "var_Items.ItemPosition(ItemByIndex(0)) = 1"

end function

Dim h as N
Dim oGrid as P
Dim var_Column as local
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SingleSort = .f.
oGrid.SortOnClick = 1
var_Columns = oGrid.Columns
	' var_Columns.Add("Index").FormatColumn = "0 index ``"
	var_Column = var_Columns.Add("Index")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.FormatColumn = `0 index `````"

	var_Columns.Add("Data 1")
	var_Columns.Add("Data 2")
var_Items = oGrid.Items
	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = 2
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = 2"

	' var_Items.CellValue(h,2) = 3
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = 3"

	h = var_Items.AddItem(4)
	' var_Items.CellValue(h,1) = 5
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = 5"

	' var_Items.CellValue(h,2) = 6
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = 6"

	h = var_Items.AddItem(7)
	' var_Items.CellValue(h,1) = 8
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = 8"

	' var_Items.CellValue(h,2) = 9
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = 9"

oGrid.Layout = "multiplesort=\"C1:1 C2:2\""
oGrid.EndUpdate()

971:
Is it possible to have a different alignment for parts of the cell's caption

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.DrawGridLines = -2
var_Column = oGrid.Columns.Add("Default")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

var_Items = oGrid.Items
	' var_Items.CellHAlignment(var_Items.AddItem("all-left"),0) = 0
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHAlignment(AddItem(`all-left`),0) = 0"

	' var_Items.CellHAlignment(var_Items.AddItem("all-center"),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHAlignment(AddItem(`all-center`),0) = 1"

	' var_Items.CellHAlignment(var_Items.AddItem("all-right"),0) = 2
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHAlignment(AddItem(`all-right`),0) = 2"

	h = var_Items.AddItem("left<c>center<r>right")
	' var_Items.CellValueFormat(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValueFormat(h,0) = 1"

oGrid.EndUpdate()

970:
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("MultipleLine")
		var_Column.Width = 32
		' var_Column.Def(16) = .f.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(16) = False"

		' var_Column.Def(64) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(64) = True"

	var_Column1 = var_Columns.Add("SingleLine")
		' var_Column1.Def(16) = .f.
		oGrid.TemplateDef = "dim var_Column1"
		oGrid.TemplateDef = var_Column1
		oGrid.Template = "var_Column1.Def(16) = False"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`This is a bit of long text that should break the line`),1) = `This is a bit of long text that should break the line`"

oGrid.EndUpdate()

969:
How can I get the absolute position of an item
' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		? var_Items.CellCaption(oGrid.ItemFromPoint(-1,-1,c,hit),"Position") 
end function

Dim h as N
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.BackColorAlternate = 15790320
oGrid.LinesAtRoot = -1
' oGrid.Columns.Add("Def").DisplayFilterButton = .t.
var_Column = oGrid.Columns.Add("Def")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.DisplayFilterButton = True"

var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 1"),,"Sub-Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
oGrid.PutItems(oGrid.GetItems(-1))
oGrid.PutItems(oGrid.GetItems(-1))
oGrid.PutItems(oGrid.GetItems(-1))
var_Column1 = oGrid.Columns.Add("Position")
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Visible = .f.
oGrid.EndUpdate()

968:
I am using ExComboBox as an user editor, how can I display a different column

' Fired the user editor is about to be opened.
function UserEditorClose as v (Object  as  P,Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	' Items.CellValue(Item,ColIndex) = Object.Value
	oGrid = topparent:CONTROL_ACTIVEX1.activex
end function

' Occurs when an user editor fires an event.
function UserEditorOleEvent as v (Object  as  P,Ev  as  OLE::Exontrol.Grid.1::IOleEvent,CloseEditor  as  L,Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? Ev 
end function

' Occurs when an user editor is about to be opened.
function UserEditorOpen as v (Object  as  P,Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	' Object.Value = Me.Items.CellValue(Item,ColIndex)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_ComboBox as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Editor = oGrid.Columns.Add("Exontrol.ComboBox").Editor
	var_Editor.EditType = 16
	var_Editor.UserEditor("Exontrol.ComboBox","")
	var_ComboBox = var_Editor.UserEditorObject
		var_ComboBox.BeginUpdate()
		var_ComboBox.Style = 2
		var_ComboBox.ColumnAutoResize = .f.
		rs = OLE.Create("ADOR.Recordset")
			rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
		var_ComboBox.DataSource = rs
		var_ComboBox.Alignment = 0
		var_ComboBox.IntegralHeight = .t.
		var_ComboBox.MinHeightList = 128
		var_ComboBox.MinWidthList = 648
		var_ComboBox.HeaderHeight = 36
		var_ComboBox.AllowSizeGrip = .t.
		var_ComboBox.SingleEdit = .t.
		var_ComboBox.LabelColumnIndex = 7
		var_ComboBox.SearchColumnIndex = 0
		var_Column = var_ComboBox.Columns.Item(0)
			var_Column.HeaderBold = .t.
			var_Column.HTMLCaption = "OrderID<br><fgcolor=808080>(search)"
		var_Column1 = var_ComboBox.Columns.Item(7)
			var_Column1.HeaderBold = .t.
			var_Column1.HTMLCaption = "ShipName<br><fgcolor=808080>(display)"
			var_Column1.Width = 128
		var_ComboBox.UseTabKey = .f.
		var_ComboBox.EndUpdate()
oGrid.DrawGridLines = -2
oGrid.DefaultItemHeight = 21
var_Items = oGrid.Items
	' var_Items.CellEditorVisible(var_Items.AddItem(10248),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellEditorVisible(AddItem(10248),0) = 1"

	' var_Items.CellEditorVisible(var_Items.AddItem(10249),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellEditorVisible(AddItem(10249),0) = 1"

	' var_Items.CellEditorVisible(var_Items.AddItem(10250),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellEditorVisible(AddItem(10250),0) = 1"

oGrid.EndUpdate()

967:
How do I sort the index column as numeric (Method 3)

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.CellData(Item,1) = var_Items.CellCaption(Item,1)
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellData(Item,1) = CellCaption(Item,1)"

end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = -1
oGrid.ColumnAutoResize = .t.
oGrid.ShowFocusRect = .f.
var_Column = oGrid.Columns.Add("Next")
	' var_Column.Def(48) = 4
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(48) = 4"

	' var_Column.Def(52) = 4
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(52) = 4"

var_Column1 = oGrid.Columns.Add("Index")
	var_Column1.AllowSizing = .f.
	var_Column1.Width = 48
	var_Column1.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
	' var_Column1.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(17) = 1"

	var_Column1.SortType = 5
	var_Column1.Position = 0
var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
	var_Items.AddItem("Item 6")
	var_Items.AddItem("Item 7")
	var_Items.AddItem("Item 8")
	var_Items.AddItem("Item 9")
	var_Items.AddItem("Item 10")
oGrid.EndUpdate()

966:
How do I sort the index column as numeric (Method 2)

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.CellSortData(Item,1) = var_Items.CellCaption(Item,1)
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellSortData(Item,1) = CellCaption(Item,1)"

end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = -1
oGrid.ColumnAutoResize = .t.
oGrid.ShowFocusRect = .f.
var_Column = oGrid.Columns.Add("Next")
	' var_Column.Def(48) = 4
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(48) = 4"

	' var_Column.Def(52) = 4
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(52) = 4"

var_Column1 = oGrid.Columns.Add("Index")
	var_Column1.AllowSizing = .f.
	var_Column1.Width = 48
	var_Column1.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
	' var_Column1.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(17) = 1"

	var_Column1.SortType = 6
	var_Column1.Position = 0
var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
	var_Items.AddItem("Item 6")
	var_Items.AddItem("Item 7")
	var_Items.AddItem("Item 8")
	var_Items.AddItem("Item 9")
	var_Items.AddItem("Item 10")
oGrid.EndUpdate()

965:
How do I sort the index column as numeric (Method 1)

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Sort Index As String (Default)")
	var_Column.FormatColumn = "1 index ``"
var_Column1 = oGrid.Columns.Add("Sort Index As Numeric")
	var_Column1.ComputedField = "%C0"
	var_Column1.SortType = 1
var_Items = oGrid.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
oGrid.EndUpdate()

964:
How can I put icons/images into buttons

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .t.
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oGrid.Columns.Add("C+B")
	var_Column.AllowSizing = .f.
	var_Column.Width = 48
	var_Column.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
	' var_Column.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(17) = 1"

	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	' var_Column.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(2) = True"

	' var_Column.Def(3) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(3) = True"

oGrid.Columns.Add("")
oGrid.DrawGridLines = 2
oGrid.DefaultItemHeight = 20
var_Items = oGrid.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
oGrid.EndUpdate()

963:
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column

' Occurs when user clicks on the cell's button.
function ButtonClick as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,Key  as  A)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "ButtonClick" 
	? Item 
	? Key 
end function

' Fired after cell's state has been changed.
function CellStateChanged as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "CellStateChanged" 
	? Item 
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .t.
var_Column = oGrid.Columns.Add("")
	var_Column.AllowSizing = .f.
	var_Column.Width = 32
	var_Column.FormatColumn = "1 index ``"
var_Column1 = oGrid.Columns.Add("Def")
	var_Column1.AllowSizing = .f.
	var_Column1.Width = 48
	var_Column1.FormatColumn = "`     `"
	' var_Column1.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(0) = True"

	' var_Column1.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(2) = True"

	' var_Column1.Def(3) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(3) = True"

oGrid.Columns.Add("")
var_Items = oGrid.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
oGrid.EndUpdate()

962:
I have columns that look up the same data. (e.g. different contact) so both could / should use the same editor. Is this possible, to use other column's editor

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Editor as P
Dim var_Editor1 as local
Dim var_Editor2 as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SelBackColor = oGrid.BackColor
oGrid.SelForeColor = oGrid.ForeColor
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("Pos")
		var_Column.Width = 32
		var_Column.AllowSizing = .f.
		var_Column.FormatColumn = "1 index ``"
	var_Editor = var_Columns.Add("C1").Editor
		var_Editor.EditType = 17
		var_Editor.ClearItems()
		var_Editor.AddItem(255,"Red Color")
		var_Editor.AddItem(16711680,"Blue Color")
		var_Editor.AddItem(65280,"Green Color")
	' var_Columns.Add("C2").Editor.EditType = 268435457 'CloneType + EditType
	var_Editor1 = var_Columns.Add("C2").Editor
	oGrid.TemplateDef = "dim var_Editor1"
	oGrid.TemplateDef = var_Editor1
	oGrid.Template = "var_Editor1.EditType = 268435457"

	' var_Columns.Add("C3").Editor.EditType = 268435457 'CloneType + EditType
	var_Editor2 = var_Columns.Add("C3").Editor
	oGrid.TemplateDef = "dim var_Editor2"
	oGrid.TemplateDef = var_Editor2
	oGrid.Template = "var_Editor2.EditType = 268435457"

var_Items = oGrid.Items
	h = var_Items.AddItem("")
	' var_Items.CellValue(h,1) = 16711680
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = 16711680"

	' var_Items.CellValue(h,2) = 65280
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = 65280"

	' var_Items.CellValue(h,3) = 255
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = 255"

	h = var_Items.AddItem("")
	' var_Items.CellValue(h,1) = 255
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = 255"

	' var_Items.CellValue(h,2) = 16711680
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = 16711680"

	' var_Items.CellValue(h,3) = 65280
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = 65280"

oGrid.EndUpdate()

961:
Is there an easy way to get an effect like in a Microsoft Access / SQL-Server Table view, where you can scroll-up till the last row containing data is displayed as top-row

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.ScrollBars = 2051 'exVScrollEmptySpace + exBoth
oGrid.Template = "ScrollPos(True) = Items.ItemCount" // oGrid.ScrollPos(.t.) = oGrid.Items.ItemCount
oGrid.EndUpdate()

960:
Does filtering work with umlauts / accents characters
Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Names")
	var_Column.DisplayFilterButton = .t.
	var_Column.FilterType = 3
var_Items = oGrid.Items
	var_Items.AddItem("Mantel")
	var_Items.AddItem("Mechanik")
	var_Items.AddItem("Motor")
	var_Items.AddItem("Murks")
	var_Items.AddItem("Märchen")
	var_Items.AddItem("Möhren")
	var_Items.AddItem("Mühle")
	var_Items.AddItem("Sérigraphie")
oGrid.Columns.Item(0).Filter = "*ä*"
oGrid.ApplyFilter()
oGrid.EndUpdate()

959:
How FullPath method works

Dim h as N
Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("C1")
oGrid.Columns.Add("C2")
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	' var_Items.CellValue(h,1) = "A"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `A`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1) = "B"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(InsertItem(h,,`Child 1`),1) = `B`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1) = "C"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(InsertItem(h,,`Child 2`),1) = `C`"

	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

oGrid.SearchColumnIndex = 1
? oGrid.SearchColumnIndex 
? .FullPath(oGrid.Items.ItemByIndex(2)) 
oGrid.SearchColumnIndex = 0
? oGrid.SearchColumnIndex 
? .FullPath(oGrid.Items.ItemByIndex(2)) 
oGrid.EndUpdate()

958:
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
Dim h0 as N
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .t.
oGrid.ContinueColumnScroll = .f.
oGrid.MarkSearchColumn = .f.
oGrid.SearchColumnIndex = 1
oGrid.FilterBarHeight = 0
oGrid.FilterBarPromptVisible = .t.
var_Columns = oGrid.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oGrid.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oGrid.TemplateDef = "dim var_Items,h0"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h0
	oGrid.Template = "var_Items.CellValue(h0,2) = `London`"

oGrid.FilterBarPromptPattern = "London"
oGrid.EndUpdate()

957:
How to load a hierarchy using the control's DataSource property (Parent-ID-Relation)

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		var_Items.SetParent(Item,var_Items.FindItem(var_Items.CellValue(Item,"ReportsTo"),"EmployeeID"))
end function

Dim oGrid as P
Dim rs as P
Dim var_Items as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.ColumnAutoResize = .f.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("SELECT * FROM Employees ORDER BY ReportsTo","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
' oGrid.Items.ExpandItem(0) = .t.
var_Items = oGrid.Items
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.ExpandItem(0) = True"

oGrid.EndUpdate()

956:
Is it possible to select the entire row/line, when user clicks the first column, and select individually the rest of cells, while user clicks any other column

' Occurs when the user presses a mouse button.
function MouseDown as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim i as N
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	i = oGrid.ItemFromPoint(-1,-1,c,hit)
	oGrid.FullRowSelect = oGrid.Columns.Item(c).Data
end function

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderHeight = 22
oGrid.HeaderAppearance = 1
oGrid.BackColorLock = 15790320
oGrid.BackColorHeader = oGrid.BackColorLock
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
oGrid.SortBarVisible = .f.
oGrid.AllowGroupBy = .t.
oGrid.ReadOnly = -1
oGrid.ShowFocusRect = .f.
oGrid.CountLockedColumns = 1
oGrid.AutoDrag = 16
oGrid.SingleSort = .f.
oGrid.ColumnsAllowSizing = .t.
oGrid.DrawGridLines = -1
oGrid.GridLineStyle = 48
oGrid.GridLineColor = 14474460
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.Columns.Item(0).Data = -1
oGrid.Layout = "singlesort=\"C5:1\";multiplesort=\" C1:2\""
oGrid.EndUpdate()

955:
The user are not able to size the columns at runtime when using HeaderAppearance property on zero
Dim oGrid as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABJEIQAAYAQGKIYBkAKBQAGaAoDDcMQ5QwAAyDGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQZonKK3LhGCYBgIA=")
oGrid.HeaderAppearance = 16777216 '1000000 + 
oGrid.Columns.Add(1)
oGrid.Columns.Add(2)
oGrid.Columns.Add(3)

954:
Is it possible to embed the exGauge into the exGrid control

' Fired when an ActiveX control hosted by an item has fired an event.
function ItemOleEvent as v (Item  as  OLE::Exontrol.Grid.1::HITEM,Ev  as  OLE::Exontrol.Grid.1::IOleEvent)
	Dim v as 
	Dim var_Gauge as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Gauge = oGrid.Items.ItemObject(oGrid.Items.ItemByIndex(2))
		v = var_Gauge.FormatABC("date(`now`)")
		var_Gauge.Layers.Item("sec").Value = v
		var_Gauge.Layers.Item("min").Value = v
		var_Gauge.Layers.Item("hour").Value = v
end function

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim var_Gauge as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Gauge = oGrid.Items.ItemObject(oGrid.Items.ItemByIndex(2))
		var_Gauge.TimerInterval = 1000
end function

Dim h as N
Dim oGrid as P
Dim v as 
Dim var_Gauge as P
Dim var_Items as P
Dim var_Layer as P
Dim var_Layer1 as P
Dim var_Layer2 as P
Dim var_Layer3 as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .t.
oGrid.LinesAtRoot = -1
oGrid.HasLines = 2
oGrid.ScrollBySingleLine = .t.
oGrid.Columns.Add("Default")
var_Items = oGrid.Items
	h = var_Items.AddItem("Normal Item")
	h = var_Items.AddItem("Gauge-Clock Inside")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.InsertControlItem(h,"Exontrol.Gauge")
	' var_Items.ItemHeight(h) = 256
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemHeight(h) = 256"

	var_Gauge = var_Items.ItemObject(h)
		var_Gauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Clock"
		' var_Gauge.DefaultLayer(185) = 2
		oGrid.TemplateDef = "dim var_Gauge"
		oGrid.TemplateDef = var_Gauge
		oGrid.Template = "var_Gauge.DefaultLayer(185) = 2"

		var_Gauge.Layers.Count = 4
		var_Layer = var_Gauge.Layers.Item(0)
			var_Layer.Background.Picture.Name = "vista_clock.png"
		var_Layer1 = var_Gauge.Layers.Item(1)
			var_Layer1.Position = 3
			var_Layer1.Key = "sec"
			var_Layer1.OnDrag = 2
			var_Layer1.Selectable = .f.
			var_Layer1.Background.Picture.Name = "second-hand.png"
			var_Layer1.ValueToRotateAngle = "((2:=(((1:=( ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) ) * 24 ))  - floor(=:1)) * 60 )) - floor(=:2) ) * 360"
			var_Layer1.RotateAngleToValue = "value / 360 / 24 / 60"
		var_Layer2 = var_Gauge.Layers.Item(2)
			var_Layer2.Position = 2
			var_Layer2.Key = "min"
			var_Layer2.OnDrag = 2
			var_Layer2.Selectable = .f.
			var_Layer2.Background.Picture.Name = "Minute.png"
			var_Layer2.ValueToRotateAngle = "((1:=( ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) ) * 24 ))  - floor(=:1)) * 360"
			var_Layer2.RotateAngleToValue = "value / 360 / 24 / 60"
		var_Layer3 = var_Gauge.Layers.Item(3)
			var_Layer3.Position = 1
			var_Layer3.Key = "hour"
			var_Layer3.OnDrag = 2
			var_Layer3.Background.Picture.Name = "Hour.png"
			var_Layer3.ValueToRotateAngle = "2 * 360 * ( (0:=(value < 0 ? floor(value) + 1 - value : value - floor(value))) < 0.5 ? =:0 : (0:= (=:0 - 0.5)) )"
			var_Layer3.RotateAngleToValue = "value / 360 * 0.5"
		v = var_Gauge.FormatABC("date(`now`)")
		var_Gauge.Layers.Item("sec").Value = v
		var_Gauge.Layers.Item("min").Value = v
		var_Gauge.Layers.Item("hour").Value = v
	h = var_Items.AddItem("Normal Item")
oGrid.EndUpdate()

953:
What's the difference between merge cells and divider item

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.CellBackColor(Item,0) = 15790320
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellBackColor(Item,0) = 15790320"
		' var_Items.ItemHasChildren(Item) = .t.
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.ItemHasChildren(Item) = True"

end function

Dim h as N
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = 0
oGrid.LinesAtRoot = -1
oGrid.DrawGridLines = -1
' oGrid.Columns.Add("C1").FormatColumn = "1 index `A-Z`"
var_Column = oGrid.Columns.Add("C1")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.FormatColumn = `1 index ``A-Z```"

' oGrid.Columns.Add("C2").FormatColumn = "1 index ``"
var_Column1 = oGrid.Columns.Add("C2")
oGrid.TemplateDef = "dim var_Column1"
oGrid.TemplateDef = var_Column1
oGrid.Template = "var_Column1.FormatColumn = `1 index `````"

' oGrid.Columns.Add("C3").FormatColumn = "1 index ``"
var_Column2 = oGrid.Columns.Add("C3")
oGrid.TemplateDef = "dim var_Column2"
oGrid.TemplateDef = var_Column2
oGrid.Template = "var_Column2.FormatColumn = `1 index `````"

var_Items = oGrid.Items
	var_Items.AddItem()
	var_Items.AddItem()
	h = var_Items.AddItem()
	' var_Items.CellMerge(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellMerge(h,0) = 1"

	' var_Items.FormatCell(h,0) = "`merge cells`"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.FormatCell(h,0) = ```merge cells```"

	' var_Items.CellHAlignment(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellHAlignment(h,0) = 1"

	h = var_Items.AddItem()
	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.CellHAlignment(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.FormatCell(h,0) = "`item divider`"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.FormatCell(h,0) = ```item divider```"

	var_Items.AddItem()
	var_Items.AddItem()
oGrid.EndUpdate()

952:
is it possible to resize a column with the mouse without changing the width of the next column

Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
' oGrid.Columns.Add("Column 1").Width = 256
var_Column = oGrid.Columns.Add("Column 1")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Width = 256"

' oGrid.Columns.Add("Column 2").Width = 512
var_Column1 = oGrid.Columns.Add("Column 2")
oGrid.TemplateDef = "dim var_Column1"
oGrid.TemplateDef = var_Column1
oGrid.Template = "var_Column1.Width = 512"

oGrid.DrawGridLines = -1
oGrid.EndUpdate()

951:
How do I ensure that the newly item fits the control's client area

' Occurs when user clicks on the cell's button.
function ButtonClick as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,Key  as  A)
	Dim h as N
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		h = var_Items.AddItem("")
		' var_Items.SelectItem(h) = .t.
		oGrid.TemplateDef = "dim var_Items,h"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = h
		oGrid.Template = "var_Items.SelectItem(h) = True"
		var_Items.EnsureVisibleItem(h)
	oGrid.FocusColumnIndex = 0
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("")
	var_Column.AllowSizing = .f.
	var_Column.AllowDragging = .f.
	var_Column.AllowSort = .f.
	var_Column.Width = 24
	' var_Column.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(2) = True"

' oGrid.Columns.Add("Position").FormatColumn = "1 apos `A-Z`"
var_Column1 = oGrid.Columns.Add("Position")
oGrid.TemplateDef = "dim var_Column1"
oGrid.TemplateDef = var_Column1
oGrid.Template = "var_Column1.FormatColumn = `1 apos ``A-Z```"

oGrid.CountLockedColumns = 1
var_Items = oGrid.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
oGrid.EndUpdate()

950:
How do I find the predefined string for giving value, or giving identifier for specified predefined caption of editor

' Occurs when the user changes the cell's content.
function Change as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,NewValue  as  A)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "FindItem(numeric) is " 
	? NewValue 
	? oGrid.Columns.Item(0).Editor.FindItem(NewValue) 
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("DropDownList")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Ken Robinson")
		var_Editor.AddItem(2,"Dave Nichols")
		var_Editor.AddItem(3,"Zane Thomas")
		var_Editor.AddItem(4,"James Shields")
var_Column1 = oGrid.Columns.Add("CellValue")
	var_Column1.FormatColumn = "%0"
	' var_Column1.Def(4) = 15790320
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(4) = 15790320"

	' var_Column1.Def(7) = var_Column1.Def(4)
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(7) = Def(4)"

var_Column2 = oGrid.Columns.Add("CellCaption")
	var_Column2.FormatColumn = "%C0"
	' var_Column2.Def(4) = 15790320
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.Def(4) = 15790320"

	' var_Column2.Def(7) = var_Column2.Def(4)
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.Def(7) = Def(4)"

var_Items = oGrid.Items
	var_Items.AddItem(1)
	var_Items.AddItem(oGrid.Columns.Item(0).Editor.FindItem("Zane Thomas"))
	var_Items.AddItem(2)
oGrid.EndUpdate()

949:
How can I align captions of items with checkbox, with items with no checkbox

Dim oGrid as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.Columns.Add("Default")
var_Items = oGrid.Items
	' var_Items.CellImages(var_Items.AddItem(0),0) = "1"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellImages(AddItem(0),0) = `1`"

	' var_Items.CellHasCheckBox(var_Items.AddItem(1),0) = .t.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHasCheckBox(AddItem(1),0) = True"

	' var_Items.CellImages(var_Items.AddItem(2),0) = "1"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellImages(AddItem(2),0) = `1`"

oGrid.EndUpdate()

948:
How can I prevent sorting a column

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
var_Column = oGrid.Columns.Add("Default")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
	var_Column.AllowSort = .f.
var_Items = oGrid.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

oGrid.EndUpdate()

947:
Is there a possibility to group without moving and showing the column to the SortBar

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .f.
oGrid.AllowGroupBy = .t.
oGrid.Layout = "singlesort=\"C5:1\";multiplesort=\" C1:2\""
oGrid.EndUpdate()

946:
How can I show each group header ( not-subroup ), with a different background color, while alternate background colors for inside items

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local
Dim var_ConditionalFormat1 as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .t.
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = .t.
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "(0:= (1 rpos '')) right ( ( 1:= ( =:0 rfind `.` ) ) != -1 ? =:1 : len(=:0))"
	var_Column.Visible = .f.
var_Column1 = oGrid.Columns.Add("Position")
	var_Column1.FormatColumn = "(1 rpos '') contains '.'"
	var_Column1.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = 15790320
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 15790320"

' oGrid.ConditionalFormats.Add("%C14 = 0").BackColor = 12500670
var_ConditionalFormat1 = oGrid.ConditionalFormats.Add("%C14 = 0")
oGrid.TemplateDef = "dim var_ConditionalFormat1"
oGrid.TemplateDef = var_ConditionalFormat1
oGrid.Template = "var_ConditionalFormat1.BackColor = 12500670"

oGrid.EndUpdate()

945:
What is the difference between %0 and %C0, when using in expressions ( format, conditional format, computed fields, and so on )

Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Editor as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HeaderAppearance = 4
oGrid.HeaderHeight = 24
oGrid.ScrollBySingleLine = .t.
oGrid.DrawGridLines = -2
' oGrid.Columns.Add("Value").Def(17) = 1
var_Column = oGrid.Columns.Add("Value")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(17) = 1"

var_Column1 = oGrid.Columns.Add("FormatColumn = `%0` ~ CellValue")
	var_Column1.FormatColumn = "%0"
	' var_Column1.Def(16) = .f.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(16) = False"

var_Column2 = oGrid.Columns.Add("FormatColumn = `%C0`~ CellCaption")
	var_Column2.FormatColumn = "%C0"
	' var_Column2.Def(16) = .f.
	oGrid.TemplateDef = "dim var_Column2"
	oGrid.TemplateDef = var_Column2
	oGrid.Template = "var_Column2.Def(16) = False"

var_Items = oGrid.Items
	var_Items.AddItem(1.1234)
	' var_Items.CellValueFormat(var_Items.AddItem("<sha ;;0>This <fgcolor=FF0000>is a <s><b>HTM</fgcolor>L</b> text</s>."),0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValueFormat(AddItem(`<sha ;;0>This <fgcolor=FF0000>is a <s><b>HTM</fgcolor>L</b> text</s>.`),0) = 1"

	var_Editor = var_Items.CellEditor(var_Items.AddItem(3))
		var_Editor.EditType = 6
		var_Editor.AddItem(1,"Border")
		var_Editor.AddItem(2,"Thick")
		var_Editor.AddItem(4,"Shadow")
	' var_Items.FormatCell(var_Items.AddItem(10000),0) = "`<b>` + currency(value)"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.FormatCell(AddItem(10000),0) = ```<b>`` + currency(value)`"

oGrid.EndUpdate()

944:
How can I alternate colors for each group header ( not-subroup ), with a different background color, while items of the same group showing with a different color

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local
Dim var_ConditionalFormat1 as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .t.
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = .t.
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
	var_Column.Visible = .f.
var_Column1 = oGrid.Columns.Add("Position")
	var_Column1.FormatColumn = "(1 rpos '') contains '.'"
	var_Column1.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = 15790320
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 15790320"

' oGrid.ConditionalFormats.Add("%C14 = 0").BackColor = 12500670
var_ConditionalFormat1 = oGrid.ConditionalFormats.Add("%C14 = 0")
oGrid.TemplateDef = "dim var_ConditionalFormat1"
oGrid.TemplateDef = var_ConditionalFormat1
oGrid.Template = "var_ConditionalFormat1.BackColor = 12500670"

oGrid.EndUpdate()

943:
How can I highlight each group header, with a different background color (method 2)

' Occurs after a new Group Item has been inserted to Items collection.
function AddGroupItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as local
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	' oGrid.Items.ItemBackColor(Item) = 12500670
	var_Items = oGrid.Items
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ItemBackColor(Item) = 12500670"

end function

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .t.
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = .t.
oGrid.EndUpdate()

942:
How can I highlight each group header ( not-subroup ), with a different background color (method 1)

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .t.
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = .t.
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
	var_Column.Visible = .f.
var_Column1 = oGrid.Columns.Add("Position")
	var_Column1.FormatColumn = "(1 rpos '') contains '.'"
	var_Column1.Visible = .f.
' oGrid.ConditionalFormats.Add("%C14 = 0").BackColor = 12500670
var_ConditionalFormat = oGrid.ConditionalFormats.Add("%C14 = 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 12500670"

oGrid.EndUpdate()

941:
The BackColorAlternate displays each second row with a different background color. Is it possible to apply a different background color, for each sub-tree, ConditionalFormats, Add

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

' Fired when the control sorts a column.
function Sort as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_ConditionalFormat as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
var_Column = oGrid.Columns.Add("P1")
	' var_Column.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(0) = True"

	var_Column.PartialCheck = .t.
var_Column1 = oGrid.Columns.Add("P2")
	' var_Column1.Def(0) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(0) = True"

	var_Column1.PartialCheck = .t.
var_Items = oGrid.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

var_Column2 = oGrid.Columns.Add("Position")
	var_Column2.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
	var_Column2.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C2 mod 2) != 0").BackColor = 15790320
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C2 mod 2) != 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 15790320"

oGrid.EndUpdate()

940:
The BackColorAlternate displays each second row with a different background color. Is it possible to apply a different background color, for 2nd, 3rd, 4th, row, and so on

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

' Fired when the control sorts a column.
function Sort as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_ConditionalFormat as local
Dim var_ConditionalFormat1 as local
Dim var_ConditionalFormat2 as local
Dim var_ConditionalFormat3 as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "1 apos ''"
	var_Column.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C13 mod 5) = 1").BackColor = 8421504
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C13 mod 5) = 1")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 8421504"

' oGrid.ConditionalFormats.Add("(%C13 mod 5) = 2").BackColor = 10790052
var_ConditionalFormat1 = oGrid.ConditionalFormats.Add("(%C13 mod 5) = 2")
oGrid.TemplateDef = "dim var_ConditionalFormat1"
oGrid.TemplateDef = var_ConditionalFormat1
oGrid.Template = "var_ConditionalFormat1.BackColor = 10790052"

' oGrid.ConditionalFormats.Add("(%C13 mod 5) = 3").BackColor = 12500670
var_ConditionalFormat2 = oGrid.ConditionalFormats.Add("(%C13 mod 5) = 3")
oGrid.TemplateDef = "dim var_ConditionalFormat2"
oGrid.TemplateDef = var_ConditionalFormat2
oGrid.Template = "var_ConditionalFormat2.BackColor = 12500670"

' oGrid.ConditionalFormats.Add("(%C13 mod 5) = 4").BackColor = 15790320
var_ConditionalFormat3 = oGrid.ConditionalFormats.Add("(%C13 mod 5) = 4")
oGrid.TemplateDef = "dim var_ConditionalFormat3"
oGrid.TemplateDef = var_ConditionalFormat3
oGrid.Template = "var_ConditionalFormat3.BackColor = 15790320"

oGrid.EndUpdate()

939:
The BackColorAlternate displays each second row with a different background color. The question I have it is possible to apply a different background color for 3rd, 4th, row, and so on

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

' Fired when the control sorts a column.
function Sort as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_ConditionalFormat as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "1 apos ''"
	var_Column.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C13 mod 4) = 0").BackColor = 15790320
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C13 mod 4) = 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 15790320"

oGrid.EndUpdate()

938:
The BackColorAlternate looks fine for flat tables, but how about using it when displaying a hierarchy/tree, like grouping rows. The sample alternate colors for each group found

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Refresh()
end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_ConditionalFormat as local

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.HasLines = 0
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.SortBarVisible = .t.
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = .t.
var_Column = oGrid.Columns.Add("Position")
	var_Column.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
	var_Column.Visible = .f.
' oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = 15790320
var_ConditionalFormat = oGrid.ConditionalFormats.Add("(%C13 mod 2) != 0")
oGrid.TemplateDef = "dim var_ConditionalFormat"
oGrid.TemplateDef = var_ConditionalFormat
oGrid.Template = "var_ConditionalFormat.BackColor = 15790320"

oGrid.EndUpdate()

937:
I need to display sub-totals in the grouping items. Is there any solution on this

' Occurs after a new Group Item has been inserted to Items collection.
function AddGroupItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.ItemDivider(Item) = -1
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.ItemDivider(Item) = -1"
		' var_Items.EnableItem(Item) = .f.
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.EnableItem(Item) = False"
		' var_Items.CellValueFormat(Item,oGrid.TreeColumnIndex) = 1
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValueFormat(Item,Me.TreeColumnIndex) = 1"
		' var_Items.FormatCell(Item,oGrid.TreeColumnIndex) = "%1"
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.FormatCell(Item,Me.TreeColumnIndex) = `%1`"
		' var_Items.CellValueFormat(Item,"Freight") = 5 'exTotalField + exHTML
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValueFormat(Item,`Freight`) = 5"
		' var_Items.CellValue(Item,"Freight") = "sum(current,dir,%6)"
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValue(Item,`Freight`) = `sum(current,dir,%6)`"
		' var_Items.FormatCell(Item,"Freight") = "`<b>` + currency(value)"
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.FormatCell(Item,`Freight`) = ```<b>`` + currency(value)`"

end function

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SelBackMode = 1
oGrid.BackColorSortBar = 15790320
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SortBarVisible = .t.
oGrid.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oGrid.AllowGroupBy = .t.
oGrid.Columns.Item(1).SortOrder = 1
oGrid.LinesAtRoot = 5
oGrid.Columns.Item("ShipVia").DisplayFilterButton = .t.
oGrid.EndUpdate()

936:
I use a subtotal in exTop-Item, after grouping the item shows 0. What is the solution

Dim h as N
Dim oGrid as P
Dim rs as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SingleSort = .f.
oGrid.AllowGroupBy = .t.
oGrid.SortBarVisible = .t.
oGrid.BackColorSortBar = oGrid.BackColor
oGrid.Columns.Item(5).SortOrder = 1
oGrid.Columns.Item(6).FormatColumn = "currency(value)"
var_Items = oGrid.Items
	' var_Items.LockedItemCount(0) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.LockedItemCount(0) = 1"

	h = var_Items.LockedItem(0,0)
	' var_Items.ItemBackColor(h) = 15790320
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemBackColor(h) = 15790320"

	' var_Items.CellBackColor(h,6) = 12500670
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellBackColor(h,6) = 12500670"

	' var_Items.CellValue(h,6) = "sum(all,rec,%6)"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,6) = `sum(all,rec,%6)`"

	' var_Items.CellValueFormat(h,6) = 4
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValueFormat(h,6) = 4"

oGrid.Refresh()
oGrid.EndUpdate()

935:
I would like to avoid manual typing in the date-cell because user often type wrong things (no decimal points and so on) and so the todays-date is generated for the cell. What can be done

' Occurs when the user presses and releases an ANSI key.
function KeyPress as v (KeyAscii  as  N)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "if .Editying != 0 then" 
	? oGrid.Editing 
	KeyAscii = 0
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
var_Columns = oGrid.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Date")
		var_Column.Editor.EditType = 7
		var_Column.Width = 128
var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("Item 1"),1) = {09/21/2006}
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 1`),1) = #9/21/2006#"

	' var_Items.CellValue(var_Items.AddItem("Item 2"),1) = {12/22/2015}
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 2`),1) = #12/22/2015#"

	' var_Items.CellValue(var_Items.AddItem("Item 3"),1) = {01/10/2015}
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 3`),1) = #1/10/2015#"

oGrid.EndUpdate()

934:
The control does not ensure the item to fit the control's client area once the user clicks the cell's button or check box. What can be done
' Occurs when the user presses a mouse button.
function MouseDown as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	' Items.EnsureVisibleItem(ItemFromPoint(-1,-1,c,hit))
	oGrid = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.SelForeColor = oGrid.ForeColor
var_Column = oGrid.Columns.Add("Buttons")
	var_Column.Alignment = 1
	' var_Column.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(2) = True"

var_Items = oGrid.Items
	var_Items.AddItem("Button A")
	var_Items.AddItem("Button B")
	var_Items.AddItem("Button C")
oGrid.EndUpdate()

933:
How do you save the index number from a drop down to a database

Dim oGrid as P
Dim rs as P
Dim var_Column as P
Dim var_Editor as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
var_Column = oGrid.Columns.Item("ShipVia")
	' var_Column.Def(4) = 15790320
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(4) = 15790320"

	var_Column.Position = 1
	var_Column.Width = 96
	var_Editor = var_Column.Editor
		var_Editor.EditType = 3
		var_Editor.AddItem(1,"Speedy Express")
		var_Editor.AddItem(2,"United Package")
		var_Editor.AddItem(3,"Federal Shipping")
oGrid.EndUpdate()

932:
Is there a way to set the column width and have it stay when refreshing using the data source

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujIAGMcj0gjcGk8QhkQgUOjUEjsfkMFAB2lEnhRihcYjUvnsykQAO8oMkTNEtGgAGUwn0uoEIhUMh0QiUOisXiE7rEyl8jAElokptYAllmpcCtMmjE3mU6jdzrUGoUKttGvFJs90oFPhVRh1Twg4wtaptco9fiMTsdIvcxw1Nkl2hUOlVwlsvnmayFAmtHnETuWm0lAv+eAGCzFK10zp1QqVUAGOvkvuuSr0YsMUi2Y0tZ4FAztt0FvuNa23Kvt2m0YnMt5No6uxwOq0eP5cGxAAxQAxgAGwAqu/q1blHDsGW49lzPUq9qtko58r8Krvc/LrPA7LWvw2ChpQ2j7Om7kBPK870hu+6ZQE4SJvmsT6u0x8BOa/iUP8jUANNATUrxAsKIFATvQU8DCL5B7dMWlr1u2gQZvgrsMMrDSyQ4vkcv02T+tEjUcyC1C7uw1kVABISgwSosXq1JLyRm9EaycqqDQuyjisu+0bvY5i3udEMjTIvkuQHFEmzHNkWymwcqtNNkIN2jUbMeGsdMm4j6R/AyZT7IcztC6M+r5Qs2yYvUx0ZOTZypBqBUZPEaMax71y6+MeTBDdBoFTjjv2z80Oi9a+VJE9HSA01SUlBbw1Ww8sPSqtFNNCdOx3L9AuQx9eVLIlUJbCa+WHVrV0fYUEMBF06UqAFh0xLLCT7abHV7P8MuNQUnW3YlDuglrfNNcVlrzV6s3FWVKMfcVrPSq6rva0wcz8+Ue2/YK+XzQ0QUQlt83/JTr2ZdiZYBKNoTm2rH4ZedzSckqGDqAA2tEk7CSQmKEJKgWMY5CmQJlkaZYsAGMY0liFJYqKIDxhSpjCu0vUBQappOgSJZUhlBtTmyJIEqaBZVljRZe8yMZnoMl4SjQRI3qal3U7OjqPpOXNFmIAadCiHIkiDV6RjOla7puFKFnjK5/ta7Z6t6GIYkqEIQ1NmqWgIA="
oGrid.EndUpdate()

931:
Is it possible to decode/view the control's Layout property

Dim oGrid as P
Dim var_Column as local
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SingleSort = .f.
oGrid.Columns.Add("C0")
' oGrid.Columns.Add("C1").SortOrder = 1
var_Column = oGrid.Columns.Add("C1")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.SortOrder = 1"

oGrid.Columns.Add("C2")
var_Print = OLE.Create("Exontrol.Print")
	? var_Print.Decode64TextW(oGrid.Layout) 
oGrid.EndUpdate()

930:
How do I programmatically sort by multiple columns

Dim oGrid as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SingleSort = .f.
oGrid.Columns.Add("C0")
oGrid.Columns.Add("C1")
oGrid.Columns.Add("C2")
oGrid.Layout = "multiplesort=\"C2:1 C1:2 C0:2\""
oGrid.EndUpdate()

929:
Do you have any Fit-To-Page options when printing the control (W x T, Fit-To )

Dim oGrid as P
Dim rs as P
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb",3,3)
oGrid.DataSource = rs
oGrid.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage =2 x 1"
	var_Print.PrintExt = oGrid
	var_Print.Preview()

928:
Do you have any Fit-To-Page options when printing the control ( x T, Fit-To Tall )

Dim oGrid as P
Dim rs as P
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb",3,3)
oGrid.DataSource = rs
oGrid.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage = x 2"
	var_Print.PrintExt = oGrid
	var_Print.Preview()

927:
Do you have any Fit-To-Page options when printing the control ( W x, Fit-To Wide )

Dim oGrid as P
Dim rs as P
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb",3,3)
oGrid.DataSource = rs
oGrid.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage = 2 x"
	var_Print.PrintExt = oGrid
	var_Print.Preview()

926:
Do you have any Fit-To-Page options when printing the control ( percent view, Adjust-To )

Dim oGrid as P
Dim rs as P
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb",3,3)
oGrid.DataSource = rs
oGrid.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage = 50%"
	var_Print.PrintExt = oGrid
	var_Print.Preview()

925:
How can I get notified once the user expands a column

' Occurs when column's position or column's size is changed.
function LayoutChanged as v ()
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	? "Column-Expanded" 
	? oGrid.Columns.Item("C0").Expanded 
end function

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ShowFocusRect = .f.
oGrid.ColumnAutoResize = .f.
oGrid.DrawGridLines = -1
oGrid.BackColorLevelHeader = oGrid.BackColor
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("C0")
		var_Column.ExpandColumns = "0,1,2"
		var_Column.DisplayExpandButton = .t.
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oGrid.Items
	h = var_Items.AddItem("Cell 0.0")
	' var_Items.CellValue(h,1) = "Cell 0.1"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 0.1`"

	' var_Items.CellValue(h,2) = "Cell 0.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `Cell 0.2`"

	h = var_Items.AddItem("Cell 1.0")
	' var_Items.CellValue(h,1) = "Cell 1.1"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 1.1`"

	' var_Items.CellValue(h,2) = "Cell 1.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `Cell 1.2`"

oGrid.EndUpdate()

924:
I am using expandable headers, the question is how I can display the column itself, not just the child columns

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.DrawGridLines = -1
oGrid.BackColorLevelHeader = oGrid.BackColor
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("C0")
		var_Column.ExpandColumns = "0,1,2"
		var_Column.DisplayExpandButton = .t.
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oGrid.Items
	h = var_Items.AddItem("Cell 0.0")
	' var_Items.CellValue(h,1) = "Cell 0.1"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 0.1`"

	' var_Items.CellValue(h,2) = "Cell 0.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `Cell 0.2`"

	h = var_Items.AddItem("Cell 1.0")
	' var_Items.CellValue(h,1) = "Cell 1.1"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 1.1`"

	' var_Items.CellValue(h,2) = "Cell 1.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `Cell 1.2`"

oGrid.EndUpdate()

923:
How do I layout expandable columns

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = .f.
oGrid.DrawGridLines = -1
oGrid.BackColorLevelHeader = oGrid.BackColor
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("C0")
		var_Column.ExpandColumns = "1,2"
		var_Column.DisplayExpandButton = .t.
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column1 = var_Columns.Add("C4")
		var_Column1.ExpandColumns = "5,6"
		var_Column1.DisplayExpandButton = .t.
	var_Columns.Add("C5")
	var_Column2 = var_Columns.Add("C6")
		var_Column2.ExpandColumns = "6,7"
		var_Column2.DisplayExpandButton = .t.
	var_Columns.Add("C7")
oGrid.EndUpdate()
oGrid.Columns.Item("C4").Expanded = .f.

922:
How do I make the control read-only (method 2)

' Occurs just before editing the focused cell.
function Edit as v (Item  as  OLE::Exontrol.Grid.1::HITEM,ColIndex  as  N,Cancel  as  L)
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	Cancel = .t.
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Editor1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Editor = oGrid.Columns.Add("Editor").Editor
	var_Editor.EditType = 6
	var_Editor.AddItem(1,"One")
	var_Editor.AddItem(2,"Two")
var_Column = oGrid.Columns.Add("Check")
	var_Editor1 = var_Column.Editor
		var_Editor1.EditType = 19
		' var_Editor1.Option(16) = 2
		oGrid.TemplateDef = "dim var_Editor1"
		oGrid.TemplateDef = var_Editor1
		oGrid.Template = "var_Editor1.Option(16) = 2"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem(1),1) = 0
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(1),1) = 0"

	' var_Items.CellValue(var_Items.AddItem(2),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(2),1) = 1"

oGrid.EndUpdate()

921:
How do I set a locked check-box

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Editor as P
Dim var_Editor1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Locked-Check")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 19
		' var_Editor.Option(16) = 2
		oGrid.TemplateDef = "dim var_Editor"
		oGrid.TemplateDef = var_Editor
		oGrid.Template = "var_Editor.Option(16) = 2"

		var_Editor.Locked = .t.
var_Column1 = oGrid.Columns.Add("Unlocked-Check")
	var_Editor1 = var_Column1.Editor
		var_Editor1.EditType = 19
		' var_Editor1.Option(17) = 1
		oGrid.TemplateDef = "dim var_Editor1"
		oGrid.TemplateDef = var_Editor1
		oGrid.Template = "var_Editor1.Option(17) = 1"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem(1),1) = 0
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(1),1) = 0"

	' var_Items.CellValue(var_Items.AddItem(0),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(0),1) = 1"

oGrid.EndUpdate()

920:
Does the title of the cell's tooltip supports HTML format

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("")
	var_Column.Caption = ""
	var_Column.HTMLCaption = "Column"
var_Items = oGrid.Items
	' var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color."
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellToolTip(AddItem(`tooltip w/h different title`),0) = `<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color.`"

oGrid.EndUpdate()

919:
How do I specify a different title for the cell's tooltip

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("")
	var_Column.Caption = "This is the title"
	var_Column.HTMLCaption = "Column"
var_Items = oGrid.Items
	' var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0) = "This is bit of text that's shown when the user hovers the cell."
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellToolTip(AddItem(`tooltip w/h different title`),0) = `This is bit of text that's shown when the user hovers the cell.`"

oGrid.EndUpdate()

918:
The cell's tooltip displays the column's caption in its title. How can I get ride of that

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oGrid.Items
	h = var_Items.AddItem("tooltip w/h caption")
	' var_Items.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellToolTip(h,0) = `This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.`"

	' var_Items.CellValue(h,1) = "tooltip no caption"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `tooltip no caption`"

	' var_Items.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellToolTip(h,1) = `This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.`"

var_Column = oGrid.Columns.Item("C2")
	var_Column.HTMLCaption = var_Column.Caption
	var_Column.Caption = ""
oGrid.EndUpdate()

917:
How can I programmatically show the column's filter

' Fired when right mouse button is clicked
function RClick as v ()
	Dim i as N
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	i = oGrid.ItemFromPoint(-1,-1,c,hit)
	oGrid.Columns.Item(c).ShowFilter("-1,-1,128,128")
end function

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ShowFocusRect = .f.
var_Column = oGrid.Columns.Add("Items ")
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oGrid.EndUpdate()

916:
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)

' Fired after the user clicks on column's header.
function ColumnClick as v (Column  as  OLE::Exontrol.Grid.1::IColumn)
	' Column.SortOrder = 1
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.SortOnClick = -1
	oGrid.Columns.Item("Sort").SortOrder = 1
	oGrid.SortOnClick = 1
end function

Dim oGrid as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SortOnClick = 1
oGrid.Columns.Add("Items")
' oGrid.Columns.Add("Sort").Visible = .f.
var_Column = oGrid.Columns.Add("Sort")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Visible = False"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1) = 3
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 1 (3)`),1) = 3"

	' var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 2 (1)`),1) = 1"

	' var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1) = 2
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 3 (2)`),1) = 2"

oGrid.EndUpdate()

915:
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)

' Fired after the user clicks on column's header.
function ColumnClick as v (Column  as  OLE::Exontrol.Grid.1::IColumn)
	' Column.SortOrder = 1
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	oGrid.Items.SortChildren(0,"Sort",.t.)
end function

Dim oGrid as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SortOnClick = 1
oGrid.Columns.Add("Items")
' oGrid.Columns.Add("Sort").Visible = .f.
var_Column = oGrid.Columns.Add("Sort")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Visible = False"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1) = 3
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 1 (3)`),1) = 3"

	' var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1) = 1
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 2 (1)`),1) = 1"

	' var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1) = 2
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`Item 3 (2)`),1) = 2"

oGrid.EndUpdate()

914:
How can I highlight the cell's button with a different appearance, when cursor hovers it

Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGrid.DefaultItemHeight = 22
oGrid.TreeColumnIndex = -1
oGrid.SelForeColor = 0
oGrid.SelBackColor = oGrid.BackColor
oGrid.Template = "Background(157) = 16777216" // oGrid.Background(157) = 16777216
var_Column = oGrid.Columns.Add("Buttons")
	' var_Column.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(2) = True"

	' var_Column.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(17) = 1"

	var_Column.Alignment = 1
	var_Column.HeaderAlignment = 1
var_Items = oGrid.Items
	var_Items.AddItem("Button <b>1</b>")
	var_Items.AddItem("Button <b>2</b>")
	var_Items.AddItem("Button <b>3</b>")
oGrid.EndUpdate()

913:
How can I prevent highlighting the cell's button while cursor hovers it

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		' var_Items.CellValue(Item,0) = "Button <b>A</b>"
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValue(Item,0) = `Button <b>A</b>`"
		' var_Items.CellValue(Item,1) = "Button <b>B</b>"
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValue(Item,1) = `Button <b>B</b>`"

end function

Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DefaultItemHeight = 22
oGrid.TreeColumnIndex = -1
oGrid.SelForeColor = 0
oGrid.SelBackColor = oGrid.BackColor
oGrid.Template = "Background(157) = -1" // oGrid.Background(157) = -1
var_Column = oGrid.Columns.Add("A")
	' var_Column.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(2) = True"

	' var_Column.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(17) = 1"

	var_Column.Alignment = 1
	var_Column.HeaderAlignment = 1
var_Column1 = oGrid.Columns.Add("B")
	' var_Column1.Def(2) = .t.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(2) = True"

	' var_Column1.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(17) = 1"

	var_Column1.Alignment = 1
	var_Column1.HeaderAlignment = 1
' oGrid.Columns.Add("").Position = 1
var_Column2 = oGrid.Columns.Add("")
oGrid.TemplateDef = "dim var_Column2"
oGrid.TemplateDef = var_Column2
oGrid.Template = "var_Column2.Position = 1"

var_Items = oGrid.Items
	' var_Items.CellEnabled(var_Items.AddItem(""),1) = .f.
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellEnabled(AddItem(``),1) = False"

	var_Items.AddItem("")
	var_Items.AddItem("")
oGrid.EndUpdate()

912:
How can I change the image of the icon while performing OLE Drag and Drop

' Occurs when the OLEDrag method is called.
function OLEStartDrag as v (Data  as  OLE::Exontrol.Grid.1::IExDataObject,AllowedEffects  as  N)
	' Data.SetData("your data to drag")
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	AllowedEffects = 2
end function

Dim oGrid as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.OLEDropMode = 1
oGrid.ColumnAutoResize = .f.
oGrid.DefaultItemHeight = 22
oGrid.HeaderHeight = oGrid.DefaultItemHeight
' oGrid.Columns.Add("Default").Width = 128
var_Column = oGrid.Columns.Add("Default")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Width = 128"

var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
var_Appearance = oGrid.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAChABakMACAADACAxRDQNABQKAAzQFAYaBiG6GAAGEaRYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQIhsC4JUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMLaYgkIIlVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLxPF2MY1HWYxVj2Jw3DuRJonKYB5lKAYkkYdA6hyDIjBkApaFoAAhBMfYxiGNAkFECZnm4YQBgiOgDl2URSE4KAEj2AJKigFgGgGYIIAyPQ6CCRogAAOxhAMSgSDgIRDhYFoFmGCBmBQOAMjgdgQDsUITEIIg5iISAEmIOBigiJgqgqYhoFyVILyyMgyDmYxDg4rBjgiZg6g0Dh4kiTIMGMKAwmgOQkEkFhGhGZIJAoPoQAyQ4mE6BhlAkRgXhODoZC0A4Pg6KRmCSFplkkdheDmJYTioVgACOY4uGaDwmgmJhqg8JlWmOGRmGkChyhyZxJAobYbmMI4yHqFQnkmdh+2RYp4DMIZ5gaBohmiCYGB+IJOmoNhtiPXZGG2I1tgyb4lmgGhmhqJt0Fyb4gk8CtsCiahKhYH4oXiAohiUKpKjaLt+goDJxiyaZqlaNot4OTJx3gKp2iiL5sAsBoov+KgMnOMZrisJpKjLjocnPeBLEaRI0m0SxWkSNBPEoDJ1jabJrHaXo35obOZC2OximaOZugsYpi3ga42mKO5vAuRpijsTxqAyd49m8S5mnqPuqFyd4gk+DAGn6QJwEwFp+kAT+BnmQpwgwNwOkPtYsnnrgsFcEpFnGDBnBKRRPiwUwckecgMgcIpHGMKQwnuSZygyJ1/HKOgMnyS5zAyRwykycw5g4Eg0jCA57DqTpzkydw+kIDR9AUCY9A2HQXBIUh0g0JRJ5aUxmnQZIPnkUgvDUI5tFcVoPjUOB+A4QBAICA")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABC8MACAADACAxRDQNABQKAAzQFAYaBiG6GAAGEaRYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUTCQbR7HiQYyBeCQOo+VoaSACEIlAZJRjoOo5DJGGQILlQJqyYrpaAxIgkEJuTqGoQaXgle53PJeLpXW5Nez9P7AMBwK7bbaqeTyXa+eDtJhif4cXjIMhyLI8UxXEKOL7jDSYPgqK48QhCEJQPQ9EyXJqnahoemCeRXBZ+aqxbBsCwCep0YBeNr3HaNaz3PK/brtWxMDpeA5IYhhF7WdZFR4tMrOdAtHL9FyPJ5TFicgXnoTAKAsRpHPeVhrAUd4LkmY5yj+fQ+i8L4zk+Y5vjCe4oD6ZoNhSRxiisVRKg+T5vnWfB6h6J5yAIf4fieWJFHyHZHHSTAygyAociMKBKEKBIeCiCZyHYFAnCAB4mBeBQJlgRIegOCgYCySAgh2WAkgINAMmMNIgCcCYoGYLoLmKaIshqCgMliEICgmDRDEiUQmkmAhWDCD5inicIVg4TQYloJg2g2ExYhoJZJEidIThMCQSFyEwkGKaRKFEJQJBkOhLCUJIDFoRiKBmBJhDeDZZDoPAlgmQhghaGZimmHhphqZopDoYw3GYEgFgGHROGOFJkCSSQCDoTAkiSaQ6C6IBJFkPIUCSJ5CDoeQ5CcVZ5gWHROmONJsCMSISByEFyjIRoYiaKYaG6HonEiOhcguJQIHoRJsh0WBWB2JIpiqShKi0OwqnqRouiyTpGhGBxiYIZKOhqGp2j4aRaAqZL3FAECAgA==")
oGrid.Template = "Background(33) = 16777216" // oGrid.Background(33) = 16777216
oGrid.Template = "Background(34) = 33554432" // oGrid.Background(34) = 33554432
oGrid.Template = "Background(37) = 65536" // oGrid.Background(37) = 65536
oGrid.EndUpdate()

911:
How can I sort by two-columns, one by date and one by time

Dim h as N
Dim oGrid as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.SingleSort = .f.
var_Columns = oGrid.Columns
	' var_Columns.Add("Index").FormatColumn = "1 index ``"
	var_Column = var_Columns.Add("Index")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.FormatColumn = `1 index `````"

	' var_Columns.Add("Date").SortType = 2
	var_Column1 = var_Columns.Add("Date")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.SortType = 2"

	var_Column2 = var_Columns.Add("Time")
		var_Column2.SortType = 4
		var_Column2.FormatColumn = "time(value)"
var_Items = oGrid.Items
	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {01/01/2001}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #1/1/2001#"

	' var_Items.CellValue(h,2) = {01/01/2001 10:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 10:00:00 AM#"

	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {12/31/2000}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #12/31/2000#"

	' var_Items.CellValue(h,2) = {01/01/2001 10:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 10:00:00 AM#"

	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {01/01/2001}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #1/1/2001#"

	' var_Items.CellValue(h,2) = {01/01/2001 06:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 6:00:00 AM#"

	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {12/31/2000}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #12/31/2000#"

	' var_Items.CellValue(h,2) = {01/01/2001 08:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 8:00:00 AM#"

	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {01/01/2001}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #1/1/2001#"

	' var_Items.CellValue(h,2) = {01/01/2001 08:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 8:00:00 AM#"

	h = var_Items.AddItem(0)
	' var_Items.CellValue(h,1) = {12/31/2000}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = #12/31/2000#"

	' var_Items.CellValue(h,2) = {01/01/2001 06:00:00}
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = #1/1/2001 6:00:00 AM#"

oGrid.Layout = "multiplesort=\"C1:1 C2:1\""
oGrid.EndUpdate()

910:
How can I display a context menu

' Occurs when the user releases a mouse button.
function MouseUp as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Grid.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Grid.1::OLE_YPOS_PIXELS)
	Dim var_ExContextMenu as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_ExContextMenu = OLE.Create("Exontrol.ContextMenu")
		var_ExContextMenu.Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3"
		? var_ExContextMenu.Select() 
end function

Dim oGrid as P
Dim rs as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.ColumnAutoResize = .f.
oGrid.ScrollBySingleLine = .t.
oGrid.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.ReadOnly = -1

909:
Also, are there any plans on the ability to put borders on individual cells or rows or columns

Dim h as N
Dim hx as 
Dim oGrid as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Appearance = oGrid.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAChABOUGACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYRhkEYgEiONoaDJCM4wHIMQxHCKTZRkGYpajOPobUbGUywHRcRRvH6EZQGWg6GjqK43SCEEZhJBNGyTJ6BZbGURbCqSLAwWZAYy2RCMRxDJqLKypSwKPoGKosS5OUwzHItaRtHaJJAwKZ6ApGQpRVTAYxVfC1PzkACma4nS7oXraVJFVZTdYwTh+JABTzGLpnKw7FhGa5pABpdq0RTuOZdAbPMoyXBrXqqB46UCOGg5HRWWwHR7ZIquap9JzfCq5cRbWr5BBOPaBYKwdD1CB+iMVRnlQRY4hafZwAMH5Pl4XQnjCEBECSIBpDGHQOicIwtBIBpmiWEIJj6eJQloEgomafgyGGCI6kKYZQH+igGAKAJgEgFgGgGYIFlCf4CmCSA2A6A5hAgRgEgQYRIFYFIEmEaBmBmBghigdgQgcIZogYC4ICIKB6CSCRhiiHgogWIooi4F4AmKaIaDCDBihiTg0gsIIYmYOoOmOSJ2D6AZQBAgI=")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABdUIQAAYAQGKIaBoAKBQAGaAoDDYMg1QwAAxDGLEEwsACEIrjKCVIgkHYJRjGEZxNCMIhiGAaQChEZYHgkMomDAOEgyHKcEgJGyEQgkOa4ajCKYrSzAcrwTI4cRVHiQZygOZ4DBSOY8VBAcQweItJhrKqVRgriitNQjCyjZCpOaIDooAJmRZNNISBBIEQSKA0TDOQ5TSKUMYhOZTBBEbbMNBtBIUIRpajbMBiFywUxUOJYXhmG4dR7IMhyLI8UxXFo7P7mOZZXjmO49T7Kc70LQ9CyHJKnabpWoaXj2VZZV7Mda2DTNSzPKK1bZpG4bTouKZ5WjfN72fgeCzrF7HchyPJcXxnG4ZAMBA")
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAChABL0GACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgEgmEQxDANIBQSKoaQiGQYRhkEYpFiONoXDJCM4wHIMQxHCKTZRkGYpajOPobUbGUygBRdExvEyEZQGWg6GjqK43SCEEZhJBNGyfH6dBpEWT7ChENQwWLLFoRDIcQyXCytIDter4boGKosS5OUwzGAtaRvHaJJAwKZ6ApGQpRVTAYxUdC1HTjJiEa4nS7oXraVJFVZTdYwTh+JABTzGKbsSycKqWaqkABZeoWbTuOZdAbPMoyXBrXgOLYzUCOGg5HRWWwHR7ZIq0Pg9Hqaa4bVbIVxbcAGH6BQa6J5hEBECSIBpDGHQOicIwtBIBpmhqEIJj2eJQloEgokiegyGGCI6kKZ5BnefA+D8L4flOa52nufg+g+f5fnPFB/ooBZ1omSAWASAJgGgJgJgIIIoDYAIDCCaBFnuBAhCgOgUgUYIoF4GIBiGKBuAcfohmgNgdggX54g4JB/F+GImCqCpikiNguguUAQICA=")
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAChABBUGACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSpEEg7BKMYwjOJgCgmEQxDANMiwGKoaQiGQYRhkEYgFiONoaDJCM4wHIMQxHCKTZRkGYpajOPobUbAYQQSAkEgpECbZqoEZaDoaOorTZINJ0VR1Ox5KKfZyGURZPqOEQ1DBZEI2RZUbxDJquLhACj7AjeZZtRJZVp2TY9eQ3LC3aYhGqwAwSFpJVjUEBgRBJIDSMY6DpOIxaEgNZpwEITOTxUK0EhRLy5agDCJ1QrCdanahqOpaXpmW5dV7YNh2LTnfzXNq3bhuO5bXqOd59X7fN54Dg+D4LRLHbpxXIcXqvFaZZDnOb4ToPEuAZUmqcB2B2DoHGuN5Tm6d46lsPwfhOS5mnOeg9DqCAIICA")
oGrid.LinesAtRoot = 1
oGrid.SelBackColor = oGrid.BackColor
oGrid.SelForeColor = oGrid.ForeColor
oGrid.DefaultItemHeight = 22
oGrid.Columns.Add("")
' oGrid.Columns.Add("").Def(4) = 33554432
var_Column = oGrid.Columns.Add("")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(4) = 33554432"

oGrid.Columns.Add("")
var_Items = oGrid.Items
	h = var_Items.AddItem("Root 1")
	' var_Items.ItemBackColor(h) = 16777216
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemBackColor(h) = 16777216"

	hx = var_Items.SplitCell(h,0)
	' var_Items.CellValue(0,hx) = "count(current,dir,1)"
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellValue(0,hx) = `count(current,dir,1)`"

	' var_Items.CellValueFormat(0,hx) = 4
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellValueFormat(0,hx) = 4"

	' var_Items.FormatCell(0,hx) = "'Childs: ' + value"
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.FormatCell(0,hx) = `'Childs: ' + value`"

	' var_Items.CellBackColor(0,hx) = 50331648
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellBackColor(0,hx) = 50331648"

	' var_Items.CellHAlignment(0,hx) = 1
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellHAlignment(0,hx) = 1"

	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	' var_Items.ItemBackColor(h) = 67108864
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemBackColor(h) = 67108864"

	hx = var_Items.SplitCell(h,0)
	' var_Items.CellValue(0,hx) = "count(current,dir,1)"
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellValue(0,hx) = `count(current,dir,1)`"

	' var_Items.CellValueFormat(0,hx) = 4
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellValueFormat(0,hx) = 4"

	' var_Items.FormatCell(0,hx) = "'Childs: ' + value"
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.FormatCell(0,hx) = `'Childs: ' + value`"

	' var_Items.CellBackColor(0,hx) = 50331648
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellBackColor(0,hx) = 50331648"

	' var_Items.CellHAlignment(0,hx) = 1
	oGrid.TemplateDef = "dim var_Items,hx"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = hx
	oGrid.Template = "var_Items.CellHAlignment(0,hx) = 1"

	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ItemBackColor(var_Items.InsertItem(h,,"Child 4")) = 67108864
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.ItemBackColor(InsertItem(h,,`Child 4`)) = 67108864"

oGrid.EndUpdate()

908:
How can I decode the Layout property
Dim oGrid as P
Dim var_Column as local
Dim var_Columns as P
Dim var_Items as P
Dim var_Print as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	var_Columns.Add("C1")
	' var_Columns.Add("C2").Position = 1
	var_Column = var_Columns.Add("C2")
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Position = 1"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("SubItem 1.1"),1) = "SubItem 1.2"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`SubItem 1.1`),1) = `SubItem 1.2`"

	' var_Items.CellValue(var_Items.AddItem("SubItem 2.1"),1) = "SubItem 2.2"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`SubItem 2.1`),1) = `SubItem 2.2`"

oGrid.Columns.Item("C2").SortOrder = 2
oGrid.EndUpdate()
? "Encoded:" 
? oGrid.Layout 
var_Print = OLE.Create("Exontrol.Print")
	? "Decoded: " 
	? var_Print.Decode64TextW(oGrid.Layout) 

907:
No new line is shown if using <br> tag. How can I show a new line with-in the cell

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = .t.
oGrid.DrawGridLines = -2
var_Column = oGrid.Columns.Add("Single-Line")
	' var_Column.Def(16) = .t.
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(16) = True"

	' var_Column.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column"
	oGrid.TemplateDef = var_Column
	oGrid.Template = "var_Column.Def(17) = 1"

var_Column1 = oGrid.Columns.Add("Multiple-Lines")
	' var_Column1.Def(16) = .f.
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(16) = False"

	' var_Column1.Def(17) = 1
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.Def(17) = 1"

var_Items = oGrid.Items
	' var_Items.CellValue(var_Items.AddItem("First-Line<br>Second-Line"),1) = "First-Line<br>Second-Line"
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellValue(AddItem(`First-Line<br>Second-Line`),1) = `First-Line<br>Second-Line`"

	h = var_Items.AddItem("First-Line<br>Second-Line<br>Third-Line")
	' var_Items.CellSingleLine(h) = .f.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellSingleLine(h) = False"

	' var_Items.CellHAlignment(h,0) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.ItemDivider(h) = 0"

oGrid.EndUpdate()

906:
I am using exCRD to layout the columns in the grid, but is there a way where I can have the text in a cell wrap if it's exceeds the width of the cell instead of showing the ...'s

Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.DrawGridLines = -2
oGrid.DefaultItemHeight = 36
oGrid.FullRowSelect = 0
var_Columns = oGrid.Columns
	var_Column = var_Columns.Add("Column1")
		var_Column.Visible = .f.
		var_Column.Editor.EditType = 1
	var_Column1 = var_Columns.Add("Column2")
		var_Column1.Visible = .f.
		var_Column1.Editor.EditType = 1
	var_Column2 = var_Columns.Add("Column3")
		var_Column2.Visible = .f.
		' var_Column2.Def(16) = .f.
		oGrid.TemplateDef = "dim var_Column2"
		oGrid.TemplateDef = var_Column2
		oGrid.Template = "var_Column2.Def(16) = False"

		var_Column2.Editor.EditType = 1
	var_Column3 = var_Columns.Add("Column4")
		var_Column3.Alignment = 1
		var_Column3.HeaderAlignment = 1
		var_Column3.Visible = .f.
		' var_Column3.Def(2) = .t.
		oGrid.TemplateDef = "dim var_Column3"
		oGrid.TemplateDef = var_Column3
		oGrid.Template = "var_Column3.Def(2) = True"

		' var_Column3.Def(3) = .t.
		oGrid.TemplateDef = "dim var_Column3"
		oGrid.TemplateDef = var_Column3
		oGrid.Template = "var_Column3.Def(3) = True"

	var_Column4 = var_Columns.Add("FormatLevel")
		var_Column4.FormatLevel = "(0/1),\"Information to be shown on the control's header\"[a=17][ww]:128,3:128"
		' var_Column4.Def(32) = "(0/1),2[a=17][ww]:128,3:128"
		oGrid.TemplateDef = "dim var_Column4"
		oGrid.TemplateDef = var_Column4
		oGrid.Template = "var_Column4.Def(32) = `(0/1),2[a=17][ww]:128,3:128`"

var_Items = oGrid.Items
	h = var_Items.AddItem("Cell 1.1")
	' var_Items.CellValue(h,1) = "Cell 1.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 1.2`"

	' var_Items.CellValue(h,2) = "This is just a bit of information on first row"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `This is just a bit of information on first row`"

	' var_Items.CellValue(h,3) = "Cell 1.4"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = `Cell 1.4`"

	' var_Items.CellSingleLine(h,3) = .f.
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellSingleLine(h,3) = False"

	h = var_Items.AddItem("Cell 2.1")
	' var_Items.CellValue(h,1) = "Cell 2.2"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,1) = `Cell 2.2`"

	' var_Items.CellValue(h,2) = "This is just a bit of information on second row"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `This is just a bit of information on second row`"

	' var_Items.CellValue(h,3) = "Cell 2.4"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = `Cell 2.4`"

oGrid.EndUpdate()

905:
How can I load pictures using URL ( http:// )
Dim http as P
Dim oGrid as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
http = OLE.Create("Exontrol.HTTP")
oGrid.PictureDisplay = 34
oGrid.Picture = http.GETImage("http://www.exontrol.com/images/exontrol.png")

904:
How can I filter programmatically by multiple columns
Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Column1 as local
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Columns as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("Active")
		' var_Column.Def(0) = .t.
		oGrid.TemplateDef = "dim var_Column"
		oGrid.TemplateDef = var_Column
		oGrid.Template = "var_Column.Def(0) = True"

		var_Column.DisplayFilterButton = .t.
	var_Columns.Add("Type")
	' var_Columns.Add("Mode").FilterType = 240
	var_Column1 = var_Columns.Add("Mode")
	oGrid.TemplateDef = "dim var_Column1"
	oGrid.TemplateDef = var_Column1
	oGrid.Template = "var_Column1.FilterType = 240"

var_Items = oGrid.Items
	h = var_Items.AddItem("Item A")
	' var_Items.CellState(h,1) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellState(h,1) = 1"

	' var_Items.CellValue(h,2) = "A"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `A`"

	h = var_Items.AddItem("Item B")
	' var_Items.CellState(h,1) = 0
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellState(h,1) = 0"

	' var_Items.CellValue(h,2) = "B"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `B`"

	h = var_Items.AddItem("Item C")
	' var_Items.CellState(h,1) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellState(h,1) = 1"

	' var_Items.CellValue(h,2) = "C"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `C`"

	' var_Items.CellValue(h,3) = "None"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,3) = `None`"

	h = var_Items.AddItem("Item D")
	' var_Items.CellState(h,1) = 1
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellState(h,1) = 1"

	' var_Items.CellValue(h,2) = "C"
	oGrid.TemplateDef = "dim var_Items,h"
	oGrid.TemplateDef = var_Items
	oGrid.TemplateDef = h
	oGrid.Template = "var_Items.CellValue(h,2) = `C`"

var_Column2 = oGrid.Columns.Item(1)
	var_Column2.FilterType = 6
	var_Column2.Filter = 1
var_Column3 = oGrid.Columns.Item(2)
	var_Column3.FilterType = 240
	var_Column3.Filter = "C"
var_Column4 = oGrid.Columns.Item(3)
	var_Column4.FilterType = 2
oGrid.ApplyFilter()
oGrid.EndUpdate()

903:
How can I add Right-To-Left Reading-Order / RTL Layout
Dim oGrid as P
Dim var_Column as P
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
var_Column = oGrid.Columns.Add("RTL - Header Caption")
	var_Column.HeaderAlignment = 131074 '20000 + RightAlignment
	var_Column.Alignment = 131074 '20000 + RightAlignment
oGrid.FullRowSelect = 0
var_Items = oGrid.Items
	var_Items.AddItem("RTL - Text Right")
	' var_Items.CellHAlignment(var_Items.AddItem("RTL - Text Center"),0) = 131073 '20000 + CenterAlignment
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHAlignment(AddItem(`RTL - Text Center`),0) = 131073"

	' var_Items.CellHAlignment(var_Items.AddItem("RTL - Text Left"),0) = 131072 '20000 + 
	oGrid.TemplateDef = "dim var_Items"
	oGrid.TemplateDef = var_Items
	oGrid.Template = "var_Items.CellHAlignment(AddItem(`RTL - Text Left`),0) = 131072"

oGrid.EndUpdate()

902:
I have applied ebn to the grid using the following code, and noticed that it applies to the filter dropdownList too. Is there a way to prevent this behavior, like keeping the Filter dropdownlist intact

Dim oGrid as P
Dim var_Column as local
Dim var_Items as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGrid.Appearance = 16777216 '1000000 + 
oGrid.BackColorHeader = 16777216
oGrid.Template = "Background(26) = -2147483633" // oGrid.Background(26) = -2147483633
' oGrid.Columns.Add("Filter").DisplayFilterButton = .t.
var_Column = oGrid.Columns.Add("Filter")
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.DisplayFilterButton = True"

var_Items = oGrid.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

901:
The tree lines from the group parent to its children are missing and no identation is present: the parent and all its children are on the same offset from left. What canbe done

' Occurs after a new Group Item has been inserted to Items collection.
function AddGroupItem as v (Item  as  OLE::Exontrol.Grid.1::HITEM)
	Dim nGroupColumn as 
	Dim var_Items as P
	oGrid = topparent:CONTROL_ACTIVEX1.activex
	var_Items = oGrid.Items
		nGroupColumn = var_Items.GroupItem(Item)
		' var_Items.ItemDivider(Item) = -1
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.ItemDivider(Item) = -1"
		' var_Items.FormatCell(Item,0) = var_Items.FormatCell(Item,nGroupColumn)
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.FormatCell(Item,0) = FormatCell(Item,nGroupColumn)"
		' var_Items.CellValue(Item,0) = oGrid.Columns.Item(nGroupColumn).GroupByTotalField
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValue(Item,0) = Me.Columns.Item(nGroupColumn).GroupByTotalField"
		' var_Items.CellValueFormat(Item,0) = var_Items.CellValueFormat(Item,nGroupColumn)
		oGrid.TemplateDef = "dim var_Items,Item"
		oGrid.TemplateDef = var_Items
		oGrid.TemplateDef = Item
		oGrid.Template = "var_Items.CellValueFormat(Item,0) = CellValueFormat(Item,nGroupColumn)"

end function

Dim oGrid as P
Dim rs as P
Dim var_Column as P

oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
oGrid.ReadOnly = -1
oGrid.ColumnAutoResize = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
oGrid.DataSource = rs
oGrid.SortBarVisible = .t.
oGrid.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
oGrid.AllowGroupBy = .t.
var_Column = oGrid.Columns.Item(0)
	var_Column.AllowGroupBy = .f.
	var_Column.Width = 96
oGrid.Columns.Item(1).SortOrder = 1
oGrid.LinesAtRoot = -1
oGrid.EndUpdate()