|
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 12.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( Variant::CreateObject(L"Exontrol.PropertiesList")->get_Interfaces(rs)->get_Interfaces(rs) );
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 12.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 12.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");
|
|
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();
|