How-To C++ Builder (exlist)

562	ADOR, MDB (JET) List1->BeginUpdate(); List1->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\\ExList\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0); List1->DataSource = (IDispatch*)rs; List1->EndUpdate();
561	Highlight the match once the filter is applied // FilterChange event - Occurs when filter was changed. void __fastcall TForm1::List1FilterChange(TObject Sender) { TVariant format = TVariant(List1->FormatABC(L"`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(List1->FilterBarPromptPattern),TNoParam(),TNoParam())); List1->Columns->get_Item(TVariant(0))->FormatColumn* = L"format"; List1->Columns->get_Item(TVariant(1))->FormatColumn = L"format"; List1->Columns->get_Item(TVariant(2))->FormatColumn = L"format"; } List1->BeginUpdate(); List1->SelBackColor = List1->BackColor; List1->SelForeColor = List1->ForeColor; List1->ColumnAutoResize = true; List1->ContinueColumnScroll = false; List1->MarkSearchColumn = false; List1->SearchColumnIndex = 1; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->HeaderHeight = 23; List1->BackColorLevelHeader = List1->BackColor; List1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->FilterBarBackColor = List1->BackColor; List1->FilterBarPromptPattern = L"and"; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Name"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column->FormatColumn = L"lower(value)"; Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Title"); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column1->FormatColumn = L"lower(value)"; Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"City"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column2->FormatColumn = L"lower(value)"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h0 = var_Items->Add(TVariant("Nancy Davolio")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("Seattle")); h0 = var_Items->Add(TVariant("Andrew Fuller")); var_Items->set_Caption(h0,TVariant(1),TVariant("Vice President, Sales")); var_Items->set_Caption(h0,TVariant(2),TVariant("Tacoma")); var_Items->set_SelectItem(h0,true); h0 = var_Items->Add(TVariant("Janet Leverling")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("Kirkland")); h0 = var_Items->Add(TVariant("Margaret Peacock")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("Redmond")); h0 = var_Items->Add(TVariant("Steven Buchanan")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Manager")); var_Items->set_Caption(h0,TVariant(2),TVariant("London")); h0 = var_Items->Add(TVariant("Michael Suyama")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("London")); h0 = var_Items->Add(TVariant("Robert King")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("London")); h0 = var_Items->Add(TVariant("Laura Callahan")); var_Items->set_Caption(h0,TVariant(1),TVariant("Inside Sales Coordinator")); var_Items->set_Caption(h0,TVariant(2),TVariant("Seattle")); h0 = var_Items->Add(TVariant("Anne Dodsworth")); var_Items->set_Caption(h0,TVariant(1),TVariant("Sales Representative")); var_Items->set_Caption(h0,TVariant(2),TVariant("London")); List1->EndUpdate();
560	Re-order the cell's caption, icons and images/pictures List1->BeginUpdate(); List1->ColumnAutoResize = true; List1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") + "lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" + "cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"ToLeft"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"ToRight"); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check")); List1->DefaultItemHeight = 32; List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exVLines; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h = var_Items->Add(TVariant("Caption")); var_Items->set_CellImage(h,TVariant(0),2); var_Items->set_CellImages(h,TVariant(0),TVariant("1,2")); var_Items->set_CellPicture(h,TVariant(0),List1->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_Caption(h,TVariant(1),TVariant(var_Items->get_Caption(h,TVariant(0)))); var_Items->set_CellHAlignment(h,TVariant(1),Exlistlib_tlb::AlignmentEnum::RightAlignment); var_Items->set_CellImage(h,TVariant(1),var_Items->get_CellImage(h,TVariant(0))); var_Items->set_CellImages(h,TVariant(1),TVariant("2,1")); var_Items->set_CellPicture(h,TVariant(1),var_Items->get_CellPicture(h,TVariant(0))); h = var_Items->Add(TVariant("<b>HTML</b> <off 4>Caption")); var_Items->set_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML); var_Items->set_CellImage(h,TVariant(0),2); var_Items->set_CellImages(h,TVariant(0),TVariant("1,2")); var_Items->set_CellPicture(h,TVariant(0),List1->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_Caption(h,TVariant(1),TVariant(var_Items->get_Caption(h,TVariant(0)))); var_Items->set_CaptionFormat(h,TVariant(1),Exlistlib_tlb::CaptionFormatEnum::exHTML); var_Items->set_CellHAlignment(h,TVariant(1),Exlistlib_tlb::AlignmentEnum::RightAlignment); var_Items->set_CellImage(h,TVariant(1),var_Items->get_CellImage(h,TVariant(0))); var_Items->set_CellImages(h,TVariant(1),TVariant("2,1")); var_Items->set_CellPicture(h,TVariant(1),var_Items->get_CellPicture(h,TVariant(0))); List1->EndUpdate();
559	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) // AddColumn event - Fired after a new column is added. void __fastcall TForm1::List1AddColumn(TObject Sender,Exlistlib_tlb::IColumn Column) { // Column.Def(48) = 2 // Column.Def(49) = 2 } List1->BeginUpdate(); List1->ImageSize = 32; List1->DefaultItemHeight = 36; List1->HeaderHeight = List1->DefaultItemHeight; List1->SortBarHeight = List1->DefaultItemHeight; List1->Font->Size = TVariant(long(16)); List1->FilterBarFont->Size = TVariant(List1->Font->Size); List1->ToolTipFont->Size = TVariant(List1->Font->Size); List1->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==")); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->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==")); List1->BackColorHeader = 0x4c6c6c6; List1->SelBackColor = 0x4000000; List1->SelForeColor = RGB(0,0,1); List1->CheckImage[Exlistlib_tlb::CheckStateEnum::Unchecked] = 16777216; List1->CheckImage[Exlistlib_tlb::CheckStateEnum::Checked] = 33554432; List1->CheckImage[Exlistlib_tlb::CheckStateEnum::PartialChecked] = 50331648; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = List1->SelBackColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = List1->SelForeColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter] = List1->BackColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exForeColorFilter] = List1->ForeColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->ShowFocusRect = false; List1->SortBarVisible = true; List1->BackColorSortBar = List1->BackColor; List1->BackColorLevelHeader = List1->BackColor; List1->FilterBarDropDownHeight = 1; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Check"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column->Width = 128; var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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 = Exlistlib_tlb::AlignmentEnum::CenterAlignment; var_Column1->HeaderAlignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Image"); var_Column2->DisplayFilterButton = true; var_Column2->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column2->Width = 128; var_Column2->HeaderImage = 1; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Images"); var_Column3->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column3->Width = 196; var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images"; List1->Columns->get_Item(TVariant("Pos"))->Position = 3; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h = var_Items->Add(TVariant("Child A")); var_Items->set_CellImage(h,TVariant(2),1); var_Items->set_CellImages(h,TVariant(3),TVariant("1,2,3")); var_Items->set_Caption(h,TVariant(3),TVariant("123")); h = var_Items->Add(TVariant("Child B")); var_Items->set_CellState(h,TVariant(0),1); var_Items->set_CellImage(h,TVariant(2),3); var_Items->set_CellImages(h,TVariant(3),TVariant("2,3,1")); var_Items->set_Caption(h,TVariant(3),TVariant("231")); var_Items->set_SelectItem(h,true); h = var_Items->Add(TVariant("Child C")); var_Items->set_CellImage(h,TVariant(2),2); var_Items->set_CellState(h,TVariant(3),1); var_Items->set_Caption(h,TVariant(3),TVariant("312")); var_Items->set_CellImages(h,TVariant(3),TVariant("3,1,2")); List1->EndUpdate();
558	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) // AddColumn event - Fired after a new column is added. void __fastcall TForm1::List1AddColumn(TObject Sender,Exlistlib_tlb::IColumn Column) { // Column.Def(48) = 2 // Column.Def(49) = 2 } List1->BeginUpdate(); List1->ImageSize = 16; List1->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==")); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->VisualAppearance; var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" + "UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" + "3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" + "YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" + "mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" + "oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" + "Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" + "FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")); List1->BackColorHeader = 0x4c6c6c6; List1->SelBackColor = 0x4000000; List1->SelForeColor = RGB(0,0,1); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = List1->SelBackColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = List1->SelForeColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter] = List1->BackColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exForeColorFilter] = List1->ForeColor; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->ShowFocusRect = false; List1->SortBarVisible = true; List1->BackColorSortBar = List1->BackColor; List1->BackColorLevelHeader = List1->BackColor; List1->FilterBarDropDownHeight = 1; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Check"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column->Width = 128; var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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 = Exlistlib_tlb::AlignmentEnum::CenterAlignment; var_Column1->HeaderAlignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Image"); var_Column2->DisplayFilterButton = true; var_Column2->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column2->Width = 128; var_Column2->HeaderImage = 1; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Images"); var_Column3->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column3->Width = 196; var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images"; List1->Columns->get_Item(TVariant("Pos"))->Position = 3; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h = var_Items->Add(TVariant("Child A")); var_Items->set_CellImage(h,TVariant(2),1); var_Items->set_CellImages(h,TVariant(3),TVariant("1,2,3")); var_Items->set_Caption(h,TVariant(3),TVariant("123")); h = var_Items->Add(TVariant("Child B")); var_Items->set_CellState(h,TVariant(0),1); var_Items->set_CellImage(h,TVariant(2),3); var_Items->set_CellImages(h,TVariant(3),TVariant("2,3,1")); var_Items->set_Caption(h,TVariant(3),TVariant("231")); var_Items->set_SelectItem(h,true); h = var_Items->Add(TVariant("Child C")); var_Items->set_CellImage(h,TVariant(2),2); var_Items->set_CellState(h,TVariant(3),1); var_Items->set_Caption(h,TVariant(3),TVariant("312")); var_Items->set_CellImages(h,TVariant(3),TVariant("3,1,2")); List1->EndUpdate();
557	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 is added. void __fastcall TForm1::List1AddColumn(TObject Sender,Exlistlib_tlb::IColumn Column) { } List1->BeginUpdate(); List1->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\\ExList\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0); List1->DataSource = (IDispatch*)rs; List1->Columns->get_Item(TVariant("ShipVia"))->Position = 2; List1->EndUpdate();
556	Is it possible to set from code, a column sort without being inserted in the sortbar List1->BeginUpdate(); List1->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\\ExList\\Sample\\Access\\SAMPLE.ACCDB"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0); List1->DataSource = (IDispatch)rs; List1->SortBarVisible = true; List1->Layout* = L"singlesort=\"C1:1\""; List1->EndUpdate();
555	Is it possible to highligth the match while a filter is applied // AddColumn event - Fired after a new column is added. void __fastcall TForm1::List1AddColumn(TObject Sender,Exlistlib_tlb::IColumn Column) { // Column.Def(17) = 1 } // FilterChange event - Occurs when filter was changed. void __fastcall TForm1::List1FilterChange(TObject Sender) { TVariant format = TVariant(List1->FormatABC(L"`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(List1->FilterBarPromptPattern),TNoParam(),TNoParam())); List1->Columns->get_Item(TVariant(0))->FormatColumn* = L"format"; List1->Columns->get_Item(TVariant(1))->FormatColumn = L"format"; } List1->BeginUpdate(); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exVLines; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->Columns->Add(L"Col 1"); List1->Columns->Add(L"Col 2"); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("219 Smith")),TVariant(1),TVariant("Ignacio 1234")); var_Items->set_Caption(var_Items->Add(TVariant("1666 County Road 309A")),TVariant(1),TVariant("897 Manassa")); var_Items->set_Caption(var_Items->Add(TVariant("38 Lone Pine")),TVariant(1),TVariant("Durango 11")); var_Items->set_Caption(var_Items->Add(TVariant("612 Jachim Street")),TVariant(1),TVariant("Lamar 222")); List1->FilterBarPromptPattern = L"1"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->FilterBarPromptType = Exlistlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive \| Exlistlib_tlb::FilterPromptEnum::exFilterPromptContainsAll; List1->EndUpdate();
554	Is it possible to highlight the column's header once a filter is applied List1->BeginUpdate(); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->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")); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; List1->HeaderHeight = 28; List1->BackColorHeader = RGB(255,255,255); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->HeaderVisible = true; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; var_Columns->Add(L"C1")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2"); var_Column->DisplayFilterButton = true; var_Column->Filter = L"Item 2"; var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Columns->Add(L"C3")->DisplayFilterButton = true; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h = var_Items->Add(TVariant("Item 1")); var_Items->set_Caption(h,TVariant(1),TVariant("Item 2")); var_Items->set_Caption(h,TVariant(2),TVariant("Item 3")); h = var_Items->Add(TVariant("Item 4")); var_Items->set_Caption(h,TVariant(1),TVariant("Item 5")); var_Items->set_Caption(h,TVariant(2),TVariant("Item 6")); List1->ApplyFilter(); List1->EndUpdate();
553	Is it possible to show the filterbar on top of the rows List1->BeginUpdate(); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarTop; List1->HeaderHeight = 24; List1->FilterBarHeight = List1->HeaderHeight; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Flat; List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->GridLineStyle = Exlistlib_tlb::GridLinesStyleEnum::exGridLinesGeometric; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Column"); var_Column->DisplayFilterButton = true; var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern; var_Column->Filter = L"B*"; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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 = Exlistlib_tlb::SortTypeEnum::SortNumeric; var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("A.1")); var_Items->Add(TVariant("A.2")); var_Items->Add(TVariant("B.1")); var_Items->Add(TVariant("B.2")); var_Items->Add(TVariant("B.3")); var_Items->Add(TVariant("C")); List1->ApplyFilter(); List1->EndUpdate();
552	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable) List1->BeginUpdate(); List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; var_Columns->Add(L"Item"); Exlistlib_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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->EndUpdate();
551	Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header List1->BeginUpdate(); List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; var_Columns->Add(L"Item"); Exlistlib_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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->EndUpdate();
550	How do I get notified once the user clicks the cell's button // CellButtonClick event - Fired after the user clicks the cell's button. void __fastcall TForm1::List1CellButtonClick(TObject Sender,long ItemIndex,long ColIndex) { Exlistlib_tlb::IItemsPtr var_Items = List1->Items; OutputDebugString( PChar(var_Items->get_Caption(ItemIndex,TVariant(0))) ); } List1->BeginUpdate(); List1->Columns->Add(L"Item"); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"..."); var_Column->set_Def*(Exlistlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true)); var_Column->Alignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment; var_Column->HeaderAlignment = Exlistlib_tlb::AlignmentEnum::CenterAlignment; var_Column->FormatColumn = L"` ... `"; var_Column->Width = 32; var_Column->AllowSizing = false; var_Column->Position = 0; List1->SelBackMode = Exlistlib_tlb::BackModeEnum::exTransparent; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item 1")); var_Items->Add(TVariant("Item 2")); var_Items->Add(TVariant("Item 3")); List1->EndUpdate();
549	How do I set an extra data for each item // MouseMove event - Occurs when the user moves the mouse. void __fastcall TForm1::List1MouseMove(TObject Sender,short Button,short Shift,int X,int Y) { long i = List1->ItemFromPoint[-1,-1,c,hit]; OutputDebugString( L"i" ); OutputDebugString( PChar(List1->Items->get_ItemData(i)) ); } List1->BeginUpdate(); List1->ColumnAutoResize = true; List1->Columns->Add(L"Default"); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_ItemData*(var_Items->Add(TVariant("method")),TVariant("your extra data of method")); List1->EndUpdate();
548	I do not like to specify the item padding for every column I add. The question is how can I do it automatically List1->BeginUpdate(); List1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")); List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->GridLineStyle = Exlistlib_tlb::GridLinesStyleEnum::exGridLinesVSolid; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; var_Columns->Add(L"Item"); Exlistlib_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 ``"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->EndUpdate();
547	Can I sort the column by check-state List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Check"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column->SortType = Exlistlib_tlb::SortTypeEnum::exSortByState; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TNoParam()); var_Items->set_CellState(var_Items->Add(TNoParam()),TVariant(0),1); var_Items->set_CellState(var_Items->Add(TNoParam()),TVariant(0),1); var_Items->Add(TNoParam()); List1->Columns->get_Item(TVariant(0))->SortOrder = Exlistlib_tlb::SortOrderEnum::SortAscending; List1->EndUpdate();
546	Can I sort the column by image List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Image"); var_Column->SortType = Exlistlib_tlb::SortTypeEnum::exSortByImage; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_CellImage(var_Items->Add(TNoParam()),TVariant(0),3); var_Items->Add(TNoParam()); var_Items->set_CellImage(var_Items->Add(TNoParam()),TVariant(0),1); var_Items->set_CellImage(var_Items->Add(TNoParam()),TVariant(0),2); List1->Columns->get_Item(TVariant(0))->SortOrder = Exlistlib_tlb::SortOrderEnum::SortAscending; List1->EndUpdate();
545	How can I display UNICODE characters List1->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 = List1->Font; var_StdFont->Name = L"Arial Unicode"; var_StdFont->Size = TVariant(long(22)); List1->HeaderVisible = false; List1->DefaultItemHeight = 48; List1->Columns->Add(L"")->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Ӓӓ")); var_Items->Add(TVariant("ᦜᦝ;ᦞ")); var_Items->Add(TVariant("ɮɭ;ɯ")); var_Items->Add(TVariant("勳勴勵勶")); var_Items->set_FormatCell(var_Items->Add(TVariant(List1->Version)),TVariant(0),L"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "); List1->EndUpdate();
544	How do I display the position of the item with 0-padding List1->BeginUpdate(); List1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. ` + value"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); var_Items->Add(TVariant("Item D")); List1->EndUpdate();
543	I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do List1->BeginUpdate(); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->VisualAppearance; var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") + "LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" + "KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" + "PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" + "b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" + "GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" + "ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" + "sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" + "pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" + "MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" + "4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")); var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN") + "C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" + "aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" + "aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" + "BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" + "EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")); List1->BackColorHeader = 0x1000000; List1->ForeColorHeader = RGB(128,128,128); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(255,255,255); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(0,0,1); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = 0x1ff8000; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = RGB(240,240,240); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; List1->HeaderHeight = 24; List1->BackColorLevelHeader = List1->BackColor; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Filter"); var_Column->DisplayFilterButton = true; var_Column->DisplayFilterPattern = false; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(2)); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(2)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("A")); var_Items->Add(TVariant("B")); var_Items->Add(TVariant("C")); var_Items->Add(TVariant("D")); List1->EndUpdate();
542	Type of wraps the cell's caption support (Sample 2) List1->BeginUpdate(); List1->HeaderSingleLine = false; List1->HeaderHeight = 36; List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->ColumnAutoResize = false; List1->ScrollBySingleLine = true; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Single-Line (exCaptionSingleLine)"); var_Column->Width = 96; var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(-1)); Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Word-Wrap (exCaptionWordWrap)"); var_Column1->Width = 96; var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(0)); var_Column1->FormatColumn = L"%0"; Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Break-Wrap (exCaptionBreakWrap)"); var_Column2->Width = 96; var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1)); var_Column2->FormatColumn = L"%0"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(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->Add(TVariant("This is the <b>first</b> line.\\r\\nThis is the <b>second</b> line.\\r\\nThis is the <b>third</b> line.")); List1->EndUpdate();
541	Type of wraps the cell's caption support (Sample 1) List1->BeginUpdate(); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->ColumnAutoResize = false; List1->ScrollBySingleLine = true; List1->Columns->Add(L"Default")->Width = 128; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; long h = var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); h = var_Items->Add(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_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML); h = var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); var_Items->set_CellSingleLine(h,TVariant(0),Exlistlib_tlb::CellSingleLineEnum::exCaptionWordWrap); h = var_Items->Add(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_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML); var_Items->set_CellSingleLine(h,TVariant(0),Exlistlib_tlb::CellSingleLineEnum::exCaptionWordWrap); h = var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); var_Items->set_CellSingleLine(h,TVariant(0),Exlistlib_tlb::CellSingleLineEnum::exCaptionBreakWrap); h = var_Items->Add(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_CaptionFormat(h,TVariant(0),Exlistlib_tlb::CaptionFormatEnum::exHTML); var_Items->set_CellSingleLine(h,TVariant(0),Exlistlib_tlb::CellSingleLineEnum::exCaptionBreakWrap); List1->EndUpdate();
540	Can I break the cell's caption using the line break <br> or \r\n (Sample 2) List1->BeginUpdate(); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->ColumnAutoResize = false; List1->ScrollBySingleLine = true; List1->Columns->Add(L"Default")->Width = 128; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_CellSingleLine(var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")),TVariant(0),Exlistlib_tlb::CellSingleLineEnum::exCaptionBreakWrap); var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); List1->EndUpdate();
539	Can I break the cell's caption using the line break <br> or \r\n (Sample 1) List1->BeginUpdate(); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->ColumnAutoResize = false; List1->ScrollBySingleLine = true; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Default"); var_Column->Width = 128; var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(1)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); var_Items->Add(TVariant("This is the first line.\\r\\nThis is the second line.\\r\\nThis is the third line.")); List1->EndUpdate();
538	How can I change the visual appearance/color of the Filter For ... field List1->BeginUpdate(); List1->BackColorHeader = RGB(1,0,0); List1->ForeColorHeader = RGB(255,255,255); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter] = List1->BackColorHeader; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exForeColorFilter] = List1->ForeColorHeader; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = RGB(240,240,240); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Bump; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Items"); var_Column->FilterOnType = true; var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exNoItems; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item 1")); var_Items->Add(TVariant("Item 2")); var_Items->Add(TVariant("Item 3")); List1->EndUpdate();
537	How can I display the cell's caption without spaces on both sides List1->BeginUpdate(); List1->ColumnAutoResize = true; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Default"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column->FormatColumn = L"((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("")); var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant(" Item B")); var_Items->Add(TVariant(" Item C ")); List1->EndUpdate();
536	How can I highlight the spaces within the column (sample 2) List1->BeginUpdate(); List1->ColumnAutoResize = true; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Default"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column->FormatColumn = L"`'` + ( value replace ` ` with `_` ) + `'`"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("")); var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant(" Item B")); var_Items->Add(TVariant(" Item C ")); List1->EndUpdate();
535	How can I highlight the spaces within the column (sample 1) List1->BeginUpdate(); List1->ColumnAutoResize = true; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Default"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column->FormatColumn = L"len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("")); var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant(" Item B")); var_Items->Add(TVariant(" Item C ")); List1->EndUpdate();
534	How can I change the visual aspect of the drop down filter-calendar List1->BeginUpdate(); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(0,0,1); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(255,255,255); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDateScrollRange] = RGB(255,255,255); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDateHeader] = List1->Background[Exlistlib_tlb::BackgroundPartEnum::exBackColorFilter]; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exDateScrollThumb] = RGB(128,128,128); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Date"); var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exDate; var_Column->DisplayFilterButton = true; var_Column->DisplayFilterDate = true; var_Column->DisplayFilterPattern = false; List1->EndUpdate();
533	Export Data in HTML format List1->BeginUpdate(); List1->BackColorAlternate = RGB(240,240,240); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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)`) )))"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->FilterBarPromptType = Exlistlib_tlb::FilterPromptEnum::exFilterPromptContainsAny; Exlistlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = List1->ConditionalFormats; var_ConditionalFormats->Add(L"%0 like `AA`",TVariant("aa"))->BackColor = RGB(192,192,192); Exlistlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `D`",TVariant("d")); var_ConditionalFormat->ForeColor = RGB(255,128,128); var_ConditionalFormat->ApplyTo = Exlistlib_tlb::FormatApplyToEnum::exFormatToColumns; Exlistlib_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 = Exlistlib_tlb::FormatApplyToEnum::exFormatToColumns; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value"); var_Column->Width = 128; var_Column->HTMLCaption = L"<b>VA</b><r>sko"; Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos"); var_Column1->FormatColumn = L"0 apos ``"; var_Column1->AllowSort = false; var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Exlistlib_tlb::DefColumnEnum::exCellForeColor))); var_Column1->Position = 0; Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos"); var_Column2->FormatColumn = L"0 rpos ``"; var_Column2->AllowSort = false; var_Column2->Position = 1; Exlistlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index"); var_Column3->FormatColumn = L"0 index ``"; var_Column3->DisplayFilterButton = true; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowCheckBox; var_Column3->Position = 2; Exlistlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1"); var_Column4->FormatColumn = L"0 index `A-Z`"; var_Column4->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); Exlistlib_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(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false)); var_Column5->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column5->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true)); Exlistlib_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(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); var_Items->set_CellState(2,TVariant(4),1); var_Items->Add(TVariant("Item AA")); var_Items->Add(TVariant("Item BB")); var_Items->Add(TVariant("Item CC")); var_Items->set_CellState(5,TVariant(5),1); var_Items->Add(TVariant("Item D")); var_Items->Add(TVariant("Item EE")); var_Items->Add(TVariant("Item FFF")); List1->EndUpdate(); String sFile = "c:/temp/export.html"; List1->Export(TVariant(sFile),TVariant("vis")); /* Select the Component\Import Component...\Import a Type Library, to import the following Type Library: Microsoft Internet Controls TypeLib: ieframe.dll to define the namespace: Shdocvw_tlb / //#include "SHDOCVW_TLB.h"* Shdocvw_tlb::IWebBrowser2Ptr var_ShellBrowserWindow = Variant::CreateObject(L"InternetExplorer.Application"); var_ShellBrowserWindow->Navigate2(sFile,TNoParam(),TNoParam(),TNoParam(),TNoParam());
532	Export Data in CSV format List1->BeginUpdate(); List1->BackColorAlternate = RGB(240,240,240); List1->DrawGridLines = Exlistlib_tlb::GridLinesEnum::exAllLines; List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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)`) )))"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->FilterBarPromptType = Exlistlib_tlb::FilterPromptEnum::exFilterPromptContainsAny; Exlistlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = List1->ConditionalFormats; var_ConditionalFormats->Add(L"%0 like `AA`",TVariant("aa"))->BackColor = RGB(192,192,192); Exlistlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%0 like `D`",TVariant("d")); var_ConditionalFormat->ForeColor = RGB(255,128,128); var_ConditionalFormat->ApplyTo = Exlistlib_tlb::FormatApplyToEnum::exFormatToColumns; Exlistlib_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 = Exlistlib_tlb::FormatApplyToEnum::exFormatToColumns; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; Exlistlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Value"); var_Column->Width = 128; var_Column->HTMLCaption = L"<b>VA</b><r>sko"; Exlistlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"APos"); var_Column1->FormatColumn = L"0 apos ``"; var_Column1->AllowSort = false; var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exCellForeColor,TVariant(8421504)); var_Column1->set_Def(Exlistlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(var_Column1->get_Def(Exlistlib_tlb::DefColumnEnum::exCellForeColor))); var_Column1->Position = 0; Exlistlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"RPos"); var_Column2->FormatColumn = L"0 rpos ``"; var_Column2->AllowSort = false; var_Column2->Position = 1; Exlistlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"Index"); var_Column3->FormatColumn = L"0 index ``"; var_Column3->DisplayFilterButton = true; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowCheckBox; var_Column3->Position = 2; Exlistlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"Data 1"); var_Column4->FormatColumn = L"0 index `A-Z`"; var_Column4->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); Exlistlib_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(Exlistlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false)); var_Column5->set_Def(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); var_Column5->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true)); Exlistlib_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(Exlistlib_tlb::DefColumnEnum::exCaptionFormat,TVariant(1)); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); var_Items->set_CellState(2,TVariant(4),1); var_Items->Add(TVariant("Item AA")); var_Items->Add(TVariant("Item BB")); var_Items->Add(TVariant("Item CC")); var_Items->set_CellState(5,TVariant(5),1); var_Items->Add(TVariant("Item D")); var_Items->Add(TVariant("Item EE")); var_Items->Add(TVariant("Item FFF")); List1->EndUpdate(); OutputDebugString( PChar(List1->Export(TVariant(""),TVariant("vis"))) );
531	How can I get the icon from the cell when using the Items.CellImages property (icon index) // MouseMove event - Occurs when the user moves the mouse. void __fastcall TForm1::List1MouseMove(TObject Sender,short Button,short Shift,int X,int Y) { long i = List1->ItemFromPoint[-1,-1,c,hit]; OutputDebugString( PChar(List1->FormatABC*(L"( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",TVariant(hit),List1->Items->get_CellImages(i,TVariant(c)),TNoParam())) ); } List1->BeginUpdate(); List1->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=")); List1->Columns->Add(L"Default"); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_CellImages(var_Items->Add(TVariant("Item 1")),TVariant(0),TVariant("3,2,1")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 2")),TVariant(0),TVariant("2,3")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 3")),TVariant(0),TVariant("2,")); List1->EndUpdate();
530	How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell) // MouseMove event - Occurs when the user moves the mouse. void __fastcall TForm1::List1MouseMove(TObject Sender,short Button,short Shift,int X,int Y) { long i = List1->ItemFromPoint[-1,-1,c,hit]; OutputDebugString( PChar(List1->FormatABC*(L"( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",TVariant(hit),TNoParam(),TNoParam())) ); } List1->BeginUpdate(); List1->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=")); List1->Columns->Add(L"Default"); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_CellImages(var_Items->Add(TVariant("Item 1")),TVariant(0),TVariant("3,2,1")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 2")),TVariant(0),TVariant("2,3")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 3")),TVariant(0),TVariant("2")); List1->EndUpdate();
529	How can I get the index of icon from the cell, if using the CellImages property // MouseMove event - Occurs when the user moves the mouse. void __fastcall TForm1::List1MouseMove(TObject Sender,short Button,short Shift,int X,int Y) { long i = List1->ItemFromPoint[-1,-1,c,hit]; OutputDebugString( PChar(List1->FormatABC*(L"( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",TVariant(hit),TNoParam(),TNoParam())) ); } List1->BeginUpdate(); List1->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=")); List1->Columns->Add(L"Default"); Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_CellImages(var_Items->Add(TVariant("Item 1")),TVariant(0),TVariant("1,2,3")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 2")),TVariant(0),TVariant("2,3,1")); var_Items->set_CellImages(var_Items->Add(TVariant("Item 3")),TVariant(0),TVariant("3,2,1")); List1->EndUpdate();
528	Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop List1->BeginUpdate(); List1->HeaderAppearance = Exlistlib_tlb::AppearanceEnum::Etched; Exlistlib_tlb::IColumnsPtr var_Columns = List1->Columns; var_Columns->Add(L"Column 1"); var_Columns->Add(L"Column 2"); var_Columns->Add(L"Column 3"); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->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")); List1->Background[Exlistlib_tlb::BackgroundPartEnum::exColumnsPositionSign] = 0x2000000; List1->EndUpdate();
527	A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do List1->BeginUpdate(); List1->ColumnAutoResize = true; List1->DefaultItemHeight = 20; List1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m") + "Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" + "hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" + "6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" + "JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" + "0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")); List1->Columns->Add(L"Default")->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Position"); var_Column->FormatColumn = L"1 rindex ``"; var_Column->Visible = false; Exlistlib_tlb::IConditionalFormatPtr var_ConditionalFormat = List1->ConditionalFormats->Add(L"%C1 mod 2",TNoParam()); var_ConditionalFormat->BackColor = 0x1000000; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item 1")); var_Items->Add(TVariant("Item 2")); var_Items->Add(TVariant("Item 3")); var_Items->Add(TVariant("Item 4")); List1->EndUpdate();
526	Is it possible to change the caption from a column without to remove the column and add it with the new caption List1->Columns->Add(L"ColumnName")->Caption = L"NewName"; List1->Columns->Add(L"ColumnName")->HTMLCaption = L"<b>New</b>Name";
525	FilterBarCaption ALL Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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)`) )))"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
524	FilterBarCaption ALL Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->FilterBarCaption* = L"all"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
523	FilterBarCaption ALLUI Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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)`) )))"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
522	FilterBarCaption ALLUI Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->FilterBarCaption* = L"allui"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
521	FilterBarCaption AVAILABLE Keyword ( sample 2, result ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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)`) )))"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
520	FilterBarCaption AVAILABLE Keyword ( sample 1 ) // AddItem event - Occurs after a new Item is inserted to Items collection. void __fastcall TForm1::List1AddItem(TObject Sender,long Item) { // i = FormatABC("value + 1", Items.ItemToIndex(Item))* List1->Items->set_CellImage(Item,TVariant(3),i); } List1->BeginUpdate(); List1->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=")); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->Add(L"Check"); var_Column2->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column2->DisplayFilterButton = true; var_Column2->DisplayFilterPattern = false; var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->Add(L"Image"); var_Column3->DisplayFilterButton = true; var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exImage; var_Column3->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox; Exlistlib_tlb::IColumnPtr var_Column4 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); long h = var_Items->Add(TVariant("Item B")); var_Items->set_Caption(h,TVariant(1),TVariant("Sub-Item B")); var_Items->set_CellState(h,TVariant(2),1); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080> ` + value + ` </fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->FilterBarCaption* = L"value + ` ` + available"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column5 = List1->Columns->get_Item(TVariant(0)); var_Column5->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column5->Filter = L"Item A\|Item B"; List1->Columns->get_Item(TVariant(2))->Filter = L"1"; List1->ApplyFilter(); List1->EndUpdate();
519	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results ) List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); var_Items->set_Caption(var_Items->Add(TVariant("Item B")),TVariant(1),TVariant("Sub-Item B")); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->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>`"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->get_Item(TVariant(0)); var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column3->Filter = L"Item A\|Item B"; Exlistlib_tlb::IColumnPtr var_Column4 = List1->Columns->get_Item(TVariant(1)); var_Column4->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern; var_Column4->Filter = L"*B"; List1->ApplyFilter(); List1->EndUpdate();
518	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 ) List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); var_Items->set_Caption(var_Items->Add(TVariant("Item B")),TVariant(1),TVariant("Sub-Item B")); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->FilterBarCaption* = L"value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->get_Item(TVariant(0)); var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column3->Filter = L"Item A\|Item B"; Exlistlib_tlb::IColumnPtr var_Column4 = List1->Columns->get_Item(TVariant(1)); var_Column4->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern; var_Column4->Filter = L"*B"; List1->ApplyFilter(); List1->EndUpdate();
517	Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 ) List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Col-1"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->Add(L"Col-2"); var_Column1->DisplayFilterButton = true; var_Column1->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column2 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->set_Caption(var_Items->Add(TVariant("Item A")),TVariant(1),TVariant("Sub-Item A")); var_Items->set_Caption(var_Items->Add(TVariant("Item B")),TVariant(1),TVariant("Sub-Item B")); var_Items->set_Caption(var_Items->Add(TVariant("Item C")),TVariant(1),TVariant("Sub-Item C")); List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = PChar(List1->FormatABC(L"`<fgcolor=808080>` + value + `</fgcolor>`",TVariant(List1->Description[Exlistlib_tlb::DescriptionTypeEnum::exFilterBarAnd]),TNoParam(),TNoParam())); List1->FilterBarCaption = L"value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle; Exlistlib_tlb::IColumnPtr var_Column3 = List1->Columns->get_Item(TVariant(0)); var_Column3->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column3->Filter = L"Item A\|Item B"; Exlistlib_tlb::IColumnPtr var_Column4 = List1->Columns->get_Item(TVariant(1)); var_Column4->FilterType = Exlistlib_tlb::FilterTypeEnum::exPattern; var_Column4->Filter = L"*B"; List1->ApplyFilter(); List1->EndUpdate();
516	Is it possible to automatically displays the control's filter label to the right List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Item"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarCaption = L"`<r>` + value"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->get_Item(TVariant(0)); var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column2->Filter = L"Item B"; List1->ApplyFilter(); List1->EndUpdate();
515	How can I get the number of results/items being shown in the control's filter bar (sample 4) List1->BeginUpdate(); Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Item"); var_Column->DisplayFilterButton = true; var_Column->FilterList = Exlistlib_tlb::FilterListEnum::exShowExclude \| Exlistlib_tlb::FilterListEnum::exShowFocusItem \| Exlistlib_tlb::FilterListEnum::exShowCheckBox \| Exlistlib_tlb::FilterListEnum::exSortItemsAsc; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->FilterBarPrompt = PChar(List1->FormatABC(L"`<b>` + value",TVariant(List1->FilterBarPrompt),TNoParam(),TNoParam())); List1->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)`) )"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->EndUpdate();
514	How can I get the number of results being shown in the control's filter bar (sample 3) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->FilterBarCaption* = TVariant(String("`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount ") + "+ 1) + ` result(s)` ) : ``)"); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
513	How can I get the number of results being shown in the control's filter bar (sample 2, compact) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->FilterBarCaption* = L"`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
512	How can I get the number of results being shown in the control's filter bar (sample 1) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->FilterBarCaption* = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
511	FilterBarCaption Predefined Keywords List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->Columns->Add(L"Check"); var_Column->set_Def(Exlistlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true)); var_Column->DisplayFilterButton = true; var_Column->DisplayFilterPattern = false; var_Column->FilterType = Exlistlib_tlb::FilterTypeEnum::exCheck; Exlistlib_tlb::IColumnPtr var_Column1 = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->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>`"); List1->FilterBarPromptPattern = L"B"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column2 = List1->Columns->get_Item(TVariant(0)); var_Column2->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column2->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
510	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 List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarFont = (IFontDisp)(List1->Font); List1->FilterBarCaption* = L"`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"; List1->FilterBarPromptPattern = L"B"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
509	Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 ) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->FilterBarPrompt = PChar(List1->FormatABC(L"`<r>` + value",TVariant(List1->FilterBarPrompt),TNoParam(),TNoParam())); List1->EndUpdate();
508	Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 ) List1->BeginUpdate(); List1->RightToLeft = true; List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->EndUpdate();
507	How can I change the visual appearance of the filter bar's close button (EBN) List1->BeginUpdate(); Exlistlib_tlb::IAppearancePtr var_Appearance = List1->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")); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x1000000; List1->EndUpdate();
506	How can I change the visual appearance of the filter bar's close button (solid) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = RGB(255,0,0); List1->EndUpdate();
505	Is it possible to prevent definitely showing the filter bar's close button List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->Background[Exlistlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = -1; List1->EndUpdate();
504	Is it possible to show the close button only if there is a filter applied List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; List1->EndUpdate();
503	The control's filter bar is not closed once I click the close button (toggle) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarCaption = L"`<r><fgcolor=808080>` + value"; List1->FilterBarPromptPattern = L"B"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarToggle \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item B"; List1->ApplyFilter(); List1->EndUpdate();
502	How can I display the control's filter on a single line List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarCaption = L"len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();
501	How can I display the control's filter on a single line (prompt-combined) List1->BeginUpdate(); List1->Columns->Add(L"Item")->DisplayFilterButton = true; Exlistlib_tlb::IColumnPtr var_Column = List1->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; Exlistlib_tlb::IItemsPtr var_Items = List1->Items; var_Items->Add(TVariant("Item A")); var_Items->Add(TVariant("Item B")); var_Items->Add(TVariant("Item C")); List1->FilterBarCaption = L"`<r>` + value"; List1->FilterBarPromptVisible = Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarCompact \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarVisible \| Exlistlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible; Exlistlib_tlb::IColumnPtr var_Column1 = List1->Columns->get_Item(TVariant(0)); var_Column1->FilterType = Exlistlib_tlb::FilterTypeEnum::exFilter; var_Column1->Filter = L"Item A\|Item B"; List1->ApplyFilter(); List1->EndUpdate();