Grid1->BeginUpdate();
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)";
Grid1->AllowGroupBy = true;
Grid1->HeaderEnabled = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"Index")->FormatColumn = L"1 index ``";
Grid1->Columns->Add(L"Pos")->FormatColumn = L"1 apos ``";
Grid1->Columns->Add(L"Edit")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->GridLineColor = RGB(224,224,224);
Grid1->EndUpdate();

// ColumnClick event - Fired after the user clicks on column's header.
void __fastcall TForm1::Grid1ColumnClick(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	// Column.Selected = True
	// FocusColumnIndex = Column.Index
	Grid1->Columns->get_Item(TVariant(0))->Selected = false;
	Grid1->Columns->get_Item(TVariant(1))->Selected = false;
	Grid1->Columns->get_Item(TVariant(2))->Selected = false;
	Grid1->Items->SelectAll();
}

Grid1->BeginUpdate();
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->MarkSearchColumn = false;
Grid1->SingleSel = false;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exRectSel;
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->Columns->Add(L"Column1");
Grid1->Columns->Add(L"Column2");
Grid1->Columns->Add(L"Column3");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->DefaultItem = var_Items->AddItem(TVariant(0));
	var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(1));
	var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(2));
	var_Items->DefaultItem = var_Items->AddItem(TVariant(3));
	var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(4));
	var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(5));
	var_Items->DefaultItem = var_Items->AddItem(TVariant(6));
	var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(7));
	var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(8));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW") +
"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" +
"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB"));
Grid1->Appearance = Exgridlib_tlb::AppearanceEnum(0x100ff00);
Grid1->ColumnAutoResize = true;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("before item"));
	var_Items->AddItem(TVariant("item"));
	var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Grid1AnchorClick(TObject *Sender,BSTR   AnchorID,BSTR   Options)
{
	OutputDebugString( L"AnchorID" );
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->BackColorAlternate = RGB(240,240,240);
Grid1->ShowFocusRect = false;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("before item"));
	long h = var_Items->AddItem(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj") +
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" +
"650;</a><br>+ withdraw(amount: Currency)"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->BackColorAlternate = RGB(240,240,240);
Grid1->ShowFocusRect = false;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("before item"));
	long h = var_Items->AddItem(TVariant("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();

Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollHoverAll] = -1;

Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollHoverAll] = RGB(1,0,0);

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	Grid1->ShowToolTip(L"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	Grid1->ShowToolTip(L"<null>",TVariant("<null>"),TNoParam(),TVariant("+8"),TVariant("+8"));
}

Grid1->ColumnAutoResize = false;
Grid1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			Microsoft ActiveX Data Objects 6.1 Library
		TypeLib: msado15.dll
		to define the namespace: Adodb_tlb
	*/
	//#include "ADODB_TLB.h"
	Adodb_tlb::_CommandPtr cmd = Variant::CreateObject(L"ADODB.Command");
		cmd->set_ActiveConnection(Grid1(IDispatch*)->DataSource->get_ActiveConnection());
		cmd->CommandText = L"Delete * from ORDERS";
		cmd->CommandType = Adodb_tlb::CommandTypeEnum::adCmdText;
		cmd->Execute(TNoParam(),TNoParam(),0);
	(IDispatch*)Grid1->DataSource->Requery(0);
}

// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long   Error,BSTR   Description)
{
	OutputDebugString( L"Description" );
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Select * From Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->ConditionalFormats->Add(L"%1=12345",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("Requery (delete all records, using ADODB.Command)"));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Minutes");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(10));
	var_Items->AddItem(TVariant(20));
	var_Items->AddItem(TVariant(30));
	var_Items->AddItem(TVariant(40));
	var_Items->AddItem(TVariant(50));
	long h = var_Items->AddItem(TVariant("sum(all,dir,dbl(%0))"));
	var_Items->set_SelectableItem(h,false);
	var_Items->set_SortableItem(h,false);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')");
Grid1->EndUpdate();

// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
	TVariant format = TVariant(Grid1->FormatABC(L"`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",TVariant(Grid1->FilterBarPromptPattern),TNoParam(),TNoParam()));
	Grid1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
	Grid1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
	Grid1->Columns->get_Item(TVariant(2))->FormatColumn = L"format";
}

Grid1->BeginUpdate();
Grid1->SelBackColor = Grid1->BackColor;
Grid1->SelForeColor = Grid1->ForeColor;
Grid1->ColumnAutoResize = true;
Grid1->ContinueColumnScroll = false;
Grid1->MarkSearchColumn = false;
Grid1->SearchColumnIndex = 1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 23;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->FilterBarPromptPattern = L"and";
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Name");
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
		var_Column->FormatColumn = L"lower(value)";
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Title");
		var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
		var_Column1->FormatColumn = L"lower(value)";
	Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"City");
		var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
		var_Column2->FormatColumn = L"lower(value)";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h0 = var_Items->AddItem(TVariant("Nancy Davolio"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Seattle"));
	h0 = var_Items->AddItem(TVariant("Andrew Fuller"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Vice President, Sales"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Tacoma"));
	var_Items->set_SelectItem(h0,true);
	h0 = var_Items->AddItem(TVariant("Janet Leverling"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Kirkland"));
	h0 = var_Items->AddItem(TVariant("Margaret Peacock"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Redmond"));
	h0 = var_Items->AddItem(TVariant("Steven Buchanan"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Manager"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
	h0 = var_Items->AddItem(TVariant("Michael Suyama"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
	h0 = var_Items->AddItem(TVariant("Robert King"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
	h0 = var_Items->AddItem(TVariant("Laura Callahan"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Inside Sales Coordinator"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Seattle"));
	h0 = var_Items->AddItem(TVariant("Anne Dodsworth"));
	var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
	var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Grid1->HeaderHeight = 24;
Grid1->SortBarHeight = 28;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->Layout = L"MultipleSort=\"C1:1\"";
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->FilterBarPromptPattern = L"12";
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->FilterBarPromptPattern = L"12";
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
Grid1->CountLockedColumns = 1;
Grid1->BackColorLock = RGB(248,248,248);
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exSolidLine;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SingleSort = false;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(0))->Width = 128;
Grid1->Layout = L"MultipleSort = \"C12:1 C1:2\"";
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ImageSize = 32;
Grid1->DefaultItemHeight = 36;
Grid1->HeaderHeight = Grid1->DefaultItemHeight;
Grid1->SortBarHeight = Grid1->DefaultItemHeight;
Grid1->Font->Size = TVariant(long(16));
Grid1->FilterBarFont->Size = TVariant(Grid1->Font->Size);
Grid1->ToolTipFont->Size = TVariant(Grid1->Font->Size);
Grid1->Indent = 26;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->ShowFocusRect = false;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Checked] = 33554432;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Grid1->Columns->Add(L"Editors")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ReadOnly)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ReadOnly;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(EditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	long h = var_Items->AddItem(TVariant("Value 1"));
	Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
		var_Editor->AddItem(1,L"Value 1",TVariant(1));
		var_Editor->AddItem(2,L"Value 2",TVariant(2));
		var_Editor->AddItem(3,L"Value 3",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownType)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor1->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor1->AddItem(1,L"Nancy Davolio",TVariant(1));
		var_Editor1->AddItem(2,L"Andrew Fuller",TVariant(2));
		var_Editor1->AddItem(3,L"Janet Leverling",TVariant(3));
		var_Editor1->AddItem(4,L"Peacock Margaret",TVariant(3));
		var_Editor1->AddItem(5,L"Steven Buchanan",TVariant(2));
		var_Editor1->AddItem(6,L"Michael Suyama",TVariant(1));
		var_Editor1->AddItem(7,L"Robert King",TVariant(2));
		var_Editor1->AddItem(8,L"Laura Callahan",TVariant(3));
		var_Editor1->AddItem(9,L"Anne Dodsworth",TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column list)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor2->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor2->AddItem(1,L"Nancy Davolio",TVariant(1));
		var_Editor2->AddItem(2,L"Andrew Fuller",TVariant(2));
		var_Editor2->InsertItem(3,L"Janet Leverling",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(4,L"Peacock Margaret",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(5,L"Steven Buchanan",TVariant(2),TVariant(2));
		var_Editor2->InsertItem(6,L"Michael Suyama",TVariant(1),TVariant(5));
		var_Editor2->InsertItem(7,L"Robert King",TVariant(2),TVariant(2));
		var_Editor2->InsertItem(8,L"Laura Callahan",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(9,L"Anne Dodsworth",TVariant(2),TVariant(5));
		var_Editor2->ExpandAll();
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column tree)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor3->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
		var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
		var_Editor3->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
		var_Editor3->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
		var_Editor3->AddItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3));
		var_Editor3->AddItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3));
		var_Editor3->AddItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2));
		var_Editor3->AddItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1));
		var_Editor3->AddItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2));
		var_Editor3->AddItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3));
		var_Editor3->AddItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns list)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor4->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
		var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
		var_Editor4->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
		var_Editor4->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
		var_Editor4->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
		var_Editor4->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
		var_Editor4->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
		var_Editor4->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
		var_Editor4->ExpandAll();
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns tree)'");
	h = var_Items->AddItem(TVariant(100));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SpinType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoType;
	h = var_Items->AddItem(TVariant(3));
	Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::CheckListType;
		var_Editor5->AddItem(1,L"Border",TVariant(1));
		var_Editor5->AddItem(2,L"Single",TVariant(2));
		var_Editor5->AddItem(4,L"Frame",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CheckListType)'");
	h = var_Items->AddItem(TVariant("193.226.40.161"));
	Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor6->Mask = L"{0,255}.{0,255}.{0,255}.{0,255}";
		var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (MaskType)'");
	h = var_Items->AddItem(TVariant(65280));
	Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::ColorType;
		var_Editor7->Mask = L"`RGB(`{0,255}\\,{0,255}\\,{0,255}`)`;;0";
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorType)'");
	h = var_Items->AddItem(TVariant("Tahoma"));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::FontType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (FontType)'");
	h = var_Items->AddItem(TVariant(String("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC"));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::PictureType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PictureType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ButtonType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ButtonType;
	h = var_Items->AddItem(TVariant(25));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ProgressBarType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ProgressBarType)'");
	h = var_Items->AddItem(TVariant("Value 1"));
	Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::PickEditType;
		var_Editor8->AddItem(1,L"Value 1",TVariant(1));
		var_Editor8->AddItem(2,L"Value 2",TVariant(2));
		var_Editor8->AddItem(3,L"Value 3",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PickEditType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(LinkEditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::LinkEditType;
	Exgridlib_tlb::IEditorPtr var_Editor9 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(UserEditorType)"))),TVariant(0));
		var_Editor9->EditType = Exgridlib_tlb::EditTypeEnum::UserEditorType;
		var_Editor9->UserEditor(L"Exontrol.ComboBox",L"");
		_tlb::ObjectPtr var_Object = var_Editor9->UserEditorObject;
	h = var_Items->AddItem(TVariant(255));
	Exgridlib_tlb::IEditorPtr var_Editor10 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor10->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
		var_Editor10->set_Option(Exgridlib_tlb::EditorOptionEnum::exColorListShowName,TVariant(true));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorListType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(65280))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoDropDownType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoDropDownType;
	Exgridlib_tlb::IEditorPtr var_Editor11 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(-1))),TVariant(0));
		var_Editor11->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
		var_Editor11->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
	h = var_Items->AddItem(TVariant(50));
	Exgridlib_tlb::IEditorPtr var_Editor12 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor12->EditType = Exgridlib_tlb::EditTypeEnum::SliderType;
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderWidth,TVariant(-60));
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickStyle,TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SliderType)'");
	h = var_Items->AddItem(TVariant(100));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::CalculatorType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CalculatorType)'");
	var_Items->EnsureVisibleItem(h);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ImageSize = 16;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->Columns->Add(L"Editors")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->BackColorHeader = 0x4c6c6c6;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ReadOnly)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ReadOnly;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(EditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	long h = var_Items->AddItem(TVariant("Value 1"));
	Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
		var_Editor->AddItem(1,L"Value 1",TVariant(1));
		var_Editor->AddItem(2,L"Value 2",TVariant(2));
		var_Editor->AddItem(3,L"Value 3",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownType)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor1->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor1->AddItem(1,L"Nancy Davolio",TVariant(1));
		var_Editor1->AddItem(2,L"Andrew Fuller",TVariant(2));
		var_Editor1->AddItem(3,L"Janet Leverling",TVariant(3));
		var_Editor1->AddItem(4,L"Peacock Margaret",TVariant(3));
		var_Editor1->AddItem(5,L"Steven Buchanan",TVariant(2));
		var_Editor1->AddItem(6,L"Michael Suyama",TVariant(1));
		var_Editor1->AddItem(7,L"Robert King",TVariant(2));
		var_Editor1->AddItem(8,L"Laura Callahan",TVariant(3));
		var_Editor1->AddItem(9,L"Anne Dodsworth",TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column list)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor2->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor2->AddItem(1,L"Nancy Davolio",TVariant(1));
		var_Editor2->AddItem(2,L"Andrew Fuller",TVariant(2));
		var_Editor2->InsertItem(3,L"Janet Leverling",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(4,L"Peacock Margaret",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(5,L"Steven Buchanan",TVariant(2),TVariant(2));
		var_Editor2->InsertItem(6,L"Michael Suyama",TVariant(1),TVariant(5));
		var_Editor2->InsertItem(7,L"Robert King",TVariant(2),TVariant(2));
		var_Editor2->InsertItem(8,L"Laura Callahan",TVariant(3),TVariant(2));
		var_Editor2->InsertItem(9,L"Anne Dodsworth",TVariant(2),TVariant(5));
		var_Editor2->ExpandAll();
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column tree)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor3->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
		var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
		var_Editor3->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
		var_Editor3->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
		var_Editor3->AddItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3));
		var_Editor3->AddItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3));
		var_Editor3->AddItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2));
		var_Editor3->AddItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1));
		var_Editor3->AddItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2));
		var_Editor3->AddItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3));
		var_Editor3->AddItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns list)'");
	h = var_Items->AddItem(TVariant(1));
	Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
		var_Editor4->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
		var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
		var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
		var_Editor4->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
		var_Editor4->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
		var_Editor4->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
		var_Editor4->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
		var_Editor4->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
		var_Editor4->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
		var_Editor4->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
		var_Editor4->ExpandAll();
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns tree)'");
	h = var_Items->AddItem(TVariant(100));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SpinType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoType;
	h = var_Items->AddItem(TVariant(3));
	Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::CheckListType;
		var_Editor5->AddItem(1,L"Border",TVariant(1));
		var_Editor5->AddItem(2,L"Single",TVariant(2));
		var_Editor5->AddItem(4,L"Frame",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CheckListType)'");
	h = var_Items->AddItem(TVariant("193.226.40.161"));
	Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor6->Mask = L"{0,255}.{0,255}.{0,255}.{0,255}";
		var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (MaskType)'");
	h = var_Items->AddItem(TVariant(65280));
	Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::ColorType;
		var_Editor7->Mask = L"`RGB(`{0,255}\\,{0,255}\\,{0,255}`)`;;0";
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorType)'");
	h = var_Items->AddItem(TVariant("Tahoma"));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::FontType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (FontType)'");
	h = var_Items->AddItem(TVariant(String("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC"));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::PictureType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PictureType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ButtonType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ButtonType;
	h = var_Items->AddItem(TVariant(25));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ProgressBarType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ProgressBarType)'");
	h = var_Items->AddItem(TVariant("Value 1"));
	Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::PickEditType;
		var_Editor8->AddItem(1,L"Value 1",TVariant(1));
		var_Editor8->AddItem(2,L"Value 2",TVariant(2));
		var_Editor8->AddItem(3,L"Value 3",TVariant(3));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PickEditType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(LinkEditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::LinkEditType;
	Exgridlib_tlb::IEditorPtr var_Editor9 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(UserEditorType)"))),TVariant(0));
		var_Editor9->EditType = Exgridlib_tlb::EditTypeEnum::UserEditorType;
		var_Editor9->UserEditor(L"Exontrol.ComboBox",L"");
		_tlb::ObjectPtr var_Object = var_Editor9->UserEditorObject;
	h = var_Items->AddItem(TVariant(255));
	Exgridlib_tlb::IEditorPtr var_Editor10 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor10->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
		var_Editor10->set_Option(Exgridlib_tlb::EditorOptionEnum::exColorListShowName,TVariant(true));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorListType)'");
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(65280))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
	var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoDropDownType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoDropDownType;
	Exgridlib_tlb::IEditorPtr var_Editor11 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(-1))),TVariant(0));
		var_Editor11->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
		var_Editor11->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
	h = var_Items->AddItem(TVariant(50));
	Exgridlib_tlb::IEditorPtr var_Editor12 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
		var_Editor12->EditType = Exgridlib_tlb::EditTypeEnum::SliderType;
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderWidth,TVariant(-60));
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
		var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickStyle,TVariant(2));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SliderType)'");
	h = var_Items->AddItem(TVariant(100));
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::CalculatorType;
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CalculatorType)'");
	var_Items->EnsureVisibleItem(h);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"ToLeft");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"ToRight");
	var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check"));
Grid1->DefaultItemHeight = 32;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Caption"));
	var_Items->set_CellImage(TVariant(h),TVariant(0),2);
	var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
	var_Items->set_CellPicture(TVariant(h),TVariant(0),Grid1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(var_Items->get_CellValue(TVariant(h),TVariant(0))));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
	var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
	var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
	h = var_Items->AddItem(TVariant("<b>HTML</b> <off 4>Caption"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellImage(TVariant(h),TVariant(0),2);
	var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
	var_Items->set_CellPicture(TVariant(h),TVariant(0),Grid1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(var_Items->get_CellValue(TVariant(h),TVariant(0))));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
	var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
	var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
Grid1->EndUpdate();

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	// Column.Def(48) = 2
	// Column.Def(49) = 2
}

Grid1->BeginUpdate();
Grid1->ImageSize = 32;
Grid1->DefaultItemHeight = 36;
Grid1->HeaderHeight = Grid1->DefaultItemHeight;
Grid1->SortBarHeight = Grid1->DefaultItemHeight;
Grid1->Font->Size = TVariant(long(16));
Grid1->FilterBarFont->Size = TVariant(Grid1->Font->Size);
Grid1->ToolTipFont->Size = TVariant(Grid1->Font->Size);
Grid1->Indent = 26;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Checked] = 33554432;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Grid1->SelBackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Grid1->SelForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = Grid1->BackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = Grid1->ForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ShowFocusRect = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->BackColorSortBar = Grid1->BackColor;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarDropDownHeight = 1;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
	var_Column->Width = 128;
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
	var_Column1->FormatColumn = L"1 pos ``";
	var_Column1->AllowSort = false;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
Exgridlib_tlb::IColumnPtr var_Column2 = Grid1->Columns->Add(L"Image");
	var_Column2->DisplayFilterButton = true;
	var_Column2->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column2->FilterType = Exgridlib_tlb::FilterTypeEnum::exImage;
	var_Column2->DisplayExpandButton = true;
	var_Column2->ExpandColumns = L"1,2,3";
	var_Column2->Width = 128;
	var_Column2->HeaderImage = 1;
Exgridlib_tlb::IColumnPtr var_Column3 = Grid1->Columns->Add(L"Images");
	var_Column3->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column3->Width = 196;
	var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Grid1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long hR = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ItemDivider(hR,0);
	var_Items->set_ItemDividerLine(hR,Exgridlib_tlb::DividerLineEnum::EmptyLine);
	long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),1);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("123"));
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(0),1);
	var_Items->set_CellImage(TVariant(h),TVariant(2),3);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("231"));
	var_Items->set_SelectItem(h,true);
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),2);
	var_Items->set_CellState(TVariant(h),TVariant(3),1);
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("312"));
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
	var_Items->set_ExpandItem(hR,true);
Grid1->EndUpdate();

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	// Column.Def(48) = 2
	// Column.Def(49) = 2
}

Grid1->BeginUpdate();
Grid1->ImageSize = 16;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Grid1->SelBackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Grid1->SelForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = Grid1->BackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = Grid1->ForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ShowFocusRect = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->BackColorSortBar = Grid1->BackColor;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarDropDownHeight = 1;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
	var_Column->Width = 128;
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
	var_Column1->FormatColumn = L"1 pos ``";
	var_Column1->AllowSort = false;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
Exgridlib_tlb::IColumnPtr var_Column2 = Grid1->Columns->Add(L"Image");
	var_Column2->DisplayFilterButton = true;
	var_Column2->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column2->FilterType = Exgridlib_tlb::FilterTypeEnum::exImage;
	var_Column2->DisplayExpandButton = true;
	var_Column2->ExpandColumns = L"1,2,3";
	var_Column2->Width = 128;
	var_Column2->HeaderImage = 1;
Exgridlib_tlb::IColumnPtr var_Column3 = Grid1->Columns->Add(L"Images");
	var_Column3->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column3->Width = 196;
	var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Grid1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long hR = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ItemDivider(hR,0);
	var_Items->set_ItemDividerLine(hR,Exgridlib_tlb::DividerLineEnum::EmptyLine);
	long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),1);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("123"));
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
	var_Items->set_CellState(TVariant(h),TVariant(0),1);
	var_Items->set_CellImage(TVariant(h),TVariant(2),3);
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("231"));
	var_Items->set_SelectItem(h,true);
	h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
	var_Items->set_CellImage(TVariant(h),TVariant(2),2);
	var_Items->set_CellState(TVariant(h),TVariant(3),1);
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("312"));
	var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
	var_Items->set_ExpandItem(hR,true);
Grid1->EndUpdate();

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->Columns->get_Item(TVariant("ShipVia"))->Position = 2;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DefaultItemHeight = 48;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Employees"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant("Photo"));
	var_Column->Position = 1;
	var_Column->Width = 128;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DefaultItemHeight = 48;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft DAO 3.6 Object Library

	TypeLib: dao360.dll

	to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.36");
	Dao_tlb::RecordsetPtr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Employees",TNoParam(),TNoParam(),TNoParam());
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant("Photo"));
	var_Column->Position = 1;
	var_Column->Width = 128;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->Layout = L"singlesort=\"C1:1\"";
Grid1->EndUpdate();

// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Grid1Event(TObject *Sender,long   EventID)
{
	OutputDebugString( PChar(Grid1->EventParam[-2]) );
}

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
	var_Column->FormatColumn = L"value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)";
	var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Project"));
	long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	var_Items->set_SelectItem(hChild,true);
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
	var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Pos");
	var_Column->FormatColumn = L"1 pos 'A-Z'";
	var_Column->Position = 0;
	var_Column->AllowSizing = false;
	var_Column->Width = 32;
	var_Column->Enabled = false;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Index");
	var_Column1->FormatColumn = L"0 index ''";
	var_Column1->AllowSizing = false;
	var_Column1->Width = 32;
	var_Column1->Enabled = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("A"));
	var_Items->AddItem(TVariant("A"));
	var_Items->AddItem(TVariant("A"));
	OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(0))),TVariant(1)) );
	OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(1))),TVariant(1)) );
	OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(2))),TVariant(1)) );
Grid1->EndUpdate();

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::Grid1BeforeExpandItem(TObject *Sender,Exgridlib_tlb::HITEM   Item,Variant *   Cancel)
{
	Cancel = Grid1->Items->get_ItemParent(Item);
}

Grid1->BeginUpdate();
Grid1->SingleSel = false;
Grid1->Columns->Add(L"Default");
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1")),TNoParam(),TVariant("Child"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1")),TNoParam(),TVariant("Child"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.2"));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
	var_Appearance->Add(10,TVariant("CP:1 0 3 0 -3"));
	var_Appearance->Add(17,TVariant("CP:1 3 0 -3 0"));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHSThumb] = 0xa000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSThumb] = 0x11000000;
Grid1->ScrollBars = Exgridlib_tlb::ScrollBarsEnum::exVScrollEmptySpace | Exgridlib_tlb::ScrollBarsEnum::exHScrollEmptySpace | Exgridlib_tlb::ScrollBarsEnum::exVScrollOnThumbRelease | Exgridlib_tlb::ScrollBarsEnum::exHScrollOnThumbRelease | Exgridlib_tlb::ScrollBarsEnum::exDisableBoth;
Grid1->ScrollBySingleLine = true;
Grid1->Columns->Add(L"Def");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1));
	var_Items->AddItem(TVariant(2));
	var_Items->AddItem(TVariant(3));
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	// AddBar(Item,"Progress", #12/2/2017#,#12/2/2017#)
	// DefineSummaryBars(Item,"", -3, "")
	// Chart.ItemBackColor(Item) = color
	String color = 14474460;
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ItemDivider(Item,-1);
		var_Items->set_CellValue(TVariant(Item),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)))));
		var_Items->set_ItemBold(Item,true);
		var_Items->set_ItemBackColor(Item,color);
}

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	// AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
	// ItemBar(Item,"", 514)  = ItemToIndex(Item)
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
}

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2");
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Item A"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
	h = var_Items->AddItem(TVariant("Item A"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
	h = var_Items->AddItem(TVariant("Item A"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
	h = var_Items->AddItem(TVariant("Item A"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
	h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem B.1"));
	h = var_Items->AddItem(TVariant("Item B"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem B.1"));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->ScrollBySingleLine = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->Columns->Add(L"Artikel")->HTMLCaption = L"<u>Artikel";
Grid1->Columns->Add(L"Waarde")->HTMLCaption = L"<u>Waarde";
Grid1->HTMLPicture[L"T22128"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("T22128-28)2D"));
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("<img>T22128:128</img>"));
	var_Items->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_ItemHeight(h1,128);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("werkvoorbereiding"));
	var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("5.80"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Type"))),TVariant(1),TVariant("Eenvoudig"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Prijs p/uur"))),TVariant(1),TVariant("60,00"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Marhe"))),TVariant(1),TVariant("15,00%"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Insteltijd min."))),TVariant(1),TVariant("5,00"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Aantal"))),TVariant(1),TVariant(1));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Kostprije"))),TVariant(1),TVariant("5,00"));
	var_Items->set_ExpandItem(h1,true);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("materiall"));
	var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("14.82"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_ItemHasChildren(h1,true);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("snijden"));
	var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("3.13"));
	var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
	var_Items->set_ItemHasChildren(h1,true);
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
String back = 65536;
String fore = 16777215;
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Grid1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b") +
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA"));
Grid1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C") +
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
"bbuaaXLhGCYBgIA=="));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Bump;
Grid1->BackColor = back;
Grid1->BackColorHeader = back;
Grid1->BackColorLevelHeader = back;
Grid1->BackColorSortBar = back;
Grid1->BackColorSortBarCaption = back;
Grid1->FilterBarBackColor = back;
Grid1->FilterBarForeColor = fore;
Grid1->ForeColor = fore;
Grid1->ForeColorHeader = fore;
Grid1->ForeColorSortBar = fore;
Grid1->SelBackColor = fore;
Grid1->SelForeColor = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x3000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipBackColor] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipForeColor] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSortBarLinkColor] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollSizeGrip] = back;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->LoadXML(TVariant("http://www.exontrol.net/testing.xml"));
Grid1->Font->Size = TVariant(long(22));
Grid1->HeaderHeight = 42;
Grid1->DefaultItemHeight = 36;
Grid1->Items->set_ItemHeight(0,Grid1->DefaultItemHeight);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
	var_Appearance->Add(2,TVariant("CP:1 -4 0 0 0"));
Grid1->SelBackColor = 0x2000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
Grid1->Items->set_SelectPos(TVariant(1));
Grid1->SelectColumnIndex = 1;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Grid1->SelBackColor = 0x1000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
	var_Items->set_SelectPos(TVariant(1));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
	long h = var_Items->AddItem(TVariant("Cell 2"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 3"));
	var_Items->set_CellBackColor(TVariant(h),TVariant(1),0x1000000);
Grid1->EndUpdate();

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	// Column.Def(17) = 1
}

// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
	TVariant format = TVariant(Grid1->FormatABC(L"`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",TVariant(Grid1->FilterBarPromptPattern),TNoParam(),TNoParam()));
	Grid1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
	Grid1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
}

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->FilterBarPromptPattern = L"1";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->EndUpdate();

// RClick event - Fired when right mouse button is clicked
void __fastcall TForm1::Grid1RClick(TObject *Sender)
{
	OutputDebugString( L"Edit Mode: " );
	OutputDebugString( PChar(Grid1->Editing) );
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			ExContextMenu 1.0 Type Library
		TypeLib: ExContextMenu.dll
		to define the namespace: Excontextmenulib_tlb
	*/
	//#include "EXCONTEXTMENULIB_TLB.h"
	Excontextmenulib_tlb::IExContextMenuPtr var_ExContextMenu = Variant::CreateObject(L"Exontrol.ContextMenu");
		var_ExContextMenu->Items->ToString = L"Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)";
		OutputDebugString( PChar(var_ExContextMenu->Select(TNoParam(),TNoParam(),TNoParam())) );
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Column")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exEditAllowContextMenu,TVariant(false));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->AddItem(TVariant("Item 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS") +
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" +
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" +
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" +
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF") +
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" +
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" +
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" +
"BZhggZgagaYRoEwShWA6NZZAMQBAICA=="));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 28;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1")->DisplayFilterButton = true;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
		var_Column->DisplayFilterButton = true;
		var_Column->Filter = L"Item 2";
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
	var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 3"));
	h = var_Items->AddItem(TVariant("Item 4"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 5"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 6"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

String size = 2;
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc") +
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" +
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" +
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" +
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" +
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" +
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA=="));
	var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY") +
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" +
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" +
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" +
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" +
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" +
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA=="));
	var_Appearance->Add(1,TVariant(Grid1->FormatABC(L"`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
	var_Appearance->Add(2,TVariant(Grid1->FormatABC(L"`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Grid1->HasButtons = Exgridlib_tlb::ExpandButtonEnum::exCustom;
Grid1->HasButtonsCustom[false] = 16777216;
Grid1->HasButtonsCustom[true] = 33554432;
Grid1->Columns->Add(L"Column");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN") +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="));
	var_Appearance->Add(1,TVariant("CP:2 -8 -4 2 4"));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 28;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1")->DisplayFilterButton = true;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
		var_Column->DisplayFilterButton = true;
		var_Column->Filter = L"Item 2";
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
	var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 3"));
	h = var_Items->AddItem(TVariant("Item 4"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 5"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 6"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
void __fastcall TForm1::Grid1Click(TObject *Sender)
{
	Grid1->Items->AddItem(TVariant("new"));
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Item");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
	var_Column1->AllowSizing = false;
	var_Column1->AllowSort = false;
	var_Column1->Width = 32;
	var_Column1->FormatColumn = L"1 apos ``";
	var_Column1->Position = 0;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Grid1->FilterBarCaption = TVariant(String("`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1") +
") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Default");
	var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->FormatColumn = L"ltrim(rtrim(value))";
Grid1->Items->AddItem(TVariant("item 1            "));
Grid1->Items->AddItem(TVariant("             item 2"));
Grid1->Items->AddItem(TVariant("   item 3                "));
Grid1->EndUpdate();

// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Grid1DblClick(TObject *Sender,short   Shift,int   X,int   Y)
{
	long var_ItemFromPoint = Grid1->ItemFromPoint[-1,-1,c,hit];
	Grid1->FocusColumnIndex = c;
	Grid1->Edit(TNoParam());
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->AutoEdit = false;
Grid1->ReadOnly = Exgridlib_tlb::ReadOnlyEnum::exLocked;
Grid1->AutoSearch = true;
Grid1->Columns->Add(L"")->Visible = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Contains");
	var_Column->AutoSearch = Exgridlib_tlb::AutoSearchEnum::exContains;
	var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Tom Hanks"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Leonardo DiCaprio"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Will Smith"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Tom Cruise"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->AllowUndoRedo = true;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"P1");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"P2");
	var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column1->PartialCheck = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	var_Items->AddItem(TVariant("Press CTRL + Z for Undo, and CTRL + Y for Redo"));
Grid1->EndUpdate();

// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Grid1DblClick(TObject *Sender,short   Shift,int   X,int   Y)
{
	Grid1->Edit(TNoParam());
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->AutoEdit = false;
Grid1->AutoSearch = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Contains");
	var_Column->AutoSearch = Exgridlib_tlb::AutoSearchEnum::exContains;
	var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Tom Hanks"));
	var_Items->AddItem(TVariant("Leonardo DiCaprio"));
	var_Items->AddItem(TVariant("Will Smith"));
	var_Items->AddItem(TVariant("Tom Cruise"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns Tree DropDownListType")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->AddItem(0,L"KR|Korea, Republic of",TNoParam());
	var_Editor->AddItem(1,L"MO|Macao",TNoParam());
	var_Editor->AddItem(2,L"SA|Saudi Arabia",TNoParam());
	var_Editor->AddItem(3,L"EG|Egypt",TNoParam());
	var_Editor->AddItem(4,L"GB|United Kingdom",TNoParam());
	var_Editor->AddItem(5,L"GT|Guatemala",TNoParam());
	var_Editor->AddItem(6,L"SR|Suriname",TNoParam());
	var_Editor->AddItem(7,L"BM|Bermuda",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("EG"));
	var_Items->AddItem(TVariant("GB"));
	var_Items->AddItem(TVariant("BM"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns DropDownListType")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
	var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("City¦Coordinates¦State"));
	var_Editor->AddItem(0,L"JV3|Jollyville¦3026N 09746W¦Texas",TNoParam());
	var_Editor->AddItem(1,L"TMO|Altamont¦4021N 11017W¦Utah",TNoParam());
	var_Editor->AddItem(2,L"IIM|Williamston¦4241N 08417W¦Michigan",TNoParam());
	var_Editor->AddItem(3,L"IWN|Merrittstown¦3958N 07952W¦Pennsylvania",TNoParam());
	var_Editor->AddItem(4,L"HOU|Houston¦2945N 09521W¦Texas",TNoParam());
	var_Editor->AddItem(5,L"GSF|Gales Ferry¦4125N 07205W¦Connecticut",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("HOU"));
	var_Items->AddItem(TVariant("IIM"));
	var_Items->AddItem(TVariant("TMO"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns Tree DropDownListType")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
	var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
	var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("224¦¦¦96"));
	var_Editor->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
	var_Editor->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
	var_Editor->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
	var_Editor->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
	var_Editor->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
	var_Editor->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
	var_Editor->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
	var_Editor->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
	var_Editor->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
	var_Editor->ExpandAll();
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1));
	var_Items->AddItem(TVariant(2));
	var_Items->AddItem(TVariant(4));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns DropDownListType")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
	var_Editor->AddItem(0,L"Jollyville¦JV3¦3026N 09746W¦TX",TNoParam());
	var_Editor->AddItem(1,L"Altamont¦TMO¦4021N 11017W¦UT",TNoParam());
	var_Editor->AddItem(2,L"Williamston¦IIM¦4241N 08417W¦MI",TNoParam());
	var_Editor->AddItem(3,L"Merrittstown¦IWN¦3958N 07952W¦PA",TNoParam());
	var_Editor->AddItem(4,L"Houston¦HOU¦2945N 09521W¦TX",TNoParam());
	var_Editor->AddItem(5,L"Gales Ferry¦GSF¦4125N 07205W¦CT",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->InsertItem(0,TVariant(""),TVariant(1));
	var_Items->InsertItem(0,TVariant(""),TVariant(2));
	var_Items->InsertItem(0,TVariant(""),TVariant(4));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarTop;
Grid1->HeaderHeight = 24;
Grid1->FilterBarHeight = Grid1->HeaderHeight;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Column");
	var_Column->DisplayFilterButton = true;
	var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
	var_Column->Filter = L"B*";
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Index");
	var_Column1->FormatColumn = L"1 index ``";
	var_Column1->Position = 0;
	var_Column1->Width = 48;
	var_Column1->AllowSizing = false;
	var_Column1->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
	var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("A.1"));
	var_Items->AddItem(TVariant("A.2"));
	var_Items->AddItem(TVariant("B.1"));
	var_Items->AddItem(TVariant("B.2"));
	var_Items->AddItem(TVariant("B.3"));
	var_Items->AddItem(TVariant("C"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   Effect,short   Button,short   Shift,int   X,int   Y)
{
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	long i = Grid1->ItemFromPoint[-1,-1,c,hit];
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ExpandItem(i,true);
}

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	AllowedEffects = 1;
}

Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG") +
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA=="));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exListOLEDropPosition] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );

// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   Effect,short   Button,short   Shift,int   X,int   Y)
{
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	long i = Grid1->ItemFromPoint[-1,-1,c,hit];
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ExpandItem(i,true);
}

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	AllowedEffects = 1;
}

Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );

// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   Effect,short   Button,short   Shift,int   X,int   Y)
{
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	long i = Grid1->ItemFromPoint[-1,-1,c,hit];
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ExpandItem(i,true);
}

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	AllowedEffects = 1;
}

Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Item");
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
		var_Column->AllowSort = false;
		var_Column->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Item");
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
		var_Column->AllowSort = false;
		var_Column->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();

// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
	Grid1->Indent = Grid1->FormatABC(L"value > 0 ? 18 : 0",->Items->MatchItemCount,TNoParam(),TNoParam());
}

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 18;
Grid1->FilterInclude = Exgridlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Column");
		var_Column->DisplayFilterButton = true;
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
		var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
		var_Column->Filter = L"C1";
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Pos");
		var_Column1->FormatColumn = L"1 rindex ``";
		var_Column1->Position = 0;
		var_Column1->AllowSizing = false;
		var_Column1->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("R1"));
	long h2 = var_Items->InsertItem(h,TNoParam(),TVariant("S"));
	var_Items->InsertItem(h2,TNoParam(),TVariant("C1"));
	var_Items->InsertItem(h2,TNoParam(),TVariant("C2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("R2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
}

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ItemDivider(Item,-1);
		var_Items->set_ItemBackColor(Item,Grid1->BackColorSortBar);
		var_Items->set_ItemHeight(Item,Grid1->HeaderHeight);
		var_Items->set_CellMerge(TVariant(Item),TVariant(0),TVariant("1,2,3,4,5,7,8,9,10,11,12"));
		var_Items->set_CellValue(TVariant(Item),TVariant(13),TVariant("count(current,rec,1)"));
		var_Items->set_CellValueFormat(TVariant(Item),TVariant(13),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
		var_Items->set_CellValue(TVariant(Item),TVariant(0),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)))));
		var_Items->set_FormatCell(TVariant(Item),TVariant(0),L"`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`");
		var_Items->set_CellValue(TVariant(Item),TVariant(6),TVariant("sum(current,all,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(Item),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
		var_Items->set_CellForeColor(TVariant(Item),TVariant(6),RGB(102,102,102));
}

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 12;
Grid1->ColumnAutoResize = false;
Grid1->ScrollBySingleLine = true;
Grid1->BackColorSortBar = RGB(240,240,240);
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragScroll;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->HeaderHeight = 24;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Count")->Visible = false;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->get_Item(TVariant("Freight"));
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(Grid1->BackColorSortBar));
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderBackColor,TVariant(var_Column->get_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor)));
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellPaddingRight,TVariant(4));
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(4));
		var_Column->HeaderBold = true;
		var_Column->AllowGroupBy = false;
		var_Column->FormatColumn = L"value format ``";
		var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->get_Item(TVariant(0));
		var_Column1->AllowGroupBy = false;
		var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
	var_Columns->get_Item(TVariant("ShipCountry"))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->ScrollBySingleLine = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
	long hL = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
	var_Items->set_ItemHeight(hL,24);
	var_Items->set_ItemBold(hL,true);
	var_Items->set_ItemBackColor(hL,Grid1->BackColorSortBar);
	var_Items->set_CellValue(TVariant(hL),TVariant(6),TVariant("sum(all,rec,dbl(%6))"));
	var_Items->set_CellValueFormat(TVariant(hL),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(hL),TVariant(6),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_FormatCell(TVariant(hL),TVariant(6),L"value format ``");
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exHLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX") +
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA=="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Default");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Position");
	var_Column1->FormatColumn = L"((1 rindex ``) contains `.`) = 0";
	var_Column1->Visible = false;
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"%C1",TNoParam());
	var_ConditionalFormat->BackColor = 0x1e0e0e0;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	h = var_Items->AddItem(TVariant("Root 3"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Project"));
	long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<img>1</img> Task (left)"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<c><img>2</img> Task (center)"));
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<r>Task (right) <img>3</img>"));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->Columns->Add(L"Type")->Width = 32;
Grid1->Columns->Add(L"Editor");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Integer"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12"));
	Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
	h = var_Items->AddItem(TVariant("Integer (mask, group)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002"));
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `0||`");
	Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
		var_Editor1->Mask = L";;;float,digits=0,invalid=empty,warning=invalid character";
	h = var_Items->AddItem(TVariant("Integer (mask, no group)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002"));
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `0|0|`");
	Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
		var_Editor2->Mask = L";;;float,digits=0,grouping=,invalid=empty,warning=invalid character";
	h = var_Items->AddItem(TVariant("Float"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("+12.34E+2"));
	Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor3->Numeric = Exgridlib_tlb::NumericEnum::exFloat;
	h = var_Items->AddItem(TVariant("Float (no signs)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12.34E-2"));
	Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor4->Numeric = Exgridlib_tlb::NumericEnum::exDisableSigns | Exgridlib_tlb::NumericEnum::exFloat;
	h = var_Items->AddItem(TVariant("Float-Integer"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("+12.34"));
	Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor5->Numeric = Exgridlib_tlb::NumericEnum::exFloatInteger;
	h = var_Items->AddItem(TVariant("Float-Integer (no signs)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12.34"));
	Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor6->Numeric = Exgridlib_tlb::NumericEnum::exDisableSigns | Exgridlib_tlb::NumericEnum::exFloatInteger;
	h = var_Items->AddItem(TVariant("Float (mask,group)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002.34"));
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `2`");
	Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
		var_Editor7->Mask = L";;;float,invalid=empty,warning=invalid character";
	h = var_Items->AddItem(TVariant("Float (mask, no group)"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002.34"));
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `2|0|`");
	Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
		var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
		var_Editor8->Mask = L";;;float,grouping=,invalid=empty,warning=invalid character";
Grid1->EndUpdate();

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	long i = Grid1->ItemFromPoint[-1,-1,c,hit];
	OutputDebugString( L"i" );
	OutputDebugString( PChar(Grid1->Items->get_ItemData(i)) );
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_ItemData(var_Items->AddItem(TVariant("method 1")),TVariant("your extra data of method 1"));
	var_Items->InsertItem(0,TVariant("your extra data of method 2"),TVariant("method 2"));
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
	var_Items1->DefaultItem = var_Items1->AddItem(TVariant("method 3"));
	var_Items1->set_ItemData(0,TVariant("your extra data of method 3"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesVSolid;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Item");
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
		var_Column->Position = 0;
		var_Column->Width = 32;
		var_Column->AllowSizing = false;
		var_Column->FormatColumn = L"1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->HTMLPicture[L"exclude"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnT") +
"buHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1AT" +
"CgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA==");
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<img>exclude</img>";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Project"));
	long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	var_Items->set_SelectItem(hChild,true);
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
	var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
	hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByState;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->AddItem(TNoParam());
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Image");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByImage;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),3);
	var_Items->AddItem(TNoParam());
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
	var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),2);
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Value");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
	var_Column->FormatColumn = L"`<fgcolor=808080><off 4><font ;6> ` + (1 index ``)  + ` </font></off></fgcolor>` + value";
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByValue | Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("1"));
	var_Items->AddItem(TVariant("10"));
	var_Items->AddItem(TVariant("2"));
	var_Items->AddItem(TVariant("20"));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
		var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(false));
	var_Items->AddItem(TVariant(false));
	var_Items->AddItem(TVariant(true));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();

// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::Grid1SelectionChanged(TObject *Sender)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		OutputDebugString( L"pos: " );
		OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(1)) );
		OutputDebugString( L"rpos(1): " );
		OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(2)) );
		OutputDebugString( L"rpos(2): " );
		OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(3)) );
		OutputDebugString( L"apos: " );
		OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(4)) );
		OutputDebugString( L"index: " );
		OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(5)) );
}

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Items");
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"pos");
		var_Column->FormatColumn = L"1 pos ``";
		var_Column->Position = 0;
		var_Column->Width = 48;
		var_Column->AllowSizing = false;
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"rpos(1)");
		var_Column1->FormatColumn = L"1 rpos ``";
		var_Column1->Position = 1;
		var_Column1->Width = 48;
		var_Column1->AllowSizing = false;
	Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"rpos(2)");
		var_Column2->FormatColumn = L"1 rpos `.||A-Z`";
		var_Column2->Position = 2;
		var_Column2->Width = 48;
		var_Column2->AllowSizing = false;
	Exgridlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"apos");
		var_Column3->FormatColumn = L"1 apos ``";
		var_Column3->Position = 3;
		var_Column3->Width = 48;
		var_Column3->AllowSizing = false;
	Exgridlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"index");
		var_Column4->FormatColumn = L"1 index ``";
		var_Column4->Position = 4;
		var_Column4->Width = 48;
		var_Column4->AllowSizing = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	long hSel = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	var_Items->AddItem(TVariant("Item 2"));
	var_Items->AddItem(TVariant("Item 3"));
Grid1->EndUpdate();
Grid1->Items->set_SelectItem(hSel,true);

Grid1->BeginUpdate();
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		OLE Automation

	TypeLib: stdole2.tlb

	to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr var_StdFont = Grid1->Font;
	var_StdFont->Name = L"Arial Unicode";
	var_StdFont->Size = TVariant(long(22));
Grid1->HeaderVisible = false;
Grid1->DefaultItemHeight = 48;
Grid1->Columns->Add(L"")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Ӓӓ"));
	var_Items->AddItem(TVariant("ᦜᦝ;ᦞ"));
	var_Items->AddItem(TVariant("ɮɭ;ɯ"));
	var_Items->AddItem(TVariant("勳勴勵勶"));
	var_Items->set_FormatCell(TVariant(var_Items->AddItem(TVariant(Grid1->Version))),TVariant(0),L"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ");
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. `  + value";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
	var_Items->AddItem(TVariant("Item D"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->TreeColumnIndex = 0;
Grid1->MarkSearchColumn = false;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum(0xfffffff8 | Exgridlib_tlb::AppearanceEnum::Bump | Exgridlib_tlb::AppearanceEnum::Sunken);
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1")->Width = 32;
	var_Columns->Add(L"C2")->FormatColumn = L"1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1"));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (divider shows no +/-)"));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemBackColor(h,RGB(240,240,240));
	var_Items->set_ItemDividerLine(h,Exgridlib_tlb::DividerLineEnum::EmptyLine);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Cell 3"));
	h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (merge shows +/-)"));
	var_Items->set_ItemBackColor(h,RGB(240,240,240));
	var_Items->set_CellMerge(TVariant(h),TVariant(0),TVariant(1));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 4"));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		OutputDebugString( PChar(var_Items->get_CellValue(TVariant(Item),TVariant(ColIndex))) );
}

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Button");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(false));
	var_Column->FormatColumn = L"``";
	var_Column->AllowSizing = false;
	var_Column->Width = 48;
Grid1->Columns->Add(L"Second")->FormatColumn = L"` Item ` + 1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Button 1"));
	var_Items->AddItem(TVariant("Button 2"));
	var_Items->AddItem(TVariant("Button 3 "));
Grid1->EndUpdate();

// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
	Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = Grid1->FormatABC(L"value = 0 ? 0x1000001 : 0x10000FF ",TVariant(Grid1->Columns->get_Item(TVariant(0))->FilterType),TNoParam(),TNoParam());
}

Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->RenderType = -16777216;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->ShowFocusRect = false;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000001;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Filter");
	var_Column->DisplayFilterButton = true;
	var_Column->AllowSort = false;
	var_Column->AllowDragging = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->get_Item(TVariant(0));
	var_Column1->Filter = L"Item B";
	var_Column1->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Values");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
	var_Column->FormatColumn = L"value + ` <off 4><fgcolor=808080>type(` + type(%0) + `)`";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->AddItem(TVariant(-1));
	var_Items->AddItem(TVariant("string"));
	var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
	var_Items->AddItem(TVariant(2));
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(12.34));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->Columns->Add(L"Values");
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"type(%0) in (2,3,4,5,18,19,20,21)",TNoParam());
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->Bold = true;
Grid1->ConditionalFormats->Add(L"type(%0) = 11",TNoParam())->ForeColor = RGB(0,255,0);
Grid1->ConditionalFormats->Add(L"type(%0) = 7",TNoParam())->ForeColor = RGB(0,0,255);
Grid1->ConditionalFormats->Add(L"type(%0) in (0,1)",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->AddItem(TVariant(-1));
	var_Items->AddItem(TVariant("string"));
	var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
	var_Items->AddItem(TVariant(2));
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(12.34));
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->FreezeEvents(true);
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_CellValue(TVariant(Item),TVariant(1),TVariant(Grid1->FormatABC(L"int(255*sin(value/2))",TVariant(NewValue),TNoParam(),TNoParam())));
		var_Items->set_CellValue(TVariant(Item),TVariant(2),TVariant(Grid1->FormatABC(L"int(255*cos(value/2))",TVariant(NewValue),TNoParam(),TNoParam())));
	Grid1->FreezeEvents(false);
}

Grid1->BeginUpdate();
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Value");
	var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Column->Width = 64;
	var_Column->AllowSizing = false;
Grid1->Columns->Add(L"Assign A")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
Grid1->Columns->Add(L"Assign B")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Computed");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
	var_Column->ComputedField = L"%1 + %2";
	var_Column->FormatColumn = L"value format ``";
	var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
	var_Column->HeaderAlignment = var_Column->Alignment;
Grid1->ConditionalFormats->Add(L"%3 >= 0",TNoParam())->Bold = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1989));
	var_Items->AddItem(TVariant(2001));
	var_Items->AddItem(TVariant(2017));
	var_Items->AddItem(TVariant(2018));
	var_Items->AddItem(TVariant(2019));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Year");
	var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Column->Width = 64;
	var_Column->AllowSizing = false;
Grid1->Columns->Add(L"Easter")->FormatColumn = TVariant(String("date(dateS('3/1/' + %0)  + ((1:=(((255 - 11 * (%0 mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((%0 + int(%0 / 4)) ") +
"+ =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1989));
	var_Items->AddItem(TVariant(2001));
	var_Items->AddItem(TVariant(2017));
	var_Items->AddItem(TVariant(2018));
	var_Items->AddItem(TVariant(2019));
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"(%0 >= 0)",TNoParam());
	var_ConditionalFormat->Expression = L"(0=type(%CD0)) and (%0 >= 0)";
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	OutputDebugString( L"ConditionalFormat.Valid" );
	OutputDebugString( PChar(var_ConditionalFormat->Valid) );
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Numbers");
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(100));
	var_Items->AddItem(TVariant(-25));
	var_Items->AddItem(TVariant(31));
	var_Items->AddItem(TVariant(-48));
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
	long h = var_Items1->AddItem(TVariant("sum(all,dir,dbl(%0))"));
	var_Items1->set_SelectableItem(h,false);
	var_Items1->set_SortableItem(h,false);
	var_Items1->set_ItemBackColor(h,RGB(240,240,240));
	var_Items1->set_CellData(TVariant(h),TVariant(0),TVariant("total"));
	var_Items1->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items1->set_FormatCell(TVariant(h),TVariant(0),L"'Total: <b><fgcolor=0000FF>'+(value format ``)");
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"%0 >= 0",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum::exFormatToColumns;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Numbers");
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Grid1->Columns->Add(L"Total")->Visible = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
	var_Items->set_ItemDivider(h,1);
	var_Items->set_ItemDividerLine(h,Exgridlib_tlb::DividerLineEnum::EmptyLine);
	var_Items->set_ItemBackColor(h,RGB(240,240,240));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("sum(all,dir,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"'Total: <b><fgcolor=0000FF>'+(value format ``)");
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
	var_Items1->AddItem(TVariant(100));
	var_Items1->AddItem(TVariant(-25));
	var_Items1->AddItem(TVariant(31));
	var_Items1->AddItem(TVariant(-48));
Grid1->EndUpdate();

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			Microsoft ActiveX Data Objects 6.1 Library
		TypeLib: msado15.dll
		to define the namespace: Adodb_tlb
	*/
	//#include "ADODB_TLB.h"
	Adodb_tlb::_CommandPtr cmd = Variant::CreateObject(L"ADODB.Command");
		cmd->set_ActiveConnection(Grid1(IDispatch*)->DataSource->get_ActiveConnection());
		cmd->CommandText = L"INSERT INTO Orders (EmployeeID) VALUES(12345)";
		cmd->CommandType = Adodb_tlb::CommandTypeEnum::adCmdText;
		cmd->Execute(TNoParam(),TNoParam(),0);
	(IDispatch*)Grid1->DataSource->Requery(0);
}

// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long   Error,BSTR   Description)
{
	OutputDebugString( L"Description" );
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Select * From Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->ConditionalFormats->Add(L"%1=12345",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("Requery (add a new record, using ADODB.Command)"));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->EndUpdate();

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			Microsoft ActiveX Data Objects 6.1 Library
		TypeLib: msado15.dll
		to define the namespace: Adodb_tlb
	*/
	//#include "ADODB_TLB.h"
	Adodb_tlb::_RecordsetPtr var_Recordset = (IDispatch*)Grid1->DataSource;
		var_Recordset->AddNew(TVariant("EmployeeID"),TVariant(123));
		var_Recordset->Update(TNoParam(),TNoParam());
}

// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long   Error,BSTR   Description)
{
	OutputDebugString( L"Description" );
}

Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("AddNew"));
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->DetectAddNew = true;
Grid1->DetectDelete = true;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="));
	var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN") +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="));
Grid1->BackColorHeader = 0x1000000;
Grid1->ForeColorHeader = RGB(128,128,128);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(255,255,255);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(0,0,1);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = 0x1ff8000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = RGB(240,240,240);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 24;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Filter");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(2));
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(2));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("A"));
	var_Items->AddItem(TVariant("B"));
	var_Items->AddItem(TVariant("C"));
	var_Items->AddItem(TVariant("D"));
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_CellFont(TVariant(Item),TVariant(1),(IFontDisp*)(Grid1->Columns->get_Item(TVariant(1))->get_Data()));
		var_Items->set_CellBold(TVariant(Item),TVariant(1),true);
		var_Items->set_CellForeColor(TVariant(Item),TVariant(1),RGB(255,0,0));
}

Grid1->BeginUpdate();
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"C2");
	var_Column->HTMLCaption = L"<b><font Tahoma;14>C2";
	/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		OLE Automation

	TypeLib: stdole2.tlb

	to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
	Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
		f->Name = L"Tahoma";
		f->Size = TVariant(long(11));
	var_Column->set_Data(f);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			OLE Automation
		TypeLib: stdole2.tlb
		to define the namespace: Stdole_tlb
	*/
	//#include "STDOLE_TLB.h"
		Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
			f->Name = L"Tahoma";
			f->Size = TVariant(long(11));
		var_Items->set_CellFont(TVariant(Item),TVariant(1),(IFontDisp*)(f));
		var_Items->set_CellBold(TVariant(Item),TVariant(1),true);
		var_Items->set_CellForeColor(TVariant(Item),TVariant(1),RGB(255,0,0));
}

Grid1->BeginUpdate();
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2")->HTMLCaption = L"<b><font Tahoma;14>C2";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"1",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		OLE Automation

	TypeLib: stdole2.tlb

	to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
	Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
		f->Name = L"Tahoma";
		f->Size = TVariant(long(11));
	var_ConditionalFormat->Font = (IFontDisp*)(f);
	var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2")->HTMLCaption = L"<b><font Tahoma;14>C2";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();