|
603
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Country")->ShowIdem = L"<fgcolor gray>〃";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
ComboBox1->EndUpdate();
|
|
602
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Country")->ShowIdem = L" ";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
ComboBox1->EndUpdate();
|
|
601
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->RenderType = -1;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO") +
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" +
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="));
var_Appearance->Add(2,TVariant("CP:1 -2 0 0 0"));
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->ShowFocusRect = false;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000001;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->HeaderVisible = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"1st col");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->Filter = L"Item B";
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
ComboBox1->Columns->Add(L"2nd col");
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->ApplyFilter();
ComboBox1->EndUpdate();
|
|
600
|
How can I replace or add an icon at runtime
ComboBox1->BeginUpdate();
ComboBox1->ReplaceIcon(TVariant(String("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O") +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="),TNoParam());
ComboBox1->ReplaceIcon(TVariant("C:\\images\\favicon.ico"),TVariant(0));
ComboBox1->Columns->Add(L"Items")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
ComboBox1->Items->AddItem(TVariant("Item <img>1</img>"));
ComboBox1->EndUpdate();
|
|
599
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
ComboBox1->BeginUpdate();
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = true;
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exFilterPatternTemplate,TVariant("*<%filter%>*"));
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"1";
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();
|
|
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();
|
|
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();
|
|
596
|
Highlight the leaf items
ComboBox1->BeginUpdate();
ComboBox1->ConditionalFormats->Add(L"%CC0=0",TNoParam())->ForeColor = RGB(128,128,128);
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
var_Items->set_ExpandItem(hR,true);
ComboBox1->EndUpdate();
|
|
595
|
Highlight the parent items
ComboBox1->BeginUpdate();
ComboBox1->ConditionalFormats->Add(L"%CC0",TNoParam())->ForeColor = RGB(255,0,0);
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
var_Items->set_ExpandItem(hR,true);
ComboBox1->EndUpdate();
|
|
594
|
Highlight the item being expanded or collapsed
ComboBox1->BeginUpdate();
ComboBox1->ConditionalFormats->Add(L"%CX0",TNoParam())->Bold = true;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->HeaderHeight = 24;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaption(TVariant(hR),TVariant(1),TVariant("The root directory /"));
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
var_Items->set_ExpandItem(hR,true);
ComboBox1->EndUpdate();
|
|
593
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
// 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"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}
ComboBox1->ToolTipMargin = L"16,8";
|
|
592
|
Disable temporarily the column's sort, resize and drag and drop
ComboBox1->BeginUpdate();
ComboBox1->SortBarVisible = true;
ComboBox1->SortBarCaption = L"<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)";
ComboBox1->HeaderEnabled = false;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->Columns->Add(L"Index")->FormatColumn = L"1 index ``";
ComboBox1->Columns->Add(L"Pos")->FormatColumn = L"1 apos ``";
ComboBox1->Columns->Add(L"Edit");
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->EndUpdate();
|
|
591
|
Expandable-caption
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::ComboBox1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = 1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Default");
ComboBox1->Columns->Add(L"Select")->Visible = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("before item"))),TVariant(1),TVariant("before"));
long h = var_Items->AddItem(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj") +
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " +
"650;</a><br>+ withdraw(amount: Currency)"));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Bank Account"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("after item"))),TVariant(1),TVariant("after"));
ComboBox1->Select[TVariant(1)] = TVariant("after");
ComboBox1->EndUpdate();
|
|
590
|
Expandable-caption
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = 1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Default");
ComboBox1->Columns->Add(L"Select")->Visible = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("before item"))),TVariant(1),TVariant("before"));
long h = var_Items->AddItem(TVariant("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Bank Account"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("after item"))),TVariant(1),TVariant("after"));
ComboBox1->Select[TVariant(1)] = TVariant("after");
ComboBox1->EndUpdate();
|
|
589
|
Force hover-all feature
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exScrollHoverAll] = -1;
|
|
588
|
Disable hover-all feature (Windows 11 or greater)
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exScrollHoverAll] = RGB(1,0,0);
|
|
587
|
Display a custom tooltip
// 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(PChar(ComboBox1->ColumnFromPoint[-1,-1]),TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}
|
|
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";
|
|
585
|
How do I prevent changing the cell's state ( check-box state )
// CellStateChanging event - Fired before cell's state is about to be changed.
void __fastcall TForm1::ComboBox1CellStateChanging(TObject *Sender,Excomboboxlib_tlb::HCELL Cell,long * NewState)
{
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
NewState = var_Items->get_CellState(TNoParam(),TVariant(Cell));
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"P2");
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->PartialCheck = true;
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);
ComboBox1->EndUpdate();
|
|
584
|
How can I enable the clear-button (visible only if required and focused)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = 3;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Zero"));
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
ComboBox1->EndUpdate();
|
|
583
|
How can I enable the clear-button (visible only if focused)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = 2;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Zero"));
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
ComboBox1->EndUpdate();
|
|
582
|
Change the clear-button appearance
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant("XP:Window 19 1"));
var_Appearance->Add(2,TVariant("XP:Window 19 3"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exClearButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exClearButtonDown] = 0x2000000;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = 1;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Zero"));
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
ComboBox1->EndUpdate();
|
|
581
|
How can I enable the clear-button (always visible)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = -1;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Zero"));
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
ComboBox1->EndUpdate();
|
|
580
|
How can I enable the clear-button (visible only if required)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->IntegralHeight = true;
ComboBox1->ShowClearButton = 1;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Zero"));
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
ComboBox1->Select[TVariant(0)] = TVariant("Zero");
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();
|
|
578
|
How do I assign a database to your control, using ADO, ADOR or ADODB objects (MDB,JET)
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.Jet.OLEDB.4.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->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();
|
|
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();
|
|
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();
|
|
573
|
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
ComboBox1->Columns->Add(L"Max 2 chars")->EditMaxLength = 2;
ComboBox1->AutoSearch = false;
ComboBox1->AutoComplete = false;
|
|
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();
|
|
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();
|
|
568
|
How do I change the drop down filter icon/button (black)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(0,0,1);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(255,255,255);
ComboBox1->Description[Excomboboxlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::None2;
ComboBox1->HeaderBackColor = RGB(0,0,0);
ComboBox1->HeaderForeColor = RGB(255,255,255);
ComboBox1->HeaderVisible = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Filter");
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
var_Column->DisplayFilterButton = true;
var_Column->AllowSort = false;
var_Column->AllowDragging = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("One"));
var_Items->AddItem(TVariant("Two"));
var_Items->AddItem(TVariant("Three"));
ComboBox1->EndUpdate();
|
|
567
|
Can I customize 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"<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>";
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();
|
|
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();
|
|
565
|
Does your control support 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;
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();
|
|
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();
|
|
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();
|
|
561
|
How I can programmatically select a row (method 2)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->set_Value(TVariant("Item 2"));
ComboBox1->EndUpdate();
|
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->set_SelectItem(var_Items->get_ItemByIndex(1),true);
ComboBox1->EndUpdate();
|
|
559
|
How do I set an extra data for each item
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::ComboBox1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
long i = ComboBox1->ItemFromPoint[-1,-1,c,hit];
OutputDebugString( L"i" );
OutputDebugString( PChar(ComboBox1->Items->get_ItemData(i)) );
}
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemData(var_Items->AddItem(TVariant("method 1")),TVariant("your extra data of method 1"));
var_Items->InsertItem(0,TVariant("your extra data of method 2"),TVariant("method 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->DefaultItem = var_Items1->AddItem(TVariant("method 3"));
var_Items1->set_ItemData(0,TVariant("your extra data of method 3"));
ComboBox1->EndUpdate();
|
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
ComboBox1->BeginUpdate();
ComboBox1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"));
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesVSolid;
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 ``";
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();
|
|
557
|
Can I sort the column by check-state
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Check");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::exSortByState;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TNoParam());
var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->AddItem(TNoParam());
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();
|
|
556
|
Can I sort the column by image
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Image");
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::exSortByImage;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),3);
var_Items->AddItem(TNoParam());
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),2);
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();
|
|
555
|
How can I build a "virtual" tree using your control
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::ComboBox1BeforeExpandItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item,Variant * Cancel)
{
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemHasChildren(var_Items->InsertItem(Item,TNoParam(),TVariant("new")),true);
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->set_ItemHasChildren(var_Items->AddItem(TVariant("Item 2")),true);
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->set_Value(TVariant("Item 2"));
ComboBox1->EndUpdate();
|
|
554
|
How can I display UNICODE characters
ComboBox1->BeginUpdate();
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
OLE Automation
TypeLib: stdole2.tlb
to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr var_StdFont = ComboBox1->Font;
var_StdFont->Name = L"Arial Unicode";
var_StdFont->Size = TVariant(long(22));
ComboBox1->HeaderVisible = false;
ComboBox1->DefaultItemHeight = 48;
ComboBox1->Columns->Add(L"")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
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->set_FormatCell(TVariant(var_Items->AddItem(TVariant(ComboBox1->Version))),TVariant(0),L"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ");
ComboBox1->EndUpdate();
|
|
553
|
How do I display the position of the item with 0-padding
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. ` + value";
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->AddItem(TVariant("Item D"));
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();
|
|
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"));
|
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it
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"ADODB.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::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockReadOnly,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10311));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->EnsureVisibleItem(var_Items->FocusItem);
ComboBox1->EndUpdate();
|
|
549
|
How can I create a new ADO recordset
ComboBox1->BeginUpdate();
/*
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->Fields->Append(L"A",Adodb_tlb::DataTypeEnum::adBSTR,0,TNoParam(),TNoParam());
rs->Fields->Append(L"B",Adodb_tlb::DataTypeEnum::adBSTR,0,TNoParam(),TNoParam());
rs->Open(TNoParam(),TNoParam(),TNoParam(),TNoParam(),0);
rs->AddNew(TNoParam(),TNoParam());
rs->Fields->get_Item(TVariant("A"))->set_Value(TVariant("Item A.1"));
rs->Fields->get_Item(TVariant("B"))->set_Value(TVariant("Item B.1"));
rs->Update(TNoParam(),TNoParam());
rs->AddNew(TNoParam(),TNoParam());
rs->Fields->get_Item(TVariant("A"))->set_Value(TVariant("Item A.2"));
rs->Fields->get_Item(TVariant("B"))->set_Value(TVariant("Item B.2"));
rs->Update(TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant("Item A.1"));
ComboBox1->EndUpdate();
|
|
548
|
Do do I get the DAO version I have installed
OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.35")->Version->Version );
OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.36")->Version->Version );
OutputDebugString( Variant::CreateObject(L"DAO.DBEngine.120")->Version->Version );
|
|
547
|
How do I get a list of interfaces the object implemenets
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft Office 15.0 Access database engine Object Library
TypeLib: ACEDAO.DLL
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
OutputDebugString( PChar(Variant::CreateObject(L"Exontrol.PropertiesList")) );
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
546
|
Do do I get the ADO version I have installed
OutputDebugString( L"ADO Version:" );
OutputDebugString( Variant::CreateObject(L"ADODB.Connection")->Version->Version );
|
|
545
|
DAO, ACCDB, 120
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft Office 15.0 Access database engine Object Library
TypeLib: ACEDAO.DLL
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
544
|
DAO, MDB, 120
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft Office 15.0 Access database engine Object Library
TypeLib: ACEDAO.DLL
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
543
|
DAO, MDB
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft DAO 3.6 Object Library
TypeLib: dao360.dll
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.36");
Dao_tlb::RecordsetPtr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
542
|
ADODB, ACCDB, x64
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"ADODB.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::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockReadOnly,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
541
|
ADOR, ACCDB
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->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
540
|
ADODB, MDB
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"ADODB.Recordset");
rs->Open(TVariant("Orders"),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->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
539
|
ADOR, MDB
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.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
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();
|
|
536
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
ComboBox1->BeginUpdate();
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;
var_Items->set_CellSingleLine(TVariant(var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."))),TVariant(0),Excomboboxlib_tlb::CellSingleLineEnum::exCaptionBreakWrap);
var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
ComboBox1->EndUpdate();
|
|
535
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->ColumnAutoResize = false;
ComboBox1->ScrollBySingleLine = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
var_Column->Width = 128;
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
var_Items->AddItem(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line."));
ComboBox1->EndUpdate();
|
|
534
|
Export Data in HTML format
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
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("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPromptType = Excomboboxlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Excomboboxlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = ComboBox1->ConditionalFormats;
var_ConditionalFormats->Add(L"%0 like `*parent*`",TVariant("parent"))->BackColor = RGB(192,192,192);
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `*child*`",TVariant("child"));
var_ConditionalFormat->ForeColor = RGB(255,128,128);
var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%0 like `*B*`",TVariant("b"));
var_ConditionalFormat1->ForeColor = RGB(0,0,255);
var_ConditionalFormat1->Bold = true;
var_ConditionalFormat1->Italic = true;
var_ConditionalFormat1->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value");
var_Column->Width = 128;
var_Column->HTMLCaption = L"<b>VA</b><r>sko";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos");
var_Column1->FormatColumn = L"0 apos ``";
var_Column1->AllowSort = false;
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor)));
var_Column1->Position = 0;
Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos");
var_Column2->FormatColumn = L"0 rpos ``";
var_Column2->AllowSort = false;
var_Column2->Position = 1;
Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index");
var_Column3->FormatColumn = L"0 index ``";
var_Column3->DisplayFilterButton = true;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
var_Column3->Position = 2;
Excomboboxlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1");
var_Column4->FormatColumn = L"0 index `A-Z`";
var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IColumnPtr var_Column5 = var_Columns->Add(L"Data 2");
var_Column5->FormatColumn = L"0 index `AB` replace `A` with `<off -4>A</off>`";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
Excomboboxlib_tlb::IColumnPtr var_Column6 = var_Columns->Add(L"Data 3");
var_Column6->FormatColumn = L"0 index `CDC` replace `D` with `<b>D</b>`";
var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("ParentA"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child A"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child B"));
var_Items->set_CellState(TVariant(h),TVariant(4),1);
var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child C"))),TVariant(5),RGB(0,255,0));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant("Item A"));
h = var_Items->AddItem(TVariant("ParentB"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(5),RGB(0,255,0));
var_Items->set_CellState(TVariant(h),TVariant(5),1);
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
var_Items->AddItem(TVariant("Item D"));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
String sFile = "c:/temp/export.html";
ComboBox1->Export(TVariant(sFile),TVariant("vis"));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft Internet Controls
TypeLib: ieframe.dll
to define the namespace: Shdocvw_tlb
*/
//#include "SHDOCVW_TLB.h"
Shdocvw_tlb::IWebBrowser2Ptr var_ShellBrowserWindow = Variant::CreateObject(L"InternetExplorer.Application");
var_ShellBrowserWindow->Navigate2(sFile,TNoParam(),TNoParam(),TNoParam(),TNoParam());
|
|
533
|
Export Data in CSV format
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
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("(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->FilterBarPromptType = Excomboboxlib_tlb::FilterPromptEnum::exFilterPromptContainsAny;
Excomboboxlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = ComboBox1->ConditionalFormats;
var_ConditionalFormats->Add(L"%0 like `*parent*`",TVariant("parent"))->BackColor = RGB(192,192,192);
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `*child*`",TVariant("child"));
var_ConditionalFormat->ForeColor = RGB(255,128,128);
var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%0 like `*B*`",TVariant("b"));
var_ConditionalFormat1->ForeColor = RGB(0,0,255);
var_ConditionalFormat1->Bold = true;
var_ConditionalFormat1->Italic = true;
var_ConditionalFormat1->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum::exFormatToColumns;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value");
var_Column->Width = 128;
var_Column->HTMLCaption = L"<b>VA</b><r>sko";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos");
var_Column1->FormatColumn = L"0 apos ``";
var_Column1->AllowSort = false;
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Excomboboxlib_tlb::DefColumnEnum::exCellForeColor)));
var_Column1->Position = 0;
Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos");
var_Column2->FormatColumn = L"0 rpos ``";
var_Column2->AllowSort = false;
var_Column2->Position = 1;
Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index");
var_Column3->FormatColumn = L"0 index ``";
var_Column3->DisplayFilterButton = true;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
var_Column3->Position = 2;
Excomboboxlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1");
var_Column4->FormatColumn = L"0 index `A-Z`";
var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IColumnPtr var_Column5 = var_Columns->Add(L"Data 2");
var_Column5->FormatColumn = L"0 index `AB` replace `A` with `<off -4>A</off>`";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
Excomboboxlib_tlb::IColumnPtr var_Column6 = var_Columns->Add(L"Data 3");
var_Column6->FormatColumn = L"0 index `CDC` replace `D` with `<b>D</b>`";
var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("ParentA"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child A"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child B"));
var_Items->set_CellState(TVariant(h),TVariant(4),1);
var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child C"))),TVariant(5),RGB(0,255,0));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant("Item A"));
h = var_Items->AddItem(TVariant("ParentB"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellBackColor(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"))),TVariant(5),RGB(0,255,0));
var_Items->set_CellState(TVariant(h),TVariant(5),1);
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
var_Items->AddItem(TVariant("Item D"));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
OutputDebugString( PChar(ComboBox1->Export(TVariant(""),TVariant("vis"))) );
|
|
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();
|
|
531
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = true;
ComboBox1->DefaultItemHeight = 20;
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m") +
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Position");
var_Column1->FormatColumn = L"1 rindex ``";
var_Column1->Visible = false;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam());
var_ConditionalFormat->BackColor = 0x1000000;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
ComboBox1->EndUpdate();
|
|
530
|
How can I specify alternate background colors for each root item, similar with BackColorAlternate
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Position");
var_Column1->FormatColumn = L"( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )";
var_Column1->Visible = false;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam());
var_ConditionalFormat->BackColor = RGB(240,240,240);
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"));
h = var_Items->AddItem(TVariant("Root 3"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
ComboBox1->EndUpdate();
|
|
529
|
FilterBarCaption ALL Keyword ( sample 2, result )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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("(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[") +
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" +
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" +
" + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
528
|
FilterBarCaption ALL Keyword ( sample 1 )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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"all";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
527
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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("(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace ") +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
526
|
FilterBarCaption ALLUI Keyword ( sample 1 )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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"allui";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
525
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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("(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava") +
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" +
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" +
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
524
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
TVariant i = TVariant(ComboBox1->FormatABC(L"value + 1",ComboBox1->Items->get_ItemToIndex(Item),TNoParam(),TNoParam()));
ComboBox1->Items->set_CellImage(TVariant(Item),TVariant(3),i);
}
ComboBox1->BeginUpdate();
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
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"Check");
var_Column2->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Image");
var_Column3->DisplayFilterButton = true;
var_Column3->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exImage;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowExclude | Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos");
var_Column4->AllowSizing = false;
var_Column4->AllowSort = false;
var_Column4->Width = 32;
var_Column4->FormatColumn = L"1 apos ``";
var_Column4->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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Sub-Item B"));
var_Items->set_CellState(TVariant(h),TVariant(2),1);
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 + ` ` + available";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column5->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column5->Filter = L"Item A|Item B";
ComboBox1->Columns->get_Item(TVariant(2))->Filter = L"1";
ComboBox1->ApplyFilter();
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();
|
|
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();
|
|
519
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
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->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarPrompt = PChar(ComboBox1->FormatABC(L"`<b>` + value",TVariant(ComboBox1->FilterBarPrompt),TNoParam(),TNoParam()));
ComboBox1->FilterBarCaption = TVariant(String("`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount ") +
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
ComboBox1->EndUpdate();
|
|
518
|
How can I get the number of results being shown in the control's filter bar (sample 3)
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->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = TVariant(String("`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount ") +
"+ 1) + ` result(s)` ) : ``)");
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | 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 A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
517
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
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->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = L"`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | 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 A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
516
|
How can I get the number of results being shown in the control's filter bar (sample 1)
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->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | 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 A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
515
|
FilterBarCaption Predefined Keywords
// AfterExpandItem event - Fired after an item is expanded (collapsed).
void __fastcall TForm1::ComboBox1AfterExpandItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
ComboBox1->Refresh();
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Check");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exCheck;
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"));
long h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellState(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Sub-Item B1"))),TVariant(1),1);
var_Items->InsertItem(h,TNoParam(),TVariant("Sub-Item B2"));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exItemsWithChilds;
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = TVariant(String("`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</") +
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" +
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" +
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" +
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" +
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" +
" `</fgcolor>`");
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column2->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column2->Filter = L"Item A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
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->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = L"`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value";
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | 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 A|Item B";
ComboBox1->ApplyFilter();
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();
|
|
511
|
How can I change the visual appearance of the filter bar's close button (EBN)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ") +
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" +
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" +
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" +
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" +
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" +
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" +
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" +
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" +
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" +
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"));
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->Background[Excomboboxlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x1000000;
ComboBox1->EndUpdate();
|
|
510
|
How can I change the visual appearance of the filter bar's close button (solid)
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] = RGB(255,0,0);
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();
|
|
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();
|
|
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();
|
|
506
|
How can I display the control's filter on a single line
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) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | 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 A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
505
|
How can I display the control's filter on a single line (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->FilterBarCaption = L"`<r>` + value";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | 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 A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
504
|
How can I get the number of results after a filter is applied
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
ComboBox1->ClearFilter();
}
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::ComboBox1FilterChange(TObject *Sender)
{
OutputDebugString( L"Items.MatchItemCount" );
OutputDebugString( PChar(ComboBox1->Items->MatchItemCount) );
OutputDebugString( PChar(ComboBox1->FormatABC(L"value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",ComboBox1->Items->MatchItemCount,TNoParam(),TNoParam())) );
}
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"Item";
ComboBox1->EndUpdate();
|
|
503
|
How can I programmatically clear the control's filter
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
ComboBox1->ClearFilter();
}
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();
|
|
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();
|