|
305
|
Why I cannot center my cells in the column
ComboBox1->TreeColumnIndex = -1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Default")->Alignment = Excomboboxlib_tlb::AlignmentEnum::CenterAlignment;
ComboBox1->Items->AddItem(TVariant("item 1"));
ComboBox1->Items->AddItem(TVariant("item 2"));
ComboBox1->Items->AddItem(TVariant("item 3"));
|
|
23
|
Why child items are not shown
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Column 1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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);
|
|
551
|
Why can t I type free text into a DropDown style combobox
ComboBox1->AutoComplete = false;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
456
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->Select[TVariant(0)] = TVariant("C");
|
|
458
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->EditText[TVariant(0)] = PChar(ComboBox1->Items->get_CellCaption(TVariant(ComboBox1->Items->get_ItemByIndex(2)),TVariant(0)));
|
|
459
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->EditText[TVariant(0)] = L"C";
|
|
457
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->Select[TVariant(0)] = TVariant(ComboBox1->Items->get_CellCaption(TVariant(ComboBox1->Items->get_ItemByIndex(2)),TVariant(0)));
|
|
383
|
What about a function to get the day in the week, or days since Sunday
ComboBox1->Columns->Add(L"Date");
ComboBox1->Columns->Add(L"WeekDay")->ComputedField = L"weekday(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(TDateTime(2001,1,11,10,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2002,2,22,11,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2003,3,13,12,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2004,4,14,13,00,00,0).operator double()));
|
|
538
|
Type of wraps the cell's caption support (Sample 2)
ComboBox1->BeginUpdate();
ComboBox1->HeaderSingleLine = false;
ComboBox1->HeaderHeight = 36;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->ColumnAutoResize = false;
ComboBox1->ScrollBySingleLine = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Single-Line (exCaptionSingleLine)");
var_Column->Width = 96;
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(-1));
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Word-Wrap (exCaptionWordWrap)");
var_Column1->Width = 96;
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(0));
var_Column1->FormatColumn = L"%0";
Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Break-Wrap (exCaptionBreakWrap)");
var_Column2->Width = 96;
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1));
var_Column2->FormatColumn = L"%0";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
var_Items->AddItem(TVariant("This is the <b>first</b> line.\\r\\nThis is the <b>second</b> line.\\r\\nThis is the <b>third</b> line."));
ComboBox1->EndUpdate();
|
|
537
|
Type of wraps the cell's caption support (Sample 1)
ComboBox1->BeginUpdate();
ComboBox1->HeaderSingleLine = false;
ComboBox1->HeaderHeight = 36;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->ColumnAutoResize = false;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"Default")->Width = 128;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
h = var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
h = var_Items->AddItem(TVariant("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
ComboBox1->EndUpdate();
|
|
574
|
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::ComboBox1AddColumn(TObject *Sender, Excomboboxlib_tlb::IColumn *Column)
{
}
ComboBox1->BeginUpdate();
ComboBox1->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\\ExComboBox\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->Columns->get_Item(TVariant("ShipVia"))->Position = 2;
ComboBox1->EndUpdate();
|
|
169
|
The thumb size seems to be very small. Can I make it bigger
ComboBox1->ColumnAutoResize = false;
ComboBox1->Columns->Add(L"C1")->Width = 256;
ComboBox1->Columns->Add(L"C2")->Width = 256;
ComboBox1->Columns->Add(L"C3")->Width = 256;
ComboBox1->ScrollThumbSize[Excomboboxlib_tlb::ScrollBarEnum::exHScroll] = 64;
|
|
45
|
The drop down filter window displays a "to" string between two datem when I filter dates. Can I change that
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterDate = true;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarDateTo] = L"->";
ComboBox1->ApplyFilter();
|
|
324
|
The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
|
|
337
|
The control selects the portion of text that doesn't match with the selected item. How can I avoid that
ComboBox1->AutoSelect = false;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
507
|
The control's filter bar is not closed once I click the close button (toggle)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
var_Items->set_LockedItemCount(Excomboboxlib_tlb::VAlignmentEnum::exBottom,1);
long h = var_Items->get_LockedItem(Excomboboxlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemDivider(h,0);
var_Items->set_CellCaption(TVariant(h),TVariant(0),TVariant("<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
ComboBox1->FilterBarCaption = L"`<r><fgcolor=808080>` + value";
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column1->Filter = L"Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
37
|
The "IsBlank" caption shown in the control's filterbar when I select "Blanks" or "NonBlanks" items in the column's drop down filter window
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exBlanks;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarIsBlank] = L"Is Empty";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarIsNonBlank] = L"Is Not Empty";
ComboBox1->ApplyFilter();
|
|
586
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::ComboBox1MouseMove(TObject *Sender, short Button, short Shift, int X, int Y)
{
ComboBox1->ShowToolTip(L"<null>",TVariant("<null>"),TNoParam(),TVariant("+8"),TVariant("+8"));
}
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";
|
|
476
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is Simple)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->ForeColor = RGB(128,128,188);
ComboBox1->BackColor = RGB(240,240,240);
ComboBox1->HeaderForeColor = RGB(128,128,128);
ComboBox1->SelBackColor = RGB(128,128,128);
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->ForeColorEdit = RGB(255,255,255);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
475
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDownList)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->ForeColor = RGB(255,255,255);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
474
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDown)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->ForeColorEdit = RGB(255,255,255);
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
577
|
Re-order the cell's caption, icons and images/pictures
ComboBox1->BeginUpdate();
ComboBox1->IntegralHeight = true;
ComboBox1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"ToLeft");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"ToRight");
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check"));
ComboBox1->DefaultItemHeight = 32;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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),ComboBox1->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),Excomboboxlib_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),Excomboboxlib_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),ComboBox1->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),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Excomboboxlib_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)));
ComboBox1->EndUpdate();
|
|
597
|
Load data as a tree using a parent-id relationship
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->LinesAtRoot = Excomboboxlib_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\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->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\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->PutItems(rs->GetRows(0,TNoParam(),TNoParam()),TVariant(";0;15"));
ComboBox1->Items->set_ExpandItem(0,true);
ComboBox1->EndUpdate();
|
|
513
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPrompt = PChar(ComboBox1->FormatABC(L"`<r>` + value",TVariant(ComboBox1->FilterBarPrompt),TNoParam(),TNoParam()));
ComboBox1->EndUpdate();
|
|
512
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
ComboBox1->BeginUpdate();
ComboBox1->RightToLeft = true;
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->EndUpdate();
|
|
100
|
It seems that the control uses the TAB key, is there any way to avoid that
ComboBox1->UseTabKey = false;
|
|
447
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
|
|
446
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesInsideLeaf;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
445
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesInside;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
448
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
444
|
Is there other ways of showing the hierarchy lines (exGroupLines)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLines;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("SubChild 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
563
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item");
Excomboboxlib_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;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->EndUpdate();
|
|
562
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item");
Excomboboxlib_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;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->EndUpdate();
|
|
64
|
Is there any way to get listed only visible items in the drop down filter window
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarBlanks] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarNonBlanks] = L"";
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exVisibleItems;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"P2");
var_Column1->DisplayFilterButton = true;
var_Column1->DisplayFilterPattern = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("R2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Cell 1.1"))),TVariant(1),TVariant("Cell 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Cell 2.1"))),TVariant(1),TVariant("Cell 2.2"));
|
|
404
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
var_Columns->Add(L"C3");
var_Columns->Add(L"C4");
var_Columns->Add(L"C5");
var_Columns->Add(L"C6");
var_Columns->Add(L"C7");
var_Columns->Add(L"C8");
ComboBox1->RightToLeft = true;
ComboBox1->EndUpdate();
|
|
354
|
Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
ComboBox1->Columns->Add(L"Default")->AllowEditContextMenu = false;
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));
|
|
89
|
Is there any option to specify the height of the items, before adding them
ComboBox1->DefaultItemHeight = 32;
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant("One"));
ComboBox1->Items->AddItem(TVariant("Two"));
|
|
184
|
Is there any option to resize the column based on its data, captions
ComboBox1->Columns->Add(L"A")->WidthAutoResize = true;
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->Items->AddItem(TVariant(1));
|
|
36
|
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
ComboBox1->Columns->Add(L"Column")->DisplayFilterButton = true;
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarFilterTitle] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarPatternFilterTitle] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarTooltip] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarPatternTooltip] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarFilterForTooltip] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarDateTooltip] = L"";
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarDateTitle] = L"";
|
|
26
|
Is there any option to make italic the column's header
ComboBox1->Columns->Add(L"Column 1")->HeaderItalic = true;
|
|
145
|
Is there any option to highligth the column from the cursor - point
ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = 0x1000000;
ComboBox1->Columns->Add(L"S")->Width = 32;
ComboBox1->Columns->Add(L"Level 1")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"Level 2")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"Level 3")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"E1")->Width = 32;
ComboBox1->Columns->Add(L"E2")->Width = 32;
ComboBox1->Columns->Add(L"E3")->Width = 32;
ComboBox1->Columns->Add(L"E4")->Width = 32;
|
|
366
|
Is there any option to display cells in uppercase
ComboBox1->Columns->Add(L"")->ComputedField = L"upper(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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->InsertItem(h,TNoParam(),TVariant("Chld 3"));
var_Items->set_ExpandItem(h,true);
|
|
365
|
Is there any option to display cells in lowercase
ComboBox1->Columns->Add(L"")->ComputedField = L"lower(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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->InsertItem(h,TNoParam(),TVariant("Chld 3"));
var_Items->set_ExpandItem(h,true);
|
|
361
|
Is there any option to change the fore color for cells or items that ends with a specified string
ComboBox1->ConditionalFormats->Add(L"%0 endwith '22'",TNoParam())->ForeColor = RGB(255,0,0);
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.22"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.22"));
var_Items->set_ExpandItem(h,true);
|
|
24
|
Is there any option to bold the column's header
ComboBox1->Columns->Add(L"Column 1")->HeaderBold = true;
|
|
323
|
Is there any option to align the header to the left and the data to the right
ComboBox1->Columns->Add(L"Left")->Alignment = Excomboboxlib_tlb::AlignmentEnum::LeftAlignment;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Right");
var_Column->Alignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
var_Column->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
var_Column->EditAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("left"))),TVariant(1),TVariant("right"));
|
|
9
|
Is there any option to align the header to the left and the data to the right
ComboBox1->Columns->Add(L"Left")->Alignment = Excomboboxlib_tlb::AlignmentEnum::LeftAlignment;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Right");
var_Column->Alignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
var_Column->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("left"))),TVariant(1),TVariant("right"));
|
|
487
|
Is there any method to get only the matched items and not the items with his parent
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"C1|C2";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
369
|
Is there any function to round the values base on the .5 value
ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Round")->ComputedField = L"round(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("-1.98"));
var_Items->AddItem(TVariant("0.99"));
var_Items->AddItem(TVariant("1.23"));
var_Items->AddItem(TVariant("2.34"));
|
|
306
|
Is there any function to limit the height of the items when I display it using multiple lines
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Cell 1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."));
var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->set_ItemMaxHeight(h,48);
|
|
382
|
Is there any function to get the day of the year or number of days since January 1st
ComboBox1->Columns->Add(L"Date");
ComboBox1->Columns->Add(L"Day since January 1st")->ComputedField = L"yearday(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(TDateTime(2001,1,11,10,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2002,2,22,11,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2003,3,13,12,00,00,0).operator double()));
var_Items->AddItem(TVariant(TDateTime(2004,4,14,13,00,00,0).operator double()));
|
|
139
|
Is there any function to get the control's data in your x-script format / template
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant("ToTemplate()"));
|
|
370
|
Is there any function to get largest number with no fraction part that is not greater than the value
ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Floor")->ComputedField = L"floor(%0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("-1.98"));
var_Items->AddItem(TVariant("0.99"));
var_Items->AddItem(TVariant("1.23"));
var_Items->AddItem(TVariant("2.34"));
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Filter");
var_Column->FilterOnType = true;
var_Column->DisplayFilterButton = true;
ComboBox1->Items->AddItem(TVariant("Canada"));
ComboBox1->Items->AddItem(TVariant("USA"));
|
|
207
|
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Filter");
var_Column->FilterOnType = true;
var_Column->DisplayFilterButton = true;
var_Column->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
ComboBox1->Items->AddItem(TVariant("Canada"));
ComboBox1->Items->AddItem(TVariant("USA"));
|
|
373
|
Is there any function to display currencies, or money formatted as in the control panel
ComboBox1->Columns->Add(L"Number");
ComboBox1->Columns->Add(L"Currency")->ComputedField = L"currency(dbl(%0))";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("1.23"));
var_Items->AddItem(TVariant("2.34"));
var_Items->AddItem(TVariant("10000.99"));
|
|
188
|
Is there any function to assign any extra data to a column
ComboBox1->Columns->Add(L"Data")->set_Data(TVariant("your extra data"));
|
|
189
|
Is there any function to assign a key to a column instead using its name or capion
ComboBox1->Columns->Add(L"Data")->Key = L"DKey";
ComboBox1->Columns->get_Item(TVariant("DKey"))->Caption = L"new caption";
|
|
492
|
Is there a way to change the dropdown button arrow to something else ( theme, ebn )
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant("XP:SCROLLBAR 1 6"));
var_Appearance->Add(2,TVariant("XP:SCROLLBAR 1 7"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x2000000;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
490
|
Is there a way to change the dropdown button arrow to something else ( solid color )
ComboBox1->BeginUpdate();
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = RGB(190,190,190);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = RGB(128,128,128);
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
491
|
Is there a way to change the dropdown button arrow to something else ( no visual theme )
ComboBox1->BeginUpdate();
ComboBox1->UseVisualTheme = Excomboboxlib_tlb::UIVisualThemeEnum::exBorderVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exCheckBoxVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exCalendarVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exFilterBarVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exHeaderVisualTheme;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
495
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA=="));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1f0f0f0;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
494
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4" +
"AYAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgi" +
"lONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoD" +
"ISAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOl" +
"sHo8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg="));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1808080;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
493
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhC" +
"BZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOol" +
"EiHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB" +
"4PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3k" +
"UASAg"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1808080;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
389
|
Is there a function to display the number of days between two date including the number of hours
ComboBox1->Columns->Add(L"Start")->Width = 32;
ComboBox1->Columns->Add(L"End");
ComboBox1->Columns->Add(L"Duration")->ComputedField = TVariant(String("2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : ") +
"'') + =:3 + ' hour(s)' : '' )");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(TDateTime(2001,1,11).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2001,1,14).operator double()));
h = var_Items->AddItem(TVariant(TDateTime(2002,2,22,12,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2002,3,14,13,00,00,0).operator double()));
h = var_Items->AddItem(TVariant(TDateTime(2003,3,13).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2003,4,11,11,00,00,0).operator double()));
|
|
388
|
Is there a function to display the number of days between two date including the number of hours
ComboBox1->Columns->Add(L"Start");
ComboBox1->Columns->Add(L"End");
ComboBox1->Columns->Add(L"Duration")->ComputedField = L"\"D \" + int(date(%1)-date(%0)) + \" H \" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(TDateTime(2001,1,11).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2001,1,14,23,00,00,0).operator double()));
h = var_Items->AddItem(TVariant(TDateTime(2002,2,22,12,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2002,3,14,13,00,00,0).operator double()));
h = var_Items->AddItem(TVariant(TDateTime(2003,3,13).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2003,4,11,11,00,00,0).operator double()));
|
|
425
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
ComboBox1->Columns->Add(L"Value");
ComboBox1->Columns->Add(L"FormatCell");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(1));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(12));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"currency(value)");
h = var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2001,1,1).operator double()));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"longdate(value) replace '2001' with '<b>2001</b>'");
ComboBox1->EndUpdate();
|
|
429
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->Columns->Add(L"Numbers")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
var_Items->AddItem(TVariant(4));
long h = var_Items->AddItem(TVariant("top 3"));
var_Items->set_ItemPosition(h,3);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_SortableItem(h,false);
var_Items->SortChildren(0,TVariant(0),false);
ComboBox1->EndUpdate();
|
|
523
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
var_Column1->DisplayFilterButton = true;
var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos");
var_Column2->AllowSizing = false;
var_Column2->AllowSort = false;
var_Column2->Width = 32;
var_Column2->FormatColumn = L"1 apos ``";
var_Column2->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +") +
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" +
"e `]` with ` </b></bgcolor></fgcolor>`");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column3->Filter = L"Item A|Item B";
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->get_Item(TVariant(1));
var_Column4->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column4->Filter = L"*B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
522
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
var_Column1->DisplayFilterButton = true;
var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos");
var_Column2->AllowSizing = false;
var_Column2->AllowSort = false;
var_Column2->Width = 32;
var_Column2->FormatColumn = L"1 apos ``";
var_Column2->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = L"value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column3->Filter = L"Item A|Item B";
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->get_Item(TVariant(1));
var_Column4->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column4->Filter = L"*B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
521
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Col-1");
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Col-2");
var_Column1->DisplayFilterButton = true;
var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos");
var_Column2->AllowSizing = false;
var_Column2->AllowSort = false;
var_Column2->Width = 32;
var_Column2->FormatColumn = L"1 apos ``";
var_Column2->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item A"))),TVariant(1),TVariant("Sub-Item A"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item B"))),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item C"))),TVariant(1),TVariant("Sub-Item C"));
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(ComboBox1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = L"value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column3->Filter = L"Item A|Item B";
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->get_Item(TVariant(1));
var_Column4->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column4->Filter = L"*B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
564
|
Is it possible to show the filterbar on top of the rows
ComboBox1->BeginUpdate();
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarTop;
ComboBox1->HeaderHeight = 24;
ComboBox1->FilterBarHeight = ComboBox1->HeaderHeight;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Flat;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"B*";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->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 = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
508
|
Is it possible to show the close button only if there is a filter applied
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->EndUpdate();
|
|
509
|
Is it possible to prevent definitely showing the filter bar's close button
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = -1;
ComboBox1->EndUpdate();
|
|
501
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->EndUpdate();
|
|
502
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column1->Filter = L"Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
500
|
Is it possible to prevent closing the control's filter bar, so it is always shown
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarCaption = L"len(value) = 0 ? `<fgcolor=808080>no filter` : value";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column1->Filter = L"Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
435
|
Is it possible to limit the height of the item while resizing
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM Item)
{
ComboBox1->Items->set_ItemMinHeight(Item,18);
ComboBox1->Items->set_ItemMaxHeight(Item,72);
}
ComboBox1->BeginUpdate();
ComboBox1->ItemsAllowSizing = Excomboboxlib_tlb::ItemsAllowSizingEnum::exResizeItem;
ComboBox1->ScrollBySingleLine = false;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->Columns->Add(L"Names");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Mantel"));
var_Items->AddItem(TVariant("Mechanik"));
var_Items->AddItem(TVariant("Motor"));
var_Items->AddItem(TVariant("Murks"));
var_Items->AddItem(TVariant("M rchen"));
var_Items->AddItem(TVariant("M hren"));
var_Items->AddItem(TVariant("M hle"));
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();
|
|
569
|
Is it possible to highlight the column's header once a filter is applied
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->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"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
ComboBox1->HeaderHeight = 28;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->HeaderVisible = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
var_Column->DisplayFilterButton = true;
var_Column->Filter = L"Item 2";
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Columns->Add(L"C3")->DisplayFilterButton = true;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
566
|
Is it possible to hide the count of selected items, shown on the right side of the control's label (multiple-selection)
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->SingleSel = false;
ComboBox1->SingleEdit = true;
ComboBox1->LabelColumnIndex = 0;
ComboBox1->SelBackColor = RGB(51,153,255);
ComboBox1->SelForeColor = RGB(255,255,255);
ComboBox1->LabelText = L" ";
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Column");
var_Columns->Add(L"Sub-Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(1),TVariant("SubItem 1.1"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(1),TVariant("SubItem 2.1"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(1),TVariant("SubItem 3.1"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 4"))),TVariant(1),TVariant("SubItem 4.1"));
var_Items->set_SelectItem(var_Items->get_ItemByIndex(1),true);
var_Items->set_SelectItem(var_Items->get_ItemByIndex(3),true);
ComboBox1->EndUpdate();
|
|
481
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
// CellButtonClick event - Fired after the user clicks on the cell of button type.
void __fastcall TForm1::ComboBox1CellButtonClick(TObject *Sender, Excomboboxlib_tlb::HCELL Item)
{
OutputDebugString( L"CellButtonClick" );
OutputDebugString( L"Item" );
OutputDebugString( PChar(ComboBox1->Key[TNoParam()]) );
}
// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::ComboBox1CellStateChanged(TObject *Sender, Excomboboxlib_tlb::HCELL Item)
{
OutputDebugString( L"CellStateChanged" );
OutputDebugString( L"Item" );
OutputDebugString( PChar(ComboBox1->Key[TNoParam()]) );
}
ComboBox1->BeginUpdate();
ComboBox1->SingleEdit = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"");
var_Column->AllowSizing = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 index ``";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Def");
var_Column1->AllowSizing = false;
var_Column1->Width = 48;
var_Column1->FormatColumn = L"` `";
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(true));
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
ComboBox1->EndUpdate();
|
|
436
|
Is it possible to format numbers
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Name");
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"A");
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column->AllowSizing = false;
var_Column->Width = 36;
var_Column->FormatColumn = L"len(value) ? value + ' +'";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"B");
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column1->AllowSizing = false;
var_Column1->Width = 36;
var_Column1->FormatColumn = L"len(value) ? value + ' +'";
Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"C");
var_Column2->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column2->AllowSizing = false;
var_Column2->Width = 36;
var_Column2->FormatColumn = L"len(value) ? value + ' ='";
Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"A+B+C");
var_Column3->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column3->Width = 64;
var_Column3->ComputedField = L"dbl(%1)+dbl(%2)+dbl(%3)";
var_Column3->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(4),Excomboboxlib_tlb::CaptionFormatEnum::exComputedField);
long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(7));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(3));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(1));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(-2));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(-2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(-4));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(-4));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
|
|
460
|
Is it possible to filter the items as I type
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
void __fastcall TForm1::ComboBox1EditChange(TObject *Sender, long ColIndex)
{
ComboBox1->Columns->get_Item(TVariant(0))->Filter = ComboBox1->get_EditText(TVariant(0));
ComboBox1->ApplyFilter();
}
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
ComboBox1->SingleEdit = true;
ComboBox1->AutoComplete = false;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Items");
var_Column->Prompt = L"<i><fgcolor=808080>Start Filter</fgcolor></i>";
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("AB"));
var_Items->AddItem(TVariant("AC"));
var_Items->AddItem(TVariant("BA"));
var_Items->AddItem(TVariant("BC"));
var_Items->AddItem(TVariant("CC"));
ComboBox1->EndUpdate();
|
|
437
|
Is it possible to display the numbers using 3 (three) digits
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '3') + ' <fgcolor=808080>(3 digits)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format 2) + ' <fgcolor=808080>(2 digits)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format 1) + ' <fgcolor=808080>(1 digit)'");
ComboBox1->EndUpdate();
|
|
552
|
Is it possible to configure different colour/icon when there is a active filter
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::ComboBox1FilterChange(TObject *Sender)
{
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = ComboBox1->FormatABC(L"value = 0 ? 0x1000001 : 0x10000FF ",TVariant(ComboBox1->Columns->get_Item(TVariant(0))->FilterType),TNoParam(),TNoParam());
}
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->RenderType = -16777216;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->ShowFocusRect = false;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000001;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderVisible = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Filter");
var_Column->DisplayFilterButton = true;
var_Column->AllowSort = false;
var_Column->AllowDragging = false;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->Filter = L"Item B";
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
579
|
Is it possible to Click or Double Click on any area of the combo to force the dropdown list to open
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
OutputDebugString( PChar(ComboBox1->DropDown[TNoParam()]) );
ComboBox1->DropDown[TNoParam()] = true;
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
532
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2");
var_Columns->Add(L"Column 3");
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="));
var_Appearance->Add(2,TVariant("CP:1 0 -36 0 0"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exColumnsPositionSign] = 0x2000000;
ComboBox1->EndUpdate();
|
|
572
|
Is it possible to change the visual appearance of the drop down button (method 3, theme)
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant("XP: COMBOBOX 1 1"));
ComboBox1->VisualAppearance->Add(2,TVariant("XP: COMBOBOX 1 3"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x2000000;
ComboBox1->Columns->Add(L"Default");
ComboBox1->EndUpdate();
|
|
571
|
Is it possible to change the visual appearance of the drop down button (method 2, ebn)
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABKYCg6AADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjGKsIhsGIbJAGQBJCjWGodQLOEgzN") +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwTJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoRFYNTTJMTLcZifBsEoib4qSxMVaDPQWNT3CTIMQve4IEyGQ6jDDVOjYfqmDzTPAALLFUaNYzoOKyABMHATBIXAY7BIIOQ1HgHNBwJAAczzcTSBI" +
"ABECQoBoTBnEOKZIkuJYFEMCBElgXBoG0CQUHKIB8huYBiDUEYtAkA4Ol+D5PmWdJ7nyHh/iKCQ8iYWwWkWY5aAIfgfFgFgEgGXxoCSbR+g8N5wFMCABnCDgQAiX54AY" +
"A4CiCCAaBgfhfjedgTBgBZhggVQVEWCBOBWAIPGgZgqgcIJYHoEQYEWcYMniDJPFOUJ1giYhYEYJ8siidgMgOIQ4kIMoMmASJWDeCQiGgAgogYY54jgI4QiMM5iCsOxk" +
"GiYhJgWIoYjIQILmMGRGAQNpNjMcJjhiZBYloVoOiSKAKCAGIkBkdhEgKJgDHAMgMEMcJkDgD4mDODhlhGY4QgwbgbEcAxElANBnnGQhehwJgZkwN4EmEOZaHiGQgikG" +
"BpBoRozGSWS5jmRoKgSSJiDiEAgEgEgOg2HZnhkTgZiaJxIEyDwjkkF5Qn6K5qAqCgRiOKhYG4PYqCiOBGiuKxrGqPJ+iwag6D4eotiuCoqiyKYfCqepAiyahKECbYxG" +
"uKwejaFJsiqBpBh4YRbBqPIPGyCAWlWLICDoTBrDsLhCgiIgpC2W4mkmK5JmIdIfDwbwDi2bxAlAECAg="));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1f0f0f0;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1666666;
ComboBox1->Columns->Add(L"Default");
ComboBox1->EndUpdate();
|
|
570
|
Is it possible to change the visual appearance of the drop down button (method 1, no visual theme)
ComboBox1->BeginUpdate();
ComboBox1->UseVisualTheme = Excomboboxlib_tlb::UIVisualThemeEnum::exNoVisualTheme;
ComboBox1->Columns->Add(L"Default");
ComboBox1->EndUpdate();
|
|
463
|
Is it possible to change the height for all items at once
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
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->set_ExpandItem(0,true);
ComboBox1->EndUpdate();
ComboBox1->DefaultItemHeight = 12;
ComboBox1->Items->set_ItemHeight(0,12);
|
|
440
|
Is it possible to change the grouping character when display numbers
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'");
ComboBox1->EndUpdate();
|
|
520
|
Is it possible to automatically displays the control's filter label to the right
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Item");
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Pos");
var_Column1->AllowSizing = false;
var_Column1->AllowSort = false;
var_Column1->Width = 32;
var_Column1->FormatColumn = L"1 apos ``";
var_Column1->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarCaption = L"`<r>` + value";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarToggle;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column2->Filter = L"Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
450
|
Is it possible to auto-numbering the children items too
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos.1");
var_Column->FormatColumn = L"1 rpos ''";
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Pos.2");
var_Column1->FormatColumn = L"1 rpos ':'";
var_Column1->Position = 1;
var_Column1->Width = 32;
var_Column1->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos.3");
var_Column2->FormatColumn = L"1 rpos ':|A-Z'";
var_Column2->Position = 2;
var_Column2->Width = 32;
var_Column2->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Pos.4");
var_Column3->FormatColumn = L"1 rpos '|A-Z|'";
var_Column3->Position = 3;
var_Column3->Width = 32;
var_Column3->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos.5");
var_Column4->FormatColumn = L"'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'";
var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column4->Position = 4;
var_Column4->Width = 32;
var_Column4->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->Add(L"Pos.6");
var_Column5->FormatColumn = L"'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->Position = 5;
var_Column5->Width = 48;
var_Column5->AllowSizing = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
ComboBox1->EndUpdate();
|
|
452
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Child 2";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Pos.1");
var_Column1->FormatColumn = L"1 ropos ''";
var_Column1->Position = 0;
var_Column1->Width = 32;
var_Column1->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos.2");
var_Column2->FormatColumn = L"1 ropos ':'";
var_Column2->Position = 1;
var_Column2->Width = 32;
var_Column2->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Pos.3");
var_Column3->FormatColumn = L"1 ropos ':|A-Z'";
var_Column3->Position = 2;
var_Column3->Width = 32;
var_Column3->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos.4");
var_Column4->FormatColumn = L"1 ropos '|A-Z|'";
var_Column4->Position = 3;
var_Column4->Width = 32;
var_Column4->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->Add(L"Pos.5");
var_Column5->FormatColumn = L"'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->Position = 4;
var_Column5->Width = 32;
var_Column5->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column6 = ComboBox1->Columns->Add(L"Pos.6");
var_Column6->FormatColumn = L"'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'";
var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column6->Position = 5;
var_Column6->Width = 48;
var_Column6->AllowSizing = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
442
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(0.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(0.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'");
ComboBox1->EndUpdate();
|
|
443
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default positive)'");
h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '2|.|3|,|1|1')");
h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default negative)'");
h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '2|.|3|,|1|1')");
ComboBox1->EndUpdate();
|
|
576
|
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::ComboBox1AddColumn(TObject *Sender, Excomboboxlib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
ComboBox1->BeginUpdate();
ComboBox1->ImageSize = 32;
ComboBox1->LabelHeight = 36;
ComboBox1->DefaultItemHeight = 36;
ComboBox1->HeaderHeight = ComboBox1->DefaultItemHeight;
ComboBox1->SortBarHeight = ComboBox1->DefaultItemHeight;
ComboBox1->Font->Size = TVariant(long(16));
ComboBox1->FilterBarFont->Size = TVariant(ComboBox1->Font->Size);
ComboBox1->ToolTipFont->Size = TVariant(ComboBox1->Font->Size);
ComboBox1->Indent = 26;
ComboBox1->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=="));
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->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=="));
ComboBox1->HeaderBackColor = 0x4c6c6c6;
ComboBox1->SelBackColor = 0x4000000;
ComboBox1->SelForeColor = RGB(0,0,1);
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Unchecked] = 16777216;
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Checked] = 33554432;
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = ComboBox1->SelBackColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = ComboBox1->SelForeColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exBackColorFilter] = ComboBox1->BackColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exForeColorFilter] = ComboBox1->ForeColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->ShowFocusRect = false;
ComboBox1->SortBarVisible = true;
ComboBox1->BackColorSortBar = ComboBox1->BackColor;
ComboBox1->BackColorLevelHeader = ComboBox1->BackColor;
ComboBox1->FilterBarDropDownHeight = 1;
ComboBox1->IntegralHeight = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Check");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->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 = Excomboboxlib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::CenterAlignment;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Images");
var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
ComboBox1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Excomboboxlib_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);
ComboBox1->EndUpdate();
|
|
575
|
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::ComboBox1AddColumn(TObject *Sender, Excomboboxlib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
ComboBox1->BeginUpdate();
ComboBox1->ImageSize = 16;
ComboBox1->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=="));
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
ComboBox1->HeaderBackColor = 0x4c6c6c6;
ComboBox1->SelBackColor = 0x4000000;
ComboBox1->SelForeColor = RGB(0,0,1);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = ComboBox1->SelBackColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = ComboBox1->SelForeColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exBackColorFilter] = ComboBox1->BackColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exForeColorFilter] = ComboBox1->ForeColor;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->ShowFocusRect = false;
ComboBox1->SortBarVisible = true;
ComboBox1->BackColorSortBar = ComboBox1->BackColor;
ComboBox1->BackColorLevelHeader = ComboBox1->BackColor;
ComboBox1->FilterBarDropDownHeight = 1;
ComboBox1->IntegralHeight = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Check");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->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 = Excomboboxlib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::CenterAlignment;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Images");
var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
ComboBox1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Excomboboxlib_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);
ComboBox1->EndUpdate();
|
|
471
|
If the user selects an item from the list, how can I clear that selection and return the control to the unselected state with the PROMPT text
// DropUp event - Occurs when the drop-down portion of the control is hidden.
void __fastcall TForm1::ComboBox1DropUp(TObject *Sender)
{
ComboBox1->EditText[TVariant(0)] = L"";
}
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::ComboBox1SelectionChanged(TObject *Sender)
{
OutputDebugString( L"You selected: " );
OutputDebugString( PChar(ComboBox1->get_Value()) );
}
ComboBox1->BeginUpdate();
ComboBox1->LabelHeight = 23;
ComboBox1->IntegralHeight = true;
ComboBox1->AutoComplete = false;
ComboBox1->AutoSearch = false;
ComboBox1->AutoDropDown = true;
ComboBox1->Columns->Add(L"Default")->Prompt = L"<i><fgcolor=808080>type something</fgcolor></i>";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(0));
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
ComboBox1->EndUpdate();
|
|
598
|
I want to fix/lock the first item in the control
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
long i = ComboBox1->ItemFromPoint[-1,-1,c,hit];
ComboBox1->LabelText = PChar(ComboBox1->Items->get_CellCaption(TVariant(i),TVariant(0)));
ComboBox1->DropDown[TNoParam()] = false;
}
ComboBox1->BeginUpdate();
ComboBox1->SearchColumnIndex = -1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->SingleEdit = true;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_LockedItemCount(Excomboboxlib_tlb::VAlignmentEnum::exTop,1);
var_Items->set_CellCaption(TVariant(var_Items->get_LockedItem(Excomboboxlib_tlb::VAlignmentEnum::exTop,0)),TVariant(0),TVariant("(no assignment)"));
var_Items->set_ItemBackColor(var_Items->get_LockedItem(Excomboboxlib_tlb::VAlignmentEnum::exTop,0),RGB(255,255,0));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant("")),TNoParam());
ComboBox1->EndUpdate();
|
|
162
|
I need to add a button in the scroll bar. Is this possible
ComboBox1->ScrollPartVisible[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exLeftB1Part] = true;
ComboBox1->ScrollPartCaption[Excomboboxlib_tlb::ScrollBarEnum::exHScroll,Excomboboxlib_tlb::ScrollPartEnum::exLeftB1Part] = L"1";
|
|
411
|
I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::ComboBox1CellStateChanged(TObject *Sender, Excomboboxlib_tlb::HCELL Cell)
{
ComboBox1->LabelText = L"Cell";
OutputDebugString( PChar(ComboBox1->Items->get_CellCaption(TVariant(0),TVariant(Cell))) );
OutputDebugString( PChar(ComboBox1->Items->get_CellState(TVariant(0),TVariant(Cell))) );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->HeaderVisible = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = -1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->Columns->Add(L"Language")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("English"));
var_Items->AddItem(TVariant("Hebrew"));
var_Items->AddItem(TVariant("Spanish"));
ComboBox1->EndUpdate();
|
|
326
|
I have multiple columns, how can I display a single edit in the control's label
ComboBox1->SingleEdit = true;
ComboBox1->Columns->Add(L"Column 1");
ComboBox1->Columns->Add(L"Column 2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(1),TVariant("SubItem 1"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2"))),TVariant(1),TVariant("SubItem 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3"))),TVariant(1),TVariant("SubItem 3"));
|
|
255
|
I have a hierarchy, how can I count the number of root items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->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"));
var_Items->AddItem(TVariant(var_Items->RootCount));
|
|
67
|
I have a hierarchy and I need to filter only root items that match, without thier childs
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exRootsWithoutChilds;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"R1";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
|