with thisform.Grid1
	with .Columns
		.Add("A").Editor.EditType = 4
		.Add("B").FormatColumn = "currency(%0)"
		.Add("C").FormatColumn = "%1 format ''"
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	endwith
endwith

*** Click event - Occurs when the user presses and then releases the left mouse button over the grid control. ***
LPARAMETERS nop
	with thisform.Grid1
		.Ungroup
	endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.ReadOnly = -1
	with .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
		.SortOrder = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.BackColorSortBar = RGB(240,240,240)
	.BackColorSortBarCaption = .BackColor
	var_s1 = "gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi"
	var_s1 = var_s1 + "EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdByn"
	var_s1 = var_s1 + "EYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABjEovbAMEwPBqAMwmIAZDheA4FR4AGhTXKc"
	var_s1 = var_s1 + "bxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"
	.VisualAppearance.Add(1,var_s1)
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	with .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
		.SortOrder = .T.
	endwith
	with .Columns.Item(5)
		.Alignment = 1
		.Def(4) = 16119285
		.SortOrder = .T.
	endwith
	.Object.Background(28) = 0x1000000
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	with .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = 5
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.Columns.Item(6).AllowGroupBy = .F.
	with .Columns.Item(1)
		.GroupByTotalField = ""
		.GroupByFormatCell = ""
	endwith
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Grid1
		.DefaultItem = Item
		.Items.ItemDividerLineAlignment(0) = 3
	endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.Grid1
		.Refresh
	endwith

with thisform.Grid1
	.BeginUpdate
	.ScrollBySingleLine = .T.
	.LinesAtRoot = 5
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.Columns.Item(6).AllowGroupBy = .F.
	with .Columns.Item(1)
		.GroupByTotalField = "sum(current,rec,%6)"
		.GroupByFormatCell = "'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'"
	endwith
	.DefaultItemHeight = 28
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Grid1
		with .Items
			.DefaultItem = Item
			.ItemDividerLine(0) = 0
			l = .GroupItem(Item)
			.DefaultItem = Item
			.CellSingleLine(0,l) = .F.
			.DefaultItem = Item
			.CellBold(0,l) = .T.
			.DefaultItem = Item
			.CellBackColor(0,l) = 0x1000000
		endwith
	endwith

with thisform.Grid1
	.BeginUpdate
	.ScrollBySingleLine = .T.
	.LinesAtRoot = 0
	.TreeColumnIndex = -1
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	var_s1 = "gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSN"
	var_s1 = var_s1 + "IxyAK0QBkAqNQCkKKwIgmNYDSBMYABBIMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiO"
	var_s1 = var_s1 + "QrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6HYhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZ"
	var_s1 = var_s1 + "XizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXof"
	var_s1 = var_s1 + "FOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrg"
	var_s1 = var_s1 + "GYIICYCoCmCSAcGOA5hAgRgSgSYQBGoFoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEi"
	var_s1 = var_s1 + "Vg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKG"
	var_s1 = var_s1 + "JamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkBw"
	var_s1 = var_s1 + "GFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIr"
	var_s1 = var_s1 + "FsBg0iyLBKj6RoOmqSwmimMpkCqGpOiibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH"
	var_s1 = var_s1 + "+O5Onmcpyh2VYAAEASAg"
	.VisualAppearance.Add(1,var_s1)
	.DrawGridLines = 1
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	with .Columns.Item(1)
		.GroupByFormatCell = "'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value"
	endwith
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Grid1
		.DefaultItem = Item
		.Items.ItemDividerLine(0) = 0
	endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Grid1
		h = .ItemFromPoint(-1,-1,c,hit)
		DEBUGOUT( .Items.GroupItem(h) )
	endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.EndUpdate
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Grid1
		.DefaultItem = Item
		.Items.ExpandItem(0) = .F.
	endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the EmployeeID column here."
	.AllowGroupBy = .T.
	.Columns.Item(1).AllowGroupBy = .F.
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SingleSort = .F.
	.AllowGroupBy = .T.
	.Columns.Item(1).SortOrder = .T.
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.SortBarVisible = .T.
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = .T.
	.EndUpdate
endwith

with thisform.Grid1
	with .Columns.Add("Numbers").Editor
		.EditType = 1
		.Numeric = 1
	endwith
	.Items.AddItem(12)
endwith

with thisform.Grid1
	with .Columns.Add("Numbers").Editor
		.EditType = 1
		.Numeric = -1
	endwith
	.Items.AddItem(12)
endwith

with thisform.Grid1
	with .Columns.Add("Numbers").Editor
		.EditType = 8
		.Mask = "###.###"
	endwith
	.Items.AddItem(12)
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 1315
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Item")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.Filter = "Child 1"
		.FilterType = 240
	endwith
	with .Columns.Add("Date")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 9474
		.Filter = {^2010-12-28}
		.FilterType = 4
	endwith
	.FilterCriteria = "%0 or %1"
	.Object.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
	.Object.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
	with .Items
		h = .AddItem("Root 1")
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = {^2010-12-27}
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = {^2010-12-28}
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = {^2010-12-29}
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = {^2010-12-30}
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 9474
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.DisplayFilterDate = .T.
		.FilterList = 1282
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1280
		.Filter = "to 12/27/2010"
		.FilterType = 4
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1026
		.Filter = "to 12/27/2010"
		.FilterType = 4
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.DisplayFilterDate = .T.
		.FilterList = 1026
	endwith
	with .Items
		.AddItem({^2010-12-27})
		.AddItem({^2010-12-28})
		.AddItem({^2010-12-29})
		.AddItem({^2010-12-30})
		.AddItem({^2010-12-31})
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Object.Description(25) = "Leaving out"
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 9472
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 9472
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 1280
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.SelectItem(0) = .T.
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 16386
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 16640
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 256
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterList = 128
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Object.Description(0) = ""
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.FilterList = 2
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .T.
		.FilterList = 2
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.LinesAtRoot = 5
	.Indent = 12
	.HasLines = 2
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
	endwith
endwith

with thisform.Grid1
	.LinesAtRoot = 1
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Grid1
	.LinesAtRoot = 5
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
	endwith
endwith

with thisform.Grid1
	.LinesAtRoot = 4
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Grid1
	.LinesAtRoot = 3
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Grid1
	.LinesAtRoot = 2
	.Indent = 12
	.Columns.Add("Default")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(.InsertItem(h,0,"Child 2"),0,"SubChild 2")
		.InsertItem(h,0,"Child 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
endwith

with thisform.Grid1
	.BeginUpdate
	.DrawGridLines = -2
	.DefaultItemHeight = 36
	.FullRowSelect = 0
	with .Columns
		with .Add("Column1")
			.Visible = .F.
			.Editor.EditType = 1
		endwith
		with .Add("Column2")
			.Visible = .F.
			.Editor.EditType = 1
		endwith
		with .Add("Column3")
			.Alignment = 1
			.HeaderAlignment = 1
			.Visible = .F.
			.Def(2) = .T.
			.Def(3) = .T.
		endwith
		with .Add("FormatLevel")
			.FormatLevel = "(0/1),2:64"
			.Def(32) = .FormatLevel
		endwith
	endwith
	with .Items
		h = .AddItem("Cell 1.1")
		.DefaultItem = h
		.CellValue(0,1) = "Cell 1.2"
		.DefaultItem = h
		.CellValue(0,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.DefaultItem = h
		.CellValue(0,1) = "Cell 2.2"
		.DefaultItem = h
		.CellValue(0,2) = "Cell 2.3"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.LinesAtRoot = -1
	with .Columns.Add("Default")
		.Def(0) = .T.
		.PartialCheck = .T.
	endwith
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	with .VisualAppearance
		.Add(1,"XP:Button 3 12")
		.Add(2,"XP:Button 3 11")
		.Add(3,"XP:Button 3 10")
	endwith
	.Object.CheckImage(0) = 16777216
	.Object.CheckImage(1) = 33554432
	.Object.CheckImage(2) = 50331648
endwith

with thisform.Grid1
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.Option(202) = .F.
	endwith
	with .Items
		.AddItem(10)
		.AddItem(20)
	endwith
endwith

with thisform.Grid1
	with .Columns.Add("DropDownList").Editor
		.EditType = 3
		.AddItem(1,"DDList 1")
		.AddItem(2,"DDList 2")
		.AddItem(3,"DDList 3")
	endwith
	with .Columns.Add("DropDown").Editor
		.EditType = 2
		.AddItem(1,"DDType 1")
		.AddItem(2,"DDType 2")
		.AddItem(3,"DDType 3")
	endwith
	with .Items
		.DefaultItem = .AddItem(1)
		.CellValue(0,1) = thisform.Grid1.Columns.Item(1).Editor.FindItem(1)
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = thisform.Grid1.Columns.Item(1).Editor.FindItem(2)
	endwith
endwith

with thisform.Grid1
	with .Columns.Add("DropDownList").Editor
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	endwith
	with .Columns.Add("DropDown").Editor
		.EditType = 2
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	endwith
	with .Items
		.DefaultItem = .AddItem(1)
		.CellValue(0,1) = "Any"
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = "Any"
	endwith
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Padding-Left").Def(52) = 18
	with .Columns.Add("Padding-Right")
		.Def(53) = 18
		.HeaderAlignment = 2
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.DrawGridLines = -2
	with .Columns.Add("Padding-Left")
		.Def(0) = .T.
		.Def(48) = 18
	endwith
	.Columns.Add("No-Padding").Def(0) = .T.
	.Columns.Add("Empty").Position = 0
	with .Items
		.DefaultItem = .AddItem("Item A.1")
		.CellValue(0,1) = "Item A.2"
		.DefaultItem = .AddItem("Item B.1")
		.CellValue(0,1) = "Item B.2"
		.DefaultItem = .AddItem("Item C.1")
		.CellValue(0,1) = "Item C.2"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.Grid1
		DEBUGOUT( "Locked:" )
		DEBUGOUT( .Items.IsItemLocked(Item) )
		with .Columns.Item(ColIndex)
			.Filter = NewValue
			.FilterType = 3
		endwith
		.ApplyFilter
	endwith

*** MouseUp event - Occurs when the user releases a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Grid1
		.Edit(.Items.LockedItem(0,0))
	endwith

with thisform.Grid1
	.ColumnAutoResize = .F.
	.ScrollBySingleLine = .T.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	with .Items
		.LockedItemCount(0) = 2
		h = .LockedItem(0,0)
		.CellEditor(h,0).EditType = 1
		h = .LockedItem(0,1)
		.DefaultItem = h
		.ItemHeight(0) = 4
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.SelectableItem(0) = .F.
	endwith
endwith

*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
	with thisform.Grid1
		DEBUGOUT( .EventParam(-2) )
	endwith

with thisform.Grid1
	.BeginUpdate
	.DrawGridLines = -2
	.DefaultItemHeight = 36
	with .Columns
		with .Add("Column1")
			.Visible = .F.
			.Editor.EditType = 1
		endwith
		with .Add("Column2")
			.Visible = .F.
			.Editor.EditType = 1
		endwith
		.Add("Column3").Visible = .F.
		with .Add("FormatLevel")
			.FormatLevel = "(0/1),2"
			.Def(32) = .FormatLevel
		endwith
	endwith
	with .Items
		h = .AddItem("Cell 1.1")
		.DefaultItem = h
		.CellValue(0,1) = "Cell 1.2"
		.DefaultItem = h
		.CellValue(0,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.DefaultItem = h
		.CellValue(0,1) = "Cell 2.2"
		.DefaultItem = h
		.CellValue(0,2) = "Cell 2.3"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.AutoDrag = 16
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.HTMLPicture("p1") = "c:\exontrol\images\card.png"
	.Object.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
	.AutoDrag = 11
	.LinesAtRoot = 0
	.HasLines = 2
	.ShowFocusRect = .F.
	.DefaultItemHeight = 26
	.Columns.Add("Task")
	with .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.DefaultItem = h
		.CellValueFormat(0,0) = 1
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemBold(0) = .T.
		h1 = .InsertItem(h,0,"Task 1")
		h2 = .InsertItem(h,0,"Task 2")
		h3 = .InsertItem(h,0,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.DefaultItem = h
		.CellValueFormat(0,0) = 1
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.ItemDivider(0) = 0
		h1 = .InsertItem(h,0,"Task")
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	var_s = "gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7d"
	var_s = var_s + "e62drYdI4YIWcIteIQEbEEAzCghEwIRIZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7"
	var_s = var_s + "N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOajQApWDXZwOdABb6eHa+fCHMTCB7AMo7S6A"
	var_s = var_s + "IxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfAI"
	var_s = var_s + "CCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1k"
	var_s = var_s + "mGYAAqThjgGQRwHiThPC8Vhfnma5/ngXZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFO"
	var_s = var_s + "TZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoamcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB"
	var_s = var_s + "4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ4"
	var_s = var_s + "fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4Wpx"
	var_s = var_s + "AQRAqE4QAlGARJGjmLw2EYfAdk8DIomYGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9C"
	var_s = var_s + "aZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKwIAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2"
	var_s = var_s + "ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlAR"
	var_s = var_s + "pZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeE"
	var_s = var_s + "IOILgRBaBwL8fweAZiZGaNEWoYBwjuBSAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjw"
	var_s = var_s + "B8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCWqgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKg"
	var_s = var_s + "IjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCkY"
	var_s = var_s + "A+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCS"
	var_s = var_s + "G8XIzQegFc0KgbIJgWgkDUBkOIrgEicCOKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsA"
	var_s = var_s + "tEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPowBDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7"
	var_s = var_s + "RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqHM"
	var_s = var_s + "aQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVG"
	var_s = var_s + "MjsSIihRBcFeK4CILQ7hjGAMsCoUBSgiEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZ"
	var_s = var_s + "CcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGwUQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKg"
	var_s = var_s + "xRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFgF"
	var_s = var_s + "gYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2"
	var_s = var_s + "D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gkj7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMR"
	var_s = var_s + "PgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYU"
	var_s = var_s + "wUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7GS"
	var_s = var_s + "AoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpD"
	var_s = var_s + "wCoAoRQZwzguA4B4BrVhsA7HhycDIpQjhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgr"
	var_s = var_s + "hMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIEdYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNY"
	var_s = var_s + "VYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6G"
	var_s = var_s + "sHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug"
	var_s = var_s + "6B2B3BehghyAghRArAWBgAjBghDhPApAZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB"
	var_s = var_s + "+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshABBhNgVgphqBvBAg8higxA0hPhoghhkgNg"
	var_s = var_s + "cBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBNg"
	var_s = var_s + "uAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg"
	var_s = var_s + "8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjg"
	var_s = var_s + "MgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZg5gsBWAWAnBWALBYBUAOwAh0gTARhoB4s"
	var_s = var_s + "egWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggMg"
	var_s = var_s + "fhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA"
	var_s = var_s + "1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQh3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4Bgg"
	var_s = var_s + "BBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBegPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADg"
	var_s = var_s + "YhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuESB"
	var_s = var_s + "eB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g"
	var_s = var_s + "/BCACBFgahKAFA+hrgIimgXAIhhBkBghAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2B"
	var_s = var_s + "ggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhIhdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB"
	var_s = var_s + "0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBGA"
	var_s = var_s + "NBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADg"
	var_s = var_s + "iAVASudB6gJBUhAgtAwB3h4BFFxhwBhh7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g"
	var_s = var_s + "4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgnhwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXo"
	var_s = var_s + "YgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBkh"
	var_s = var_s + "qBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhA"
	var_s = var_s + "Yg7guAuhGAEBzAchLgrhYBeAMosB0AUB8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA"
	var_s = var_s + "3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgugRgkhnAihOBlgtglhLBNBEg0hFBzBIvEh"
	var_s = var_s + "bhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAMh"
	var_s = var_s + "4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyh"
	var_s = var_s + "SgWANhLgzglhRAoBMB6ARgpAWhWg3BtBrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNA"
	var_s = var_s + "wAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBqgEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAg"
	var_s = var_s + "nBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZzB"
	var_s = var_s + "RgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+Y"
	var_s = var_s + "ahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJh"
	var_s = var_s + "SB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEB"
	var_s = var_s + "fhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1guh"
	var_s = var_s + "5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg"
	var_s = var_s + "2g8hCgaByhUE8BUhKhwBHvMhKhwhrAPA9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjA"
	var_s = var_s + "Qg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2glgegVBhgrAgg9AlgChbgZhHAXhvBsAuB"
	var_s = var_s + "eA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3A"
	var_s = var_s + "1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB"
	var_s = var_s + "5B5gUgCg8BBhghFglBdAHhLg8ccBaghgShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNh"
	var_s = var_s + "NgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4B"
	var_s = var_s + "bB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1g"
	var_s = var_s + "6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g"
	var_s = var_s + "7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAohVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/h"
	var_s = var_s + "gAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCRgkgignAiBXAhAwBBCAg=="
	.Object.HTMLPicture("p1") = var_s
	var_s1 = "gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBw"
	var_s1 = var_s1 + "ORvMxpNhlhR4bSdKZnKhTdIWHr3bz0IRLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlw"
	var_s1 = var_s1 + "FgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAzKI1QAMVJCDwRcCDY7EYzhcguICBBQkOAA"
	var_s1 = var_s1 + "CAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKYA"
	var_s1 = var_s1 + "FAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFh"
	var_s1 = var_s1 + "gJIrjMJAAFgW7tGcCAFlkADTAAGAokQQoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gO"
	var_s1 = var_s1 + "K4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwHFcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeV"
	var_s1 = var_s1 + "Y4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2MJ"
	var_s1 = var_s1 + "lCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQK"
	var_s1 = var_s1 + "HGKIJDiRwiE0Rh5hkUoRESIRJBSYoSmkf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEA"
	var_s1 = var_s1 + "GQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGE"
	var_s1 = var_s1 + "IQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQA"
	var_s1 = var_s1 + "IxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoI"
	var_s1 = var_s1 + "EWQUQejUAYLUIYuRUA3A0IQIwogFjQDIHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAu"
	var_s1 = var_s1 + "GMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINgCB3CECAMIHgghICwEwLAThsBIFQCADgJA"
	var_s1 = var_s1 + "aARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLEU"
	var_s1 = var_s1 + "gVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQ"
	var_s1 = var_s1 + "FIZQaglAZHKBAcoNBygGDKJgGQQQqijE0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNB"
	var_s1 = var_s1 + "oAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAGRNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgM"
	var_s1 = var_s1 + "AbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSAk"
	var_s1 = var_s1 + "aglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirE"
	var_s1 = var_s1 + "MHUQINRiAmFiM0bIfA7AqF2JgfoHRdiLB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3"
	var_s1 = var_s1 + "gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXYWR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY"
	var_s1 = var_s1 + "2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCwA"
	var_s1 = var_s1 + "YWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4"
	var_s1 = var_s1 + "FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRTA7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSR"
	var_s1 = var_s1 + "ZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJwqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoV"
	var_s1 = var_s1 + "wtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpBe"
	var_s1 = var_s1 + "GcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNj"
	var_s1 = var_s1 + "CHaKgbYrx3A2HcGkdwhxuCfGYDQT4KRPBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6Q"
	var_s1 = var_s1 + "BSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIk"
	var_s1 = var_s1 + "QIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DWG"
	var_s1 = var_s1 + "gAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA"
	var_s1 = var_s1 + "1AeBtAbhdAaBdAfhjAXAzAshmBqgsBOgsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQh"
	var_s1 = var_s1 + "nBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8hhAOhhAzgRAXhogbBohEBsAhguAVKLh5A"
	var_s1 = var_s1 + "kAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJh"
	var_s1 = var_s1 + "bAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq"
	var_s1 = var_s1 + "7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeB"
	var_s1 = var_s1 + "cBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+h1huBrh2gugngsAXgshvhagwh9BDBOgNg"
	var_s1 = var_s1 + "fAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3A"
	var_s1 = var_s1 + "GhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3A"
	var_s1 = var_s1 + "Ng9heB7AaB2BqhtgtjLB+gfBkhfBtgqgAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+g"
	var_s1 = var_s1 + "DgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhGhOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdB"
	var_s1 = var_s1 + "tA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gqB"
	var_s1 = var_s1 + "kg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA"
	var_s1 = var_s1 + "6B5BZBthygJgrhcArhNBXgdAvg2h1A6B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4g"
	var_s1 = var_s1 + "LB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAnheAvh6AgPjhsghhuhDhqgfgth/BuBsB3h"
	var_s1 = var_s1 + "uA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/B"
	var_s1 = var_s1 + "lhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7g"
	var_s1 = var_s1 + "Oh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIg"
	var_s1 = var_s1 + "QAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigjCFAFh9AkgiAggqCkBWBMAshHguhjg4hjh"
	var_s1 = var_s1 + "/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAlh"
	var_s1 = var_s1 + "bAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFh"
	var_s1 = var_s1 + "UAfBFBzALAKg6AEBGAvAIgzB5AVhnAyAngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANg"
	var_s1 = var_s1 + "igjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBKBGAAATi5ABA2gWhshEhSAlBMg6gfBChOh"
	var_s1 = var_s1 + "7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7B"
	var_s1 = var_s1 + "ogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h"
	var_s1 = var_s1 + "2AKBXgFBIhlguBzgUhqBJBlgogmBXAUhCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3B"
	var_s1 = var_s1 + "aAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1gZAWA6A2AyBPA9BigQBFgjhehUBegRgbg"
	var_s1 = var_s1 + "XhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBzh"
	var_s1 = var_s1 + "/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxg"
	var_s1 = var_s1 + "ahxgwA5AdAYBqgoA9gpBnB9gCh3hvBPBWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVB"
	var_s1 = var_s1 + "ehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hLBhAeA3BihvB4AQAChahWgVgwhqhlAUAmT"
	var_s1 = var_s1 + "bB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShnh"
	var_s1 = var_s1 + "6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1h"
	var_s1 = var_s1 + "dBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANs"
	var_s1 = var_s1 + "Eq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgDh7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhh"
	var_s1 = var_s1 + "Oh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhvA"
	var_s1 = var_s1 + "khGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4g"
	var_s1 = var_s1 + "vhVhFhFhrhTA1g7B3htgTAzADgJh4hmBngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYB"
	var_s1 = var_s1 + "aA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgKAAAcAgg5AABDhABsA7AAABL7g3hwAjhyA"
	var_s1 = var_s1 + "/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehwB"
	var_s1 = var_s1 + "BAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdh"
	var_s1 = var_s1 + "nhXhfhZg7h4BIhuAUBbeWgRC9gegmANB6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+h"
	var_s1 = var_s1 + "qhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCIBCADhKADgkhHgaB70tBqgwPDBPh/Boh2h"
	var_s1 = var_s1 + "JhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkfg"
	var_s1 = var_s1 + "Y8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj"
	var_s1 = var_s1 + "+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzSaW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0"
	var_s1 = var_s1 + "snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enwA9jOwmEAXQADMEA+gmqHlQD3o82S5jS11"
	var_s1 = var_s1 + "YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwBM"
	var_s1 = var_s1 + "oABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo"
	var_s1 = var_s1 + "2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsBiEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQS"
	var_s1 = var_s1 + "T6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxKQTgzMsfibHQywBKAqDAHIDDIAIxASIghz"
	var_s1 = var_s1 + "gDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFAl"
	var_s1 = var_s1 + "PslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydM"
	var_s1 = var_s1 + "o5g9G8ZgfMooA+KsUROLQrTaNE0DGBQXB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4"
	var_s1 = var_s1 + "TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2"
	var_s1 = var_s1 + "yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgNg"
	var_s1 = var_s1 + "lgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJ"
	var_s1 = var_s1 + "cWAOBBgkf2AYJACgkCEHIrQGLzRnixGuD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+"
	var_s1 = var_s1 + "G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQ"
	var_s1 = var_s1 + "RhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEYG"
	var_s1 = var_s1 + "YzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDs"
	var_s1 = var_s1 + "Lcfoqw/g3G4NgHgcATjzEeE4I49o+jxCECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli"
	var_s1 = var_s1 + "8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwGhpATDQHERQyR7O8D6PMUAuxKheH+PsWgs"
	var_s1 = var_s1 + "h9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6Go"
	var_s1 = var_s1 + "dQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7F"
	var_s1 = var_s1 + "sPofY/xfPWDkNAYIthYD6FQFkUggx/BmB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwx"
	var_s1 = var_s1 + "DHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg3g6srCeE4XovQtibAuN8FYxxhijB4B8Hw"
	var_s1 = var_s1 + "CB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BAJ"
	var_s1 = var_s1 + "ceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujB"
	var_s1 = var_s1 + "EoLMAIRQJAEFgPgLQ9x9BlFWAUBIQhogxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfh"
	var_s1 = var_s1 + "bClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIM"
	var_s1 = var_s1 + "YNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIGM"
	var_s1 = var_s1 + "C4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkB"
	var_s1 = var_s1 + "CFwJwVI2A7ghYSOsOYrQmhDEyFUNogx9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0"
	var_s1 = var_s1 + "ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHsYYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIk"
	var_s1 = var_s1 + "PoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1D"
	var_s1 = var_s1 + "LZnCEAAgZAABJBFBOBECuBCBgCCEBA=="
	.Object.HTMLPicture("p2") = var_s1
	var_HTMLPicture = .HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = -2
	.GridLineColor = RGB(240,240,240)
	.SelBackMode = 1
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s2,3,3)
	endwith
	.DataSource = rs
	.Columns.Item(0).Def(17) = 1
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).Def(0) = 1
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = 10
	.SingleSel = .F.
	with .Items
		h = .ItemByIndex(1)
		.DefaultItem = h
		.SelectItem(0) = .T.
		h = .ItemByIndex(2)
		.DefaultItem = h
		.SelectItem(0) = .T.
		h = .ItemByIndex(3)
		.DefaultItem = h
		.SelectItem(0) = .T.
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.DefaultItem = h
		var_s3 = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word"
		var_s3 = var_s3 + ", ..."
		.CellValue(0,1) = var_s3
		.DefaultItem = h
		.CellSingleLine(0,1) = .F.
		.DefaultItem = h
		.CellValueFormat(0,1) = 1
		.DefaultItem = h
		.CellHAlignment(0,1) = 1
		.DefaultItem = h
		.ItemDivider(0) = 1
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 2
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.ColumnAutoResize = .F.
	.ContinueColumnScroll = .F.
	rs = CreateObject("ADOR.Recordset")
	with rs
		var_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB"
		.Open("Orders",var_s,3,3)
	endwith
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = 9
	.SingleSel = .F.
	with .Items
		h = .ItemByIndex(1)
		.DefaultItem = h
		.SelectItem(0) = .T.
		h = .ItemByIndex(3)
		.DefaultItem = h
		.SelectItem(0) = .T.
		h = .ItemByIndex(4)
		.DefaultItem = h
		.SelectItem(0) = .T.
		h = .ItemByIndex(5)
		.DefaultItem = h
		.SelectItem(0) = .T.
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.DefaultItem = h
		var_s1 = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word"
		var_s1 = var_s1 + ", Excel, ..."
		.CellValue(0,0) = var_s1
		.DefaultItem = h
		.CellSingleLine(0,0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 1
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 2
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = 3
	.LinesAtRoot = 0
	.HasLines = 1
	.HasButtons = 3
	.ShowFocusRect = .F.
	.SelBackMode = 1
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Group 1")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.ItemDivider(0) = 0
		h1 = .InsertItem(h,0,"Task 1")
		h2 = .InsertItem(h1,0,"Task 2")
		h2 = .InsertItem(h1,0,"Task 3")
		h3 = .InsertItem(h,0,"Task 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		.DefaultItem = h1
		.ExpandItem(0) = .T.
		h = .AddItem("Group 2")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.ItemDivider(0) = 0
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.DefaultItem = h
		var_s = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b"
		var_s = var_s + "> to increase or decrease the indentation."
		.CellValue(0,0) = var_s
		.DefaultItem = h
		.CellSingleLine(0,0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 1
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = 2
	.LinesAtRoot = 0
	.HasLines = 2
	.ShowFocusRect = .F.
	.Columns.Add("Task")
	with .Items
		h = .AddItem("Group 1")
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemBold(0) = .T.
		h1 = .InsertItem(h,0,"Task 1")
		h2 = .InsertItem(h,0,"Task 2")
		h3 = .InsertItem(h,0,"Task 3")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Group 2")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.ItemDivider(0) = 0
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = 1
	.Columns.Add("Task")
	with .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
		h3 = .AddItem("Task 3")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def")
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	with .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Task")
	with .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	endwith
	.EndUpdate
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Task 2")
	endwith
	.EndUpdate
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.Grid1.ExecuteTemplate("me")
		.Preview
	endwith
endwith

with thisform.Grid1
	.BeginUpdate
	with .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 1
	endwith
	with .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 2
	endwith
	.MarkSearchColumn = .F.
	.DrawGridLines = -2
	with .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	endwith
	with .Items
		.AddItem()
		.AddItem()
		.AddItem()
	endwith
	.EndUpdate
endwith

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.Grid1
		.DataSource.AddNew()
	endwith

with thisform.Grid1
	rs = CreateObject("ADODB.Recordset")
	with rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	endwith
	rs.Open()
	.DrawGridLines = -2
	.DetectAddNew = .T.
	.DetectDelete = .T.
	.DataSource = rs
	with .Items
		.LockedItemCount(0) = 1
		h = .LockedItem(0,0)
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemHeight(0) = 22
		.DefaultItem = h
		.CellValue(0,0) = "AddNew"
		.DefaultItem = h
		.CellHasButton(0,0) = .T.
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
	endwith
endwith

*** OLEStartDrag event - Occurs when the OLEDrag method is called. ***
LPARAMETERS Data,AllowedEffects

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Default")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	endwith
	.OLEDropMode = 1
	.EndUpdate
endwith

*** AfterExpandItem event - Fired after an item is expanded (collapsed). ***
LPARAMETERS Item
	with thisform.Grid1
		DEBUGOUT( "AfterExpandItem" )
		DEBUGOUT( Item )
	endwith

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Grid1
		DEBUGOUT( "AnchorClick" )
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

*** BeforeExpandItem event - Fired before an item is about to be expanded (collapsed). ***
LPARAMETERS Item,Cancel
	with thisform.Grid1
		DEBUGOUT( "BeforeExpandItem" )
		DEBUGOUT( Item )
	endwith

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.Grid1
		DEBUGOUT( "ButtonClick" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
		DEBUGOUT( Key )
	endwith

*** CellImageClick event - Fired after the user clicks on the image's cell area. ***
LPARAMETERS Item,ColIndex
	with thisform.Grid1
		DEBUGOUT( "CellImageClick" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
	with thisform.Grid1
		DEBUGOUT( "CellStateChanged" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.Grid1
		DEBUGOUT( "Change" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
		DEBUGOUT( NewValue )
	endwith

*** Click event - Occurs when the user presses and then releases the left mouse button over the grid control. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "Click" )
	endwith

*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
	with thisform.Grid1
		DEBUGOUT( "ColumnClick" )
	endwith

*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift,X,Y
	with thisform.Grid1
		DEBUGOUT( "DblClick" )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
		.Edit()
	endwith

*** Edit event - Occurs just before editing the focused cell. ***
LPARAMETERS Item,ColIndex,Cancel
	with thisform.Grid1
		DEBUGOUT( "Edit" )
		DEBUGOUT( Item )
		DEBUGOUT( ColIndex )
	endwith

*** EditClose event - Occurs when the edit operation ends. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "EditClose" )
	endwith

*** EditOpen event - Occurs when the edit operation starts. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "EditOpen" )
	endwith

*** FilterChange event - Occurs when filter was changed. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "FilterChange" )
	endwith

*** FilterChanging event - Notifies your application that the filter is about to change. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "FilterChanging" )
	endwith

*** FocusChanged event - Occurs when a new cell is focused. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "FocusChanged" )
	endwith

*** KeyDown event - Occurs when the user presses a key while an object has the focus. ***
LPARAMETERS KeyCode,Shift
	with thisform.Grid1
		DEBUGOUT( "KeyDown" )
		DEBUGOUT( KeyCode )
		DEBUGOUT( Shift )
	endwith

*** KeyPress event - Occurs when the user presses and releases an ANSI key. ***
LPARAMETERS KeyAscii
	with thisform.Grid1
		DEBUGOUT( "KeyPress" )
		DEBUGOUT( KeyAscii )
	endwith

*** KeyUp event - Occurs when the user releases a key while an object has the focus. ***
LPARAMETERS KeyCode,Shift
	with thisform.Grid1
		DEBUGOUT( "KeyUp" )
		DEBUGOUT( KeyCode )
		DEBUGOUT( Shift )
	endwith

*** LayoutChanged event - Occurs when column's position or column's size is changed. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "LayoutChanged" )
	endwith

*** MouseDown event - Occurs when the user presses a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Grid1
		DEBUGOUT( "MouseDown" )
		DEBUGOUT( Button )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y

*** MouseUp event - Occurs when the user releases a mouse button. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Grid1
		DEBUGOUT( "MouseUp" )
		DEBUGOUT( Button )
		DEBUGOUT( Shift )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

*** OffsetChanged event - Occurs when the scroll position has been changed. ***
LPARAMETERS Horizontal,NewVal
	with thisform.Grid1
		DEBUGOUT( "OffsetChanged" )
		DEBUGOUT( Horizontal )
		DEBUGOUT( NewVal )
	endwith

*** OversizeChanged event - Occurs when the right range of the scroll has been changed. ***
LPARAMETERS Horizontal,NewVal
	with thisform.Grid1
		DEBUGOUT( "OversizeChanged" )
		DEBUGOUT( Horizontal )
		DEBUGOUT( NewVal )
	endwith

*** RClick event - Fired when right mouse button is clicked ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "RClick" )
	endwith

*** ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar. ***
LPARAMETERS ScrollBar,ScrollPart
	with thisform.Grid1
		DEBUGOUT( "ScrollButtonClick" )
		DEBUGOUT( ScrollBar )
		DEBUGOUT( ScrollPart )
	endwith

*** SelectionChanged event - Fired after a new item has been selected. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "SelectionChanged" )
	endwith

*** Sort event - Fired when the control sorts a column. ***
LPARAMETERS nop
	with thisform.Grid1
		DEBUGOUT( "Sort" )
	endwith

with thisform.Grid1
	.BeginUpdate
	var_s = "gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1B"
	var_s = var_s + "AmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02hz+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8S"
	var_s = var_s + "h202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z6"
	var_s = var_s + "um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7Mbw"
	var_s = var_s + "HHECQSmUOvS8cGwk20gQc2ycQs4MLvLD8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuD"
	var_s = var_s + "Ib2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4AM2zj4udNznujT1PTgjdGQg8c71RPtESvC"
	var_s = var_s + "L1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnDt"
	var_s = var_s + "BxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4A"
	var_s = var_s + "Xkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0"
	var_s = var_s + "HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt73u38Tuc52tpdruYxDVyUbBV+gYpu2c7P"
	var_s = var_s + "yGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeUz"
	var_s = var_s + "nmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTA"
	var_s = var_s + "R50B3oPNei/iBhFgfErgeR4kBIiSAAJKSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADg"
	var_s = var_s + "AOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/AcjwAHBsiQex8gPH+MF7pDxxkB"
	.Images(var_s)
	.DrawGridLines = -1
	.LinesAtRoot = -1
	.GridLineStyle = 4
	.AutoEdit = .F.
	.ExpandOnDblClick = .F.
	with .Columns
		with .Add("Column")
			.DisplayFilterButton = .T.
			.Def(0) = .T.
			.Editor.EditType = 1
		endwith
		with .Add("Button")
			.AllowSizing = .F.
			.Width = 18
			.Def(2) = .T.
		endwith
	endwith
	with .Items
		h = .AddItem("parent")
		.DefaultItem = h
		.CellImage(0,0) = 1
		.InsertItem(h,"","child")
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

*** ColumnClick event - Fired after the user clicks on column's header. ***
LPARAMETERS Column
	with thisform.Grid1
		.BeginUpdate
		.Columns.Item(0).Selected = .F.
		.Columns.Item(1).Selected = .F.
		.Items.SelectAll
		.EndUpdate
	endwith

with thisform.Grid1
	.BeginUpdate
	.MarkSearchColumn = .F.
	.ShowFocusRect = .F.
	.SingleSel = .F.
	.FullRowSelect = 1
	.SortOnClick = 0
	with .Columns
		.Add("Column1")
		.Add("Column2")
	endwith
	with .Items
		.DefaultItem = .AddItem("One")
		.CellValue(0,1) = "Three"
		.DefaultItem = .AddItem("Two")
		.CellValue(0,1) = "Four"
		.SelectAll
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	with .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		with .Editor
			.EditType = 1
			.Numeric = 1
		endwith
	endwith
	with .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	endwith
endwith

with thisform.Grid1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	with .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	endwith
endwith

with thisform.Grid1
	.BeginUpdate
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
	DEBUGOUT( .GetItems(1) )
endwith

*** EditClose event - Occurs when the edit operation ends. ***
LPARAMETERS nop
	with thisform.Grid1
		.Items.AddItem("")
	endwith

with thisform.Grid1
	.BeginUpdate
	.AutoEdit = .T.
	.Columns.Add("Default").Editor.EditType = 1
	.FullRowSelect = 0
	.Items.AddItem("")
	.DrawGridLines = -1
	.ScrollBars = 15
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .ConditionalFormats.Add("1")
		.Bold = .T.
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1
	endwith
	.Columns.Add("C1")
	with .Columns.Add("C2")
		.HeaderBold = .T.
		.HTMLCaption = "<fgcolor=FF0000>C2"
	endwith
	with .Items
		.DefaultItem = .AddItem(10)
		.CellValue(0,1) = 11
		.DefaultItem = .AddItem(12)
		.CellValue(0,1) = 13
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	with .Columns.Add("Check")
		with .Editor
			.EditType = 19
			.Option(17) = 1
		endwith
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.CustomFilter = "checked||-1|||unchecked||0"
	endwith
	with .Items
		.AddItem(.T.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith

with thisform.Grid1
	with .Columns.Add("Check")
		with .Editor
			.EditType = 19
			.Option(17) = 1
		endwith
		.DisplayFilterButton = .T.
		.DisplayFilterPattern = .F.
		.FilterType = 6
	endwith
	with .Items
		.AddItem(.T.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith

*** ButtonClick event - Occurs when user clicks on the cell's button. ***
LPARAMETERS Item,ColIndex,Key
	with thisform.Grid1
		DEBUGOUT( "ButtonClick" )
		DEBUGOUT( .Items.CellCaption(Item,ColIndex) )
		DEBUGOUT( Key )
	endwith

with thisform.Grid1
	.BeginUpdate
	.DefaultItemHeight = 22
	.HeaderHeight = 22
	.Appearance = 0
	.DrawGridLines = -2
	.ScrollBySingleLine = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\auction.gif"
	with .Columns
		with .Add("Type")
			.Width = 48
			.Def(17) = 1
		endwith
		with .Add("Appearance")
			.Def(17) = 1
			.Alignment = 1
			.HeaderAlignment = 1
		endwith
	endwith
	with .Items
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.CellValue(0,1) = "Button <b>1</b>"
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
		.DefaultItem = h
		.CellValue(0,1) = " Button <b>2</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.CellValue(0,1) = " <img>2</img>Button <b>3</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.DefaultItem = h
		.ItemHeight(0) = 32
		.DefaultItem = h
		.CellValue(0,1) = " <img>2</img>Button <b>4</b> <img>pic1</img> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
		.DefaultItem = h
		.CellValue(0,1) = " Button <b>5.1</b> "
		.DefaultItem = h
		.CellHasButton(0,1) = .T.
		.DefaultItem = h
		.CellButtonAutoWidth(0,1) = .T.
		s = .SplitCell(h,1)
		.CellValue(0,s) = " Button <b>5.2</b> "
		.CellHasButton(0,s) = .T.
		.CellButtonAutoWidth(0,s) = .T.
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.DefaultItem = h
		.CellValue(0,1) = "Visible when clicking the cell"
		with .CellEditor(h,1)
			.EditType = 1
			.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
			.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
			.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
			.ButtonWidth = 24
		endwith
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.DefaultItem = h
		.CellValue(0,1) = 3
		with .CellEditor(h,1)
			.EditType = 6
			.AddItem(1,"Flag 1")
			.AddItem(2,"Flag 2")
			.AddItem(4,"Flag 4")
			.AddItem(8,"Flag 8")
			.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
			.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
			.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
			.ButtonWidth = 24
		endwith
	endwith
	.EndUpdate
endwith

*** CellStateChanged event - Fired after cell's state has been changed. ***
LPARAMETERS Item,ColIndex
	with thisform.Grid1
		.DefaultItem = Item
		.Items.SelectItem(0) = .T.
	endwith

with thisform.Grid1
	.Columns.Add("Check").Def(0) = .T.
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	endwith
endwith

*** AddItem event - Occurs after a new Item has been inserted to Items collection. ***
LPARAMETERS Item
	with thisform.Grid1
		.DefaultItem = Item
		.Items.ItemMinHeight(0) = 18
		.DefaultItem = Item
		.Items.ItemMaxHeight(0) = 72
	endwith

with thisform.Grid1
	.BeginUpdate
	.ItemsAllowSizing = -1
	.ScrollBySingleLine = .F.
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	with .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	endwith
	.Columns.Item(0).SortOrder = 1
	.EndUpdate
endwith

with thisform.Grid1
	.LinesAtRoot = -1
	.Columns.Add("Def")
	with .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.PutItems(.GetItems(-1))
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	with .Columns.Add("Items")
		.DisplayFilterButton = .T.
		.FilterType = 240
		.Filter = "Child 2"
	endwith
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.ApplyFilter
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.Def(17) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = .F.
	endwith
	with .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(17) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = .F.
	endwith
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	endwith
	.EndUpdate
endwith

*** ValidateValue event - Occurs before user changes the cell's value. ***
LPARAMETERS Item,ColIndex,NewValue,Cancel
	with thisform.Grid1
		DEBUGOUT( "ValidateValue" )
		DEBUGOUT( NewValue )
		DEBUGOUT( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
		DEBUGOUT( "The DiscardValidateValue restores back the previously values." )
		.DiscardValidateValue
	endwith

with thisform.Grid1
	.BeginUpdate
	.CauseValidateValue = -1
	.Columns.Add("Date").Editor.EditType = 7
	.Columns.Add("Text").Editor.EditType = 1
	with .Items
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
	endwith
	.EndUpdate
endwith

*** ValidateValue event - Occurs before user changes the cell's value. ***
LPARAMETERS Item,ColIndex,NewValue,Cancel
	with thisform.Grid1
		DEBUGOUT( "ValidateValue" )
		DEBUGOUT( NewValue )
		DEBUGOUT( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
		Cancel = .T.
		DEBUGOUT( "You can not leave the item/record until the Cancel is False." )
	endwith

with thisform.Grid1
	.BeginUpdate
	.CauseValidateValue = 1
	.Columns.Add("Date").Editor.EditType = 7
	.Columns.Add("Text").Editor.EditType = 1
	with .Items
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
	endwith
	.EndUpdate
endwith

*** ValidateValue event - Occurs before user changes the cell's value. ***
LPARAMETERS Item,ColIndex,NewValue,Cancel
	with thisform.Grid1
		DEBUGOUT( "ValidateValue" )
		DEBUGOUT( NewValue )
		DEBUGOUT( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." )
		Cancel = .T.
		DEBUGOUT( "You can not leave the cell until the Cancel is False." )
	endwith

with thisform.Grid1
	.BeginUpdate
	.CauseValidateValue = -1
	.Columns.Add("Date").Editor.EditType = 7
	.Columns.Add("Text").Editor.EditType = 1
	with .Items
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
		.DefaultItem = .AddItem({^2001-1-1})
		.CellValue(0,1) = "text"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	with .Columns
		.Add("Items")
		with .Add("Pos")
			.FormatColumn = "1 pos ''"
			.Position = 0
		endwith
	endwith
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
endwith

with thisform.Grid1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.ToolTipDelay = 1
	var_s = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolti"
	var_s = var_s + "p supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><b"
	var_s = var_s + "r>"
	.Columns.Add("tootip").ToolTip = var_s
endwith

with thisform.Grid1
	var_s = "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLh"
	var_s = var_s + "EZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI="
	.VisualAppearance.Add(1,var_s)
	.Object.Background(32) = 0x1000000
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '2|.|3|,|1|1')"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '2|.|3|,|1|1')"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(0.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(0.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(-100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100000.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def").Def(17) = 1
	with .Items
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
		h = .AddItem(100.27)
		.DefaultItem = h
		.FormatCell(0,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	endwith
	.EndUpdate
endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Grid1
		.ShowToolTip(.ItemFromPoint(-1,-1,c,hit),"","8","8")
	endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Def")
	with .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	with .Columns
		.Add("A")
		.Add("B")
		.Add("C")
	endwith
	.DrawGridLines = -1
	.ColumnAutoResize = .T.
endwith

with thisform.Grid1
	.ColumnAutoResize = .F.
	with .Columns
		.Add("A").Width = 128
		.Add("B").Width = 128
	endwith
	.DrawGridLines = -1
endwith

with thisform.Grid1
	.BeginUpdate
	.MarkSearchColumn = .F.
	with .Columns
		.Add("Name")
		with .Add("A")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = 4
		endwith
		with .Add("B")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
			.Editor.EditType = 4
		endwith
		with .Add("C")
			.SortType = 1
			.AllowSizing = .F.
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
			.Editor.EditType = 4
		endwith
		with .Add("A+B+C")
			.SortType = 1
			.Width = 64
			.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			var_s = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' )"
			var_s = var_s + " : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.FormatColumn = var_s
			.Def(17) = 1
		endwith
	endwith
	with .Items
		h = .AddItem("Root")
		.DefaultItem = h
		.CellValueFormat(0,4) = 2
		h1 = .InsertItem(h,0,"Child 1")
		.DefaultItem = h1
		.CellValue(0,1) = 7
		.DefaultItem = h1
		.CellValue(0,2) = 3
		.DefaultItem = h1
		.CellValue(0,3) = 1
		h1 = .InsertItem(h,0,"Child 2")
		.DefaultItem = h1
		.CellValue(0,1) = -2
		.DefaultItem = h1
		.CellValue(0,2) = -2
		.DefaultItem = h1
		.CellValue(0,3) = -4
		h1 = .InsertItem(h,0,"Child 3")
		.DefaultItem = h1
		.CellValue(0,1) = 2
		.DefaultItem = h1
		.CellValue(0,2) = 2
		.DefaultItem = h1
		.CellValue(0,3) = -4
		.DefaultItem = h
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.ExpandItem(0) = .F.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = -1
	.Columns.Add("Items")
	with .Items
		h = .AddItem("Root 1")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.ExpandItem(0) = .T.
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	with .Columns.Add("Numbers")
		.SortType = 1
		with .Editor
			.EditType = 4
			.Numeric = 1
		endwith
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.DefaultItem = h
		.CellValue(0,0) = "sum(all,dir,dbl(%0))"
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'SUM: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = 1
	.Columns.Add("")
	with .Items
		h = .AddItem("Root 1")
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = 4
		.FormatCell(0,hx) = "'Childs: ' + value"
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Root 2")
		hx = .SplitCell(h,0)
		.CellValue(0,hx) = "count(current,dir,1)"
		.CellValueFormat(0,hx) = 4
		.FormatCell(0,hx) = "'Childs: ' + value"
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.InsertItem(h,0,"Child 3")
		.InsertItem(h,0,"Child 4")
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("T")
	with .Columns.Add("A").Editor
		.Numeric = .T.
		.EditType = 4
	endwith
	with .Columns.Add("B").Editor
		.Numeric = .T.
		.EditType = 4
	endwith
	.Columns.Add("A+B")
	with .Items
		h = .AddItem("Incorrect")
		.DefaultItem = h
		.CellToolTip(0,0) = "Just type a number in the column A or B. The result will be concaternated"
		.DefaultItem = h
		.CellValue(0,1) = "10"
		.DefaultItem = h
		.CellValue(0,2) = "20"
		.DefaultItem = h
		.CellValue(0,3) = "currency(%1+%2)"
		.DefaultItem = h
		.CellValueFormat(0,3) = 2
		h = .AddItem("Correct")
		.DefaultItem = h
		.CellValue(0,1) = 10
		.DefaultItem = h
		.CellValue(0,2) = 20
		.DefaultItem = h
		.CellValue(0,3) = "currency(dbl(%1)+dbl(%2))"
		.DefaultItem = h
		.CellValueFormat(0,3) = 2
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("A").Editor.EditType = 4
	.Columns.Add("B").Editor.EditType = 4
	.Columns.Add("A+B")
	with .Items
		h = .AddItem(10)
		.DefaultItem = h
		.CellValue(0,1) = 20
		.DefaultItem = h
		.CellValueFormat(0,2) = 2
		.DefaultItem = h
		.CellValue(0,2) = "currency(dbl(%0)+dbl(%1))"
		DEBUGOUT( "CellCaption returns " )
		DEBUGOUT( .CellCaption(h,2) )
		DEBUGOUT( "CellValue returns " )
		DEBUGOUT( .CellValue(h,2) )
		DEBUGOUT( "ComputeValue returns " )
		DEBUGOUT( .ComputeValue("dbl(%0)+dbl(%1)",h,0,.CellValueFormat(h,2)) )
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("A")
	.Columns.Add("B")
	with .Items
		h = .AddItem(10)
		.DefaultItem = h
		.CellValue(0,1) = 20
		DEBUGOUT( "A+B is " )
		DEBUGOUT( .ComputeValue("dbl(%0)+dbl(%1)",h,0,2) )
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("")
	with .Items
		h = .AddItem("<b>bold</b>")
		DEBUGOUT( .ComputeValue(.CellValue(h,0),h,0,1) )
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.TreeColumnIndex = -1
	.SortOnClick = 0
	.Columns.Add("Numbers")
	with .Items
		.AddItem(1)
		.AddItem(2)
		h = .AddItem("separator")
		.DefaultItem = h
		.SelectableItem(0) = .F.
		.DefaultItem = h
		.ItemDivider(0) = 0
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemDividerLine(0) = 5
		.DefaultItem = h
		.CellHAlignment(0,0) = 1
		.AddItem(3)
		.AddItem(4)
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(0)
		.AddItem(0)
		.AddItem(0)
		.AddItem(0)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("sum(all,dir,dbl(%0)?1:0)")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'COUNT non-zero: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("avg(all,dir,dbl(%0))")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'AVG: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("count(all,dir,0)")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'COUNT: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("max(all,dir,dbl(%0))")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'MAX: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("min(all,dir,dbl(%0))")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'MIN: '+value"
	endwith
	.EndUpdate
endwith

with thisform.Grid1
	.BeginUpdate
	.Columns.Add("Numbers").SortType = 1
	with .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		h = .AddItem("sum(all,dir,dbl(%0))")
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellValueFormat(0,0) = 4
		.DefaultItem = h
		.CellHAlignment(0,0) = 2
		.DefaultItem = h
		.FormatCell(0,0) = "'SUM: '+value"
	endwith
	.EndUpdate
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.Grid1
		.Refresh
	endwith

with thisform.Grid1
	.BeginUpdate
	.LinesAtRoot = 1
	.Columns.Add("Members")
	with .Columns.Add("Values")
		.FormatColumn = "currency(value)"
		with .Editor
			.EditType = 4
			.Numeric = .T.
		endwith
	endwith
	with .Items
		h = .AddItem("Group 1")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = h
		.CellValue(0,1) = "sum(current,dir,dbl(%1))"
		.DefaultItem = h
		.CellValueFormat(0,1) = 5
		.DefaultItem = h
		.CellHAlignment(0,1) = 2
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = 10
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = 20
		.DefaultItem = .InsertItem(h,0,"Child 3")
		.CellValue(0,1) = 30
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Group 2")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = h
		.CellValue(0,1) = "sum(current,dir,dbl(%1))"
		.DefaultItem = h
		.CellValueFormat(0,1) = 5
		.DefaultItem = h
		.CellHAlignment(0,1) = 2
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = 5
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = 15
		.DefaultItem = .InsertItem(h,0,"Child 3")
		.CellValue(0,1) = 35
		h = .AddItem("total")
		.DefaultItem = h
		.CellValue(0,1) = "sum(all,rec,dbl(%1))"
		.DefaultItem = h
		.CellValueFormat(0,1) = 5
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = h
		.FormatCell(0,1) = "'Total: <b>' + currency(value)"
		.DefaultItem = h
		.CellHAlignment(0,1) = 2
		.DefaultItem = h
		.ItemDivider(0) = 1
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemDividerLine(0) = 2
		.DefaultItem = h
		.SortableItem(0) = .F.
	endwith
	.EndUpdate
endwith

*** Change event - Occurs when the user changes the cell's content. ***
LPARAMETERS Item,ColIndex,NewValue
	with thisform.Grid1
		.Refresh
	endwith

with thisform.Grid1
	.BeginUpdate
	.BackColor = RGB(255,255,255)
	.LinesAtRoot = 1
	.ShowFocusRect = .F.
	.Columns.Add("Members")
	with .Columns.Add("Values")
		.FormatColumn = "currency(value)"
		with .Editor
			.EditType = 4
			.Numeric = .T.
		endwith
	endwith
	with .Items
		h = .AddItem("Group 1")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = h
		.FormatCell(0,1) = " "
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = 10
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = 20
		.DefaultItem = .InsertItem(h,0,"Child 3")
		.CellValue(0,1) = 30
		hT = .InsertItem(h,0,"subtotal")
		.DefaultItem = hT
		.CellHAlignment(0,1) = 2
		.DefaultItem = hT
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = hT
		.CellValue(0,1) = "sum(parent,dir,dbl(%1))"
		.DefaultItem = hT
		.CellValueFormat(0,1) = 5
		.DefaultItem = hT
		.FormatCell(0,1) = "'subtotal: <b>' + currency(value)"
		.DefaultItem = hT
		.ItemDivider(0) = 1
		.DefaultItem = hT
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = hT
		.SortableItem(0) = .F.
		.DefaultItem = hT
		.SelectableItem(0) = .F.
		.DefaultItem = hT
		.ItemDividerLine(0) = 3
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("Group 2")
		.DefaultItem = h
		.ItemBold(0) = .T.
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.FormatCell(0,1) = " "
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = .InsertItem(h,0,"Child 1")
		.CellValue(0,1) = 15
		.DefaultItem = .InsertItem(h,0,"Child 2")
		.CellValue(0,1) = 25
		.DefaultItem = .InsertItem(h,0,"Child 3")
		.CellValue(0,1) = 18
		hT = .InsertItem(h,0,"subtotal")
		.DefaultItem = hT
		.CellHAlignment(0,1) = 2
		.DefaultItem = hT
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = hT
		.CellValue(0,1) = "sum(parent,dir,dbl(%1))"
		.DefaultItem = hT
		.CellValueFormat(0,1) = 5
		.DefaultItem = hT
		.FormatCell(0,1) = "'subtotal: <b>' + currency(value)"
		.DefaultItem = hT
		.ItemDivider(0) = 1
		.DefaultItem = hT
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = hT
		.ItemDividerLine(0) = 3
		.DefaultItem = hT
		.SortableItem(0) = .F.
		.DefaultItem = hT
		.SelectableItem(0) = .F.
		.DefaultItem = h
		.ExpandItem(0) = .T.
		h = .AddItem("total")
		.DefaultItem = h
		.CellValue(0,1) = "sum(all,rec,dbl(%1))"
		.DefaultItem = h
		.CellValueFormat(0,1) = 5
		.DefaultItem = h
		.CellEditorVisible(0,1) = .F.
		.DefaultItem = h
		.FormatCell(0,1) = "'Total: <b><font ;11>' + currency(value)"
		.DefaultItem = h
		.CellHAlignment(0,1) = 1
		.DefaultItem = h
		.ItemDivider(0) = 1
		.DefaultItem = h
		.ItemDividerLineAlignment(0) = 1
		.DefaultItem = h
		.ItemDividerLine(0) = 2
		.DefaultItem = h
		.SortableItem(0) = .F.
		.DefaultItem = h
		.SelectableItem(0) = .F.
	endwith
	.EndUpdate
endwith