|
763
|
Temporarily disable events
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Tree1AddItem(TObject *Sender, Extreelib_tlb::HITEM Item)
{
OutputDebugString( L"AddItem event" );
}
Tree1->FreezeEvents(true);
Tree1->BeginUpdate();
Tree1->Columns->Add(L"Name");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("no AddItem event occurs"));
Tree1->EndUpdate();
Tree1->FreezeEvents(false);
|
|
762
|
How can I prevent the control from filtering while the user is typing in the filter prompt, and apply the filter only when the Enter key is pressed
Tree1->BeginUpdate();
Tree1->ColumnAutoResize = true;
Tree1->ContinueColumnScroll = false;
Tree1->MarkSearchColumn = false;
Tree1->SearchColumnIndex = 1;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->FilterBarPromptVisible = Extreelib_tlb::FilterBarVisibleEnum::exFilterBarPromptOnEnter | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Tree1->FilterBarPrompt = L"<i><fgcolor=808080>Type filter and press Enter…</fgcolor></i>";
Tree1->FilterBarBackColor = Tree1->BackColor;
Tree1->FilterBarPromptType = Extreelib_tlb::FilterPromptEnum::exFilterPromptStartWith;
Tree1->Columns->Add(L"Name");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Nancy Davolio"));
var_Items->AddItem(TVariant("Andrew Fuller"));
var_Items->AddItem(TVariant("Janet Leverling"));
var_Items->AddItem(TVariant("Margaret Peacock"));
var_Items->AddItem(TVariant("Steven Buchanan"));
var_Items->AddItem(TVariant("Michael Suyama"));
var_Items->AddItem(TVariant("Robert King"));
var_Items->AddItem(TVariant("Laura Callahan"));
var_Items->AddItem(TVariant("Anne Dodsworth"));
Tree1->EndUpdate();
|
|
761
|
How can I set the first visible item (method 2)
Tree1->BeginUpdate();
Tree1->HasLines = Extreelib_tlb::HierarchyLineEnum::exNoLine;
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Pos");
var_Column->FormatColumn = L"0 pos ``";
var_Column->Position = 0;
var_Column->Width = 32;
Tree1->CountLockedColumns = 1;
Tree1->Scroll(Extreelib_tlb::ScrollEnum::exScrollVTo,Tree1->Items->ItemCount);
Tree1->EndUpdate();
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->EnsureVisibleItem(var_Items->get_ItemByIndex(10));
|
|
760
|
How can I set the first visible item (method 1)
Tree1->BeginUpdate();
Tree1->HasLines = Extreelib_tlb::HierarchyLineEnum::exNoLine;
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Pos");
var_Column->FormatColumn = L"0 pos ``";
var_Column->Position = 0;
var_Column->Width = 32;
Tree1->CountLockedColumns = 1;
Tree1->ScrollBars = Extreelib_tlb::ScrollBarsEnum(0x800 | Extreelib_tlb::ScrollBarsEnum::exBoth);
Tree1->ScrollPos[true] = 10;
Tree1->EndUpdate();
|
|
759
|
Generates a PDF document on a single A0 page with no margins
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single"]);
|
|
758
|
Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|6.93 in x 9.84 in||75%"]);
|
|
757
|
Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|||3 x 2f"]);
|
|
756
|
Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2"]);
|
|
755
|
Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|8.50 in x 11.00 in||x 2"]);
|
|
754
|
Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|||1 x"]);
|
|
753
|
Generates a PDF document on a single A4 page (default margins)
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->EndUpdate();
TVariant var_CopyTo = TVariant(Tree1->CopyTo[L"c:/temp/sample.pdf|||single"]);
|
|
752
|
Locks the first visible column on the left and the last visible column on the right

Tree1->BeginUpdate();
Tree1->ColumnAutoResize = false;
Tree1->BackColorLock = RGB(192,192,192);
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesSolid;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
/*
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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->CountLockedColumns = 17;
Tree1->EndUpdate();
|
|
751
|
Lock the column on the right

Tree1->BeginUpdate();
Tree1->ColumnAutoResize = false;
Tree1->BackColorLock = RGB(192,192,192);
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesSolid;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
/*
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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->CountLockedColumns = 16;
Tree1->EndUpdate();
|
|
750
|
Lock the column on the left

Tree1->BeginUpdate();
Tree1->ColumnAutoResize = false;
Tree1->BackColorLock = RGB(192,192,192);
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesSolid;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
/*
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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->CountLockedColumns = 1;
Tree1->EndUpdate();
|
|
749
|
Bolds only the expanded items

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->ConditionalFormats->Add(L"%CX0",TNoParam())->Bold = true;
Tree1->Columns->Add(L"Description");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
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"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
Tree1->EndUpdate();
|
|
748
|
Displays the root item's index and value/caption using expressions

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->AutoDrag = Extreelib_tlb::AutoDragEnum::exAutoDragPositionAny;
Tree1->SingleSel = false;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesSolid;
Tree1->GridLineColor = RGB(208,208,208);
Tree1->ConditionalFormats->Add(L"%CC0 and %CX0",TNoParam())->Bold = true;
Extreelib_tlb::IConditionalFormatPtr var_ConditionalFormat = Tree1->ConditionalFormats->Add(L"1",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ApplyTo = Extreelib_tlb::FormatApplyToEnum(0x2);
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Description");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->Columns->Add(L"Index");
var_Column1->FormatColumn = L"1 index ``";
var_Column1->Position = 0;
var_Column1->Width = 16;
Extreelib_tlb::IColumnPtr var_Column2 = Tree1->Columns->Add(L"Root-Index");
var_Column2->FormatColumn = L"root(1 index ``)";
var_Column2->Position = 1;
var_Column2->Width = 32;
var_Column2->set_Def(Extreelib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Extreelib_tlb::IColumnPtr var_Column3 = Tree1->Columns->Add(L"Root-Value");
var_Column3->FormatColumn = L"root(%0)";
var_Column3->Position = 2;
var_Column3->Width = 32;
var_Column3->set_Def(Extreelib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
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"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
Tree1->EndUpdate();
|
|
747
|
Displays the parent item's index and caption/value using expressions

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->AutoDrag = Extreelib_tlb::AutoDragEnum::exAutoDragPositionAny;
Tree1->SingleSel = false;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesSolid;
Tree1->GridLineColor = RGB(208,208,208);
Tree1->ConditionalFormats->Add(L"%CC0 and %CX0",TNoParam())->Bold = true;
Extreelib_tlb::IConditionalFormatPtr var_ConditionalFormat = Tree1->ConditionalFormats->Add(L"1",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ApplyTo = Extreelib_tlb::FormatApplyToEnum(0x2);
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Description");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->Columns->Add(L"Index");
var_Column1->FormatColumn = L"1 index `I`";
var_Column1->Position = 0;
var_Column1->Width = 16;
Extreelib_tlb::IColumnPtr var_Column2 = Tree1->Columns->Add(L"Parent-Index");
var_Column2->FormatColumn = L"parent(1 index `I`)";
var_Column2->Position = 1;
var_Column2->Width = 32;
var_Column2->set_Def(Extreelib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Extreelib_tlb::IColumnPtr var_Column3 = Tree1->Columns->Add(L"Parent-Value");
var_Column3->FormatColumn = L"parent(%0)";
var_Column3->Position = 2;
var_Column3->Width = 32;
var_Column3->set_Def(Extreelib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("Sub-Child 2"));
var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(0),1);
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"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
Tree1->EndUpdate();
|
|
746
|
Specify the size of the Columns panel

Tree1->BeginUpdate();
Tree1->HeaderHeight = 24;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Tree1->ColumnsFloatBarRect = L",,96";
Tree1->ColumnsFloatBarVisible = Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleAsChild | Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Tree1->EndUpdate();
|
|
745
|
Show a vertical line between pivot and Columns panel (EBN color)

Tree1->BeginUpdate();
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX") +
"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI"));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exColumnsFloatBackColor] = 0x1000000;
Tree1->HeaderHeight = 24;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Tree1->ColumnsFloatBarVisible = Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleAsChild | Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Tree1->EndUpdate();
|
|
744
|
Change the background of the Columns panel (EBN color)

Tree1->BeginUpdate();
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT") +
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" +
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" +
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" +
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" +
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" +
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" +
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA"));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exColumnsFloatBackColor] = 0x1000000;
Tree1->HeaderHeight = 24;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Tree1->ColumnsFloatBarVisible = Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleAsChild | Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Tree1->EndUpdate();
|
|
743
|
Change the background of the Columns panel (solid color)

Tree1->BeginUpdate();
Tree1->HeaderHeight = 24;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Tree1->ColumnsFloatBarVisible = Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleAsChild | Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exColumnsFloatBackColor] = RGB(240,240,240);
Tree1->EndUpdate();
|
|
742
|
Change the visual appearance of the Columns panel

Tree1->BeginUpdate();
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT") +
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" +
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" +
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" +
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" +
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" +
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" +
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA"));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exColumnsFloatAppearance] = 0x1000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exColumnsFloatCaptionBackColor] = RGB(246,246,246);
Tree1->BackColorHeader = 0x1000000;
Tree1->HeaderHeight = 24;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Tree1->Description[Extreelib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show/Hide";
Tree1->ColumnsFloatBarVisible = Extreelib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Tree1->EndUpdate();
|
|
741
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->Columns->Add(L"Country")->ShowIdem = L"<fgcolor gray>〃";
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
Tree1->EndUpdate();
|
|
740
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->Columns->Add(L"Country")->ShowIdem = L" ";
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
Tree1->EndUpdate();
|
|
739
|
Displays a glitch funnel for drop-down filter buttons (empty or active)

Tree1->BeginUpdate();
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->VisualAppearance;
var_Appearance->RenderType = -1;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO") +
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" +
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="));
var_Appearance->Add(2,TVariant("CP:1 -2 0 0 0"));
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exAllLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Tree1->ShowFocusRect = false;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000001;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->BackColorHeader = RGB(255,255,255);
Tree1->HeaderHeight = 24;
Tree1->HeaderVisible = true;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"1st col");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->Filter = L"Item B";
var_Column->FilterType = Extreelib_tlb::FilterTypeEnum::exFilter;
Tree1->Columns->Add(L"2nd col");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Tree1->ApplyFilter();
Tree1->EndUpdate();
|
|
738
|
How can I replace or add an icon at runtime

Tree1->BeginUpdate();
Tree1->ReplaceIcon(TVariant(String("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O") +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="),TNoParam());
Tree1->ReplaceIcon(TVariant("C:\\images\\favicon.ico"),TVariant(0));
Tree1->Columns->Add(L"Items")->set_Def(Extreelib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Tree1->Items->AddItem(TVariant("Item <img>1</img>"));
Tree1->EndUpdate();
|
|
737
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = true;
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exFilterPatternTemplate,TVariant("*<%filter%>*"));
var_Column->FilterType = Extreelib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"1";
Extreelib_tlb::IItemsPtr var_Items = Tree1->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"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Tree1->ApplyFilter();
Tree1->EndUpdate();
|
|
736
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exAllLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Tree1->ColumnAutoResize = false;
Tree1->Columns->Add(L"Column 1");
Tree1->Columns->Add(L"Column 2");
Tree1->Columns->Add(L"Column 3");
Tree1->Columns->Add(L"Column 4");
Tree1->EndUpdate();
|
|
735
|
Load data as a tree using a parent-id relationship

Tree1->BeginUpdate();
Tree1->ColumnAutoResize = false;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
/*
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("Select * FROM Employees WHERE 1=0"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->Columns->get_Item(TVariant(0))->Width = 128;
rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Employees"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->PutItems(rs->GetRows(0,TNoParam(),TNoParam()),TVariant(";0;15"));
Tree1->Items->set_ExpandItem(0,true);
Tree1->EndUpdate();
|
|
734
|
Highlight the leaf items

Tree1->BeginUpdate();
Tree1->ConditionalFormats->Add(L"%CC0=0",TNoParam())->ForeColor = RGB(128,128,128);
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Tree1->EndUpdate();
|
|
733
|
Highlight the parent items

Tree1->BeginUpdate();
Tree1->ConditionalFormats->Add(L"%CC0",TNoParam())->ForeColor = RGB(255,0,0);
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Tree1->EndUpdate();
|
|
732
|
Highlight the item being expanded or collapsed

Tree1->BeginUpdate();
Tree1->ConditionalFormats->Add(L"%CX0",TNoParam())->Bold = true;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Tree1->EndUpdate();
|
|
731
|
Disable temporarily the column's sort, resize and drag and drop

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

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Tree1AnchorClick(TObject *Sender, BSTR AnchorID, BSTR Options)
{
OutputDebugString( L"AnchorID" );
}
Tree1->BeginUpdate();
Tree1->ColumnAutoResize = true;
Tree1->TreeColumnIndex = -1;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exAllLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Tree1->BackColorAlternate = RGB(240,240,240);
Tree1->ShowFocusRect = false;
Tree1->Columns->Add(L"Default");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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_CellCaptionFormat(TVariant(h),TVariant(0),Extreelib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Extreelib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->AddItem(TVariant("after item"));
Tree1->EndUpdate();
|
|
729
|
Expandable-caption

Tree1->BeginUpdate();
Tree1->ColumnAutoResize = true;
Tree1->TreeColumnIndex = -1;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exAllLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Tree1->BackColorAlternate = RGB(240,240,240);
Tree1->ShowFocusRect = false;
Tree1->Columns->Add(L"Default");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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_CellCaptionFormat(TVariant(h),TVariant(0),Extreelib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Extreelib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->AddItem(TVariant("after item"));
Tree1->EndUpdate();
|
|
728
|
Force scrollbars hover-all feature
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exScrollHoverAll] = -1;
|
|
727
|
Disable scrollbars hover-all feature (Windows 11 or greater)
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exScrollHoverAll] = RGB(1,0,0);
|
|
726
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Tree1MouseMove(TObject *Sender, short Button, short Shift, int X, int Y)
{
Tree1->ShowToolTip(L"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}
|
|
725
|
Shows the tooltip of the object moved relative to its default position

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Tree1MouseMove(TObject *Sender, short Button, short Shift, int X, int Y)
{
Tree1->ShowToolTip(L"<null>",TVariant("<null>"),TNoParam(),TVariant("+8"),TVariant("+8"));
}
Tree1->ColumnAutoResize = false;
Tree1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";
|
|
724
|
Highlight the match once the filter is applied

// FilterChange event - Notifies your application that the filter is changed.
void __fastcall TForm1::Tree1FilterChange(TObject *Sender)
{
TVariant format = TVariant(Tree1->FormatABC(L"`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(Tree1->FilterBarPromptPattern),TNoParam(),TNoParam()));
Tree1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
Tree1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
Tree1->Columns->get_Item(TVariant(2))->FormatColumn = L"format";
}
Tree1->BeginUpdate();
Tree1->SelBackColor = Tree1->BackColor;
Tree1->SelForeColor = Tree1->ForeColor;
Tree1->ColumnAutoResize = true;
Tree1->ContinueColumnScroll = false;
Tree1->MarkSearchColumn = false;
Tree1->SearchColumnIndex = 1;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 23;
Tree1->BackColorLevelHeader = Tree1->BackColor;
Tree1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Tree1->FilterBarPromptVisible = Extreelib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Tree1->FilterBarBackColor = Tree1->BackColor;
Tree1->FilterBarPromptPattern = L"and";
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
Extreelib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Name");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"lower(value)";
Extreelib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Title");
var_Column1->set_Def(Extreelib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column1->FormatColumn = L"lower(value)";
Extreelib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"City");
var_Column2->set_Def(Extreelib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column2->FormatColumn = L"lower(value)";
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h0 = var_Items->AddItem(TVariant("Nancy Davolio"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Seattle"));
h0 = var_Items->AddItem(TVariant("Andrew Fuller"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Vice President, Sales"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Tacoma"));
var_Items->set_SelectItem(h0,true);
h0 = var_Items->AddItem(TVariant("Janet Leverling"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Kirkland"));
h0 = var_Items->AddItem(TVariant("Margaret Peacock"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Redmond"));
h0 = var_Items->AddItem(TVariant("Steven Buchanan"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Manager"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Michael Suyama"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Robert King"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Laura Callahan"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Inside Sales Coordinator"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("Seattle"));
h0 = var_Items->AddItem(TVariant("Anne Dodsworth"));
var_Items->set_CellCaption(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellCaption(TVariant(h0),TVariant(2),TVariant("London"));
Tree1->EndUpdate();
|
|
723
|
ADOR, MDB (JET)

Tree1->ColumnAutoResize = false;
Tree1->ContinueColumnScroll = 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\\ExTree\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
|
|
722
|
Re-order the cell's caption, icons and images/pictures

Tree1->BeginUpdate();
Tree1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"));
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"ToLeft");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->Columns->Add(L"ToRight");
var_Column1->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->set_Def(Extreelib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check"));
Tree1->DefaultItemHeight = 32;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IItemsPtr var_Items = Tree1->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),Tree1->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_CellCaption(TVariant(h),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(0))));
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Extreelib_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_CellCaptionFormat(TVariant(h),TVariant(0),Extreelib_tlb::CaptionFormatEnum::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),Tree1->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_CellCaption(TVariant(h),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(0))));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Extreelib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Extreelib_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)));
Tree1->EndUpdate();
|
|
721
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Tree1AddColumn(TObject *Sender, Extreelib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
Tree1->BeginUpdate();
Tree1->ImageSize = 32;
Tree1->DefaultItemHeight = 36;
Tree1->HeaderHeight = Tree1->DefaultItemHeight;
Tree1->SortBarHeight = Tree1->DefaultItemHeight;
Tree1->Font->Size = TVariant(long(16));
Tree1->FilterBarFont->Size = TVariant(Tree1->Font->Size);
Tree1->ToolTipFont->Size = TVariant(Tree1->Font->Size);
Tree1->Indent = 26;
Tree1->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=="));
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->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=="));
Tree1->BackColorHeader = 0x4c6c6c6;
Tree1->SelBackColor = 0x4000000;
Tree1->SelForeColor = RGB(0,0,1);
Tree1->CheckImage[Extreelib_tlb::CheckStateEnum::Unchecked] = 16777216;
Tree1->CheckImage[Extreelib_tlb::CheckStateEnum::Checked] = 33554432;
Tree1->CheckImage[Extreelib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Tree1->SelBackColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Tree1->SelForeColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exBackColorFilter] = Tree1->BackColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exForeColorFilter] = Tree1->ForeColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->ShowFocusRect = false;
Tree1->SortBarVisible = true;
Tree1->BackColorSortBar = Tree1->BackColor;
Tree1->BackColorLevelHeader = Tree1->BackColor;
Tree1->FilterBarDropDownHeight = 1;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Check");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Extreelib_tlb::FilterListEnum::exShowCheckBox;
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->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 = Extreelib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Extreelib_tlb::AlignmentEnum::CenterAlignment;
Extreelib_tlb::IColumnPtr var_Column2 = Tree1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Extreelib_tlb::FilterListEnum::exShowExclude | Extreelib_tlb::FilterListEnum::exShowCheckBox | Extreelib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Extreelib_tlb::FilterTypeEnum::exImage;
var_Column2->DisplayExpandButton = true;
var_Column2->ExpandColumns = L"1,2,3";
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Extreelib_tlb::IColumnPtr var_Column3 = Tree1->Columns->Add(L"Images");
var_Column3->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Tree1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Extreelib_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_CellCaption(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_CellCaption(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_CellCaption(TVariant(h),TVariant(3),TVariant("312"));
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
var_Items->set_ExpandItem(hR,true);
Tree1->EndUpdate();
|
|
720
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Tree1AddColumn(TObject *Sender, Extreelib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
Tree1->BeginUpdate();
Tree1->ImageSize = 16;
Tree1->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=="));
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->VisualAppearance;
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Tree1->BackColorHeader = 0x4c6c6c6;
Tree1->SelBackColor = 0x4000000;
Tree1->SelForeColor = RGB(0,0,1);
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Tree1->SelBackColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Tree1->SelForeColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exBackColorFilter] = Tree1->BackColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exForeColorFilter] = Tree1->ForeColor;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->ShowFocusRect = false;
Tree1->SortBarVisible = true;
Tree1->BackColorSortBar = Tree1->BackColor;
Tree1->BackColorLevelHeader = Tree1->BackColor;
Tree1->FilterBarDropDownHeight = 1;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Check");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Extreelib_tlb::FilterListEnum::exShowCheckBox;
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->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 = Extreelib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Extreelib_tlb::AlignmentEnum::CenterAlignment;
Extreelib_tlb::IColumnPtr var_Column2 = Tree1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Extreelib_tlb::FilterListEnum::exShowExclude | Extreelib_tlb::FilterListEnum::exShowCheckBox | Extreelib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Extreelib_tlb::FilterTypeEnum::exImage;
var_Column2->DisplayExpandButton = true;
var_Column2->ExpandColumns = L"1,2,3";
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Extreelib_tlb::IColumnPtr var_Column3 = Tree1->Columns->Add(L"Images");
var_Column3->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Tree1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Extreelib_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_CellCaption(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_CellCaption(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_CellCaption(TVariant(h),TVariant(3),TVariant("312"));
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
var_Items->set_ExpandItem(hR,true);
Tree1->EndUpdate();
|
|
719
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Tree1AddColumn(TObject *Sender, Extreelib_tlb::IColumn *Column)
{
}
Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->Columns->get_Item(TVariant("ShipVia"))->Position = 2;
Tree1->EndUpdate();
|
|
718
|
Is it possible to set from code, a column sort without being inserted in the sortbar

Tree1->BeginUpdate();
Tree1->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\\ExTree\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Tree1->DataSource = (IDispatch*)rs;
Tree1->SortBarVisible = true;
Tree1->Layout = L"singlesort=\"C1:1\"";
Tree1->EndUpdate();
|
|
717
|
Is it possible to view all events the control fires
// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Tree1Event(TObject *Sender, long EventID)
{
OutputDebugString( PChar(Tree1->EventParam[-2]) );
}
Tree1->BeginUpdate();
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Tasks");
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->set_Def(Extreelib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)";
Tree1->HeaderVisible = true;
Extreelib_tlb::IItemsPtr var_Items = Tree1->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);
Tree1->EndUpdate();
|
|
716
|
How can I prevent expanding/collapsing the child items

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::Tree1BeforeExpandItem(TObject *Sender, Extreelib_tlb::HITEM Item, Variant * Cancel)
{
Cancel = Tree1->Items->get_ItemParent(Item);
}
Tree1->BeginUpdate();
Tree1->SingleSel = false;
Tree1->Columns->Add(L"Default");
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Extreelib_tlb::IItemsPtr var_Items = Tree1->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);
Tree1->EndUpdate();
|
|
715
|
How can I display an item of picture type

Tree1->BeginUpdate();
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->ScrollBySingleLine = false;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->HeaderHeight = 24;
Tree1->Columns->Add(L"Artikel")->HTMLCaption = L"<u>Artikel";
Tree1->Columns->Add(L"Waarde")->HTMLCaption = L"<u>Waarde";
Tree1->HTMLPicture[L"T22128"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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_CellCaptionFormat(TVariant(h1),TVariant(0),Extreelib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_ItemHeight(h1,128);
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("werkvoorbereiding"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant("5.80"));
var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Type"))),TVariant(1),TVariant("Eenvoudig"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Prijs p/uur"))),TVariant(1),TVariant("60,00"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Marhe"))),TVariant(1),TVariant("15,00%"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Insteltijd min."))),TVariant(1),TVariant("5,00"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Aantal"))),TVariant(1),TVariant(1));
var_Items->set_CellCaption(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_CellCaption(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_CellCaption(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);
Tree1->EndUpdate();
|
|
714
|
Dark mode

Tree1->BeginUpdate();
String back = 65536;
String fore = 16777215;
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Tree1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b") +
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA"));
Tree1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C") +
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
"bbuaaXLhGCYBgIA=="));
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Bump;
Tree1->BackColor = back;
Tree1->BackColorHeader = back;
Tree1->BackColorLevelHeader = back;
Tree1->BackColorSortBar = back;
Tree1->BackColorSortBarCaption = back;
Tree1->FilterBarBackColor = back;
Tree1->FilterBarForeColor = fore;
Tree1->ForeColor = fore;
Tree1->ForeColorHeader = fore;
Tree1->ForeColorSortBar = fore;
Tree1->SelBackColor = fore;
Tree1->SelForeColor = back;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum(0x10 | Extreelib_tlb::BackgroundPartEnum::exCellButtonUp)] = 0x2000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x3000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exToolTipBackColor] = back;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exToolTipForeColor] = fore;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelBackColorFilter] = fore;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSelForeColorFilter] = back;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exBackColorFilter] = back;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exForeColorFilter] = fore;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exSortBarLinkColor] = back;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum(0x80 | Extreelib_tlb::BackgroundPartEnum::exDateSelect)] = 0x2000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum(0x80 | Extreelib_tlb::BackgroundPartEnum::exDateSeparatorBar)] = 0x2000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exTreeLinesColor] = fore;
Tree1->Description[Extreelib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Tree1->EndUpdate();
|
|
713
|
How can I specify the cell's outline, border or lines around, when the cell gets selected

Tree1->BeginUpdate();
Tree1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
var_Appearance->Add(2,TVariant("CP:1 -4 0 0 0"));
Tree1->SelBackColor = 0x2000000;
Tree1->SelForeColor = RGB(0,0,1);
Tree1->FullRowSelect = false;
Tree1->ShowFocusRect = false;
Tree1->DefaultItemHeight = 24;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->Columns->Add(L"C1");
Tree1->Columns->Add(L"C2");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
Tree1->Items->set_SelectPos(TVariant(1));
Tree1->SelectColumnIndex = 1;
Tree1->EndUpdate();
|
|
712
|
How can I specify the cell's outline, border or lines around, when the item gets selected

Tree1->BeginUpdate();
Tree1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Tree1->SelBackColor = 0x1000000;
Tree1->SelForeColor = RGB(0,0,1);
Tree1->ShowFocusRect = false;
Tree1->DefaultItemHeight = 24;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->Columns->Add(L"C1");
Tree1->Columns->Add(L"C2");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
var_Items->set_SelectPos(TVariant(1));
Tree1->EndUpdate();
|
|
711
|
How can I specify the cell's outline, border or lines around

Tree1->BeginUpdate();
Tree1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Tree1->SelBackMode = Extreelib_tlb::BackModeEnum::exTransparent;
Tree1->ShowFocusRect = false;
Tree1->DefaultItemHeight = 24;
Tree1->HeaderHeight = 24;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->Columns->Add(L"C1");
Tree1->Columns->Add(L"C2");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
long h = var_Items->AddItem(TVariant("Cell 2"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Cell 3"));
var_Items->set_CellBackColor(TVariant(h),TVariant(1),0x1000000);
Tree1->EndUpdate();
|
|
710
|
Is it possible to highligth the match while a filter is applied

// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Tree1AddColumn(TObject *Sender, Extreelib_tlb::IColumn *Column)
{
// Column.Def(17) = 1
}
// FilterChange event - Notifies your application that the filter is changed.
void __fastcall TForm1::Tree1FilterChange(TObject *Sender)
{
TVariant format = TVariant(Tree1->FormatABC(L"`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(Tree1->FilterBarPromptPattern),TNoParam(),TNoParam()));
Tree1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
Tree1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
}
Tree1->BeginUpdate();
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exVLines;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->Columns->Add(L"Col 1");
Tree1->Columns->Add(L"Col 2");
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Tree1->FilterBarPromptPattern = L"1";
Tree1->FilterBarPromptVisible = Extreelib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Extreelib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Tree1->FilterBarPromptType = Extreelib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Extreelib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Tree1->EndUpdate();
|
|
709
|
Is it possible to highlight the column's header once a filter is applied (sample 2)

Tree1->BeginUpdate();
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->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=="));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Tree1->HeaderHeight = 28;
Tree1->BackColorHeader = RGB(255,255,255);
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->HeaderVisible = true;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"C1")->DisplayFilterButton = true;
Extreelib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
var_Column->DisplayFilterButton = true;
var_Column->Filter = L"Item 2";
var_Column->FilterType = Extreelib_tlb::FilterTypeEnum::exFilter;
var_Columns->Add(L"C3")->DisplayFilterButton = true;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 2"));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 3"));
h = var_Items->AddItem(TVariant("Item 4"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 5"));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 6"));
Tree1->ApplyFilter();
Tree1->EndUpdate();
|
|
708
|
How can I make the expand/collapse glyphs DPI aware

String size = 2;
Tree1->BeginUpdate();
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->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(Tree1->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(Tree1->FormatABC(L"`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` + int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Tree1->HasButtons = Extreelib_tlb::ExpandButtonEnum::exCustom;
Tree1->HasButtonsCustom[false] = 16777216;
Tree1->HasButtonsCustom[true] = 33554432;
Tree1->Columns->Add(L"Column");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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"));
Tree1->EndUpdate();
|
|
707
|
Is it possible to highlight the column's header once a filter is applied (sample 1)

Tree1->BeginUpdate();
Extreelib_tlb::IAppearancePtr var_Appearance = Tree1->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"));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Tree1->HeaderHeight = 28;
Tree1->BackColorHeader = RGB(255,255,255);
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exRowLines;
Tree1->HeaderVisible = true;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"C1")->DisplayFilterButton = true;
Extreelib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
var_Column->DisplayFilterButton = true;
var_Column->Filter = L"Item 2";
var_Column->FilterType = Extreelib_tlb::FilterTypeEnum::exFilter;
var_Columns->Add(L"C3")->DisplayFilterButton = true;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 2"));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 3"));
h = var_Items->AddItem(TVariant("Item 4"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Item 5"));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant("Item 6"));
Tree1->ApplyFilter();
Tree1->EndUpdate();
|
|
706
|
Is it possible to show the filterbar on top of the rows

Tree1->BeginUpdate();
Tree1->FilterBarPromptVisible = Extreelib_tlb::FilterBarVisibleEnum::exFilterBarTop;
Tree1->HeaderHeight = 24;
Tree1->FilterBarHeight = Tree1->HeaderHeight;
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Flat;
Tree1->DrawGridLines = Extreelib_tlb::GridLinesEnum::exAllLines;
Tree1->GridLineStyle = Extreelib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Extreelib_tlb::IColumnPtr var_Column = Tree1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Extreelib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"B*";
Extreelib_tlb::IColumnPtr var_Column1 = Tree1->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 = Extreelib_tlb::SortTypeEnum::SortNumeric;
var_Column1->set_Def(Extreelib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Extreelib_tlb::IItemsPtr var_Items = Tree1->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"));
Tree1->ApplyFilter();
Tree1->EndUpdate();
|
|
705
|
DragDrop (with visual effect)

// 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::Tree1OLEDragDrop(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * Effect, short Button, short Shift, int X, int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Tree1->ItemFromPoint[-1,-1,c,hit];
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Tree1OLEStartDrag(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Tree1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG") +
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA=="));
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exListOLEDropPosition] = 0x1000000;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Tree1->OLEDropMode = Extreelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Tree1->AutoDrag = Extreelib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->Indent = 16;
Tree1->SelBackMode = Extreelib_tlb::BackModeEnum::exTransparent;
Tree1->Columns->Add(L"Default");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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." );
|
|
704
|
DragDrop (with no visual effect, hide item while drag and drop)

// 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::Tree1OLEDragDrop(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * Effect, short Button, short Shift, int X, int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Tree1->ItemFromPoint[-1,-1,c,hit];
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Tree1OLEStartDrag(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Tree1->OLEDropMode = Extreelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Tree1->AutoDrag = Extreelib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->Indent = 16;
Tree1->SelBackMode = Extreelib_tlb::BackModeEnum::exTransparent;
Tree1->Columns->Add(L"Default");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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." );
|
|
703
|
DragDrop

// 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::Tree1OLEDragDrop(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * Effect, short Button, short Shift, int X, int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Tree1->ItemFromPoint[-1,-1,c,hit];
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Tree1OLEStartDrag(TObject *Sender, Extreelib_tlb::IExDataObject *Data, long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Tree1->OLEDropMode = Extreelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Tree1->AutoDrag = Extreelib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Tree1->LinesAtRoot = Extreelib_tlb::LinesAtRootEnum::exLinesAtRoot;
Tree1->Indent = 16;
Tree1->SelBackMode = Extreelib_tlb::BackModeEnum::exTransparent;
Tree1->Columns->Add(L"Default");
Extreelib_tlb::IItemsPtr var_Items = Tree1->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." );
|
|
702
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"Item");
Extreelib_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;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Tree1->EndUpdate();
|
|
701
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

Tree1->BeginUpdate();
Tree1->HeaderAppearance = Extreelib_tlb::AppearanceEnum::Etched;
Tree1->Background[Extreelib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Extreelib_tlb::IColumnsPtr var_Columns = Tree1->Columns;
var_Columns->Add(L"Item");
Extreelib_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;
Extreelib_tlb::IItemsPtr var_Items = Tree1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Tree1->EndUpdate();
|