|
28
|
Re-order the cell's caption, icons and images/pictures
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComExpanded of hoGroup to True
Set ComAutoHeight of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ToLeft" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "ToRight" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
Set ComDef of hoColumn1 OLEexCellDrawPartsOrder to "caption,picture,icons,icon,check"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Set ComDefaultItemHeight of hoGroup to 32
Set ComDrawGridLines of hoGroup to OLEexVLines
Set ComHeaderAppearance of hoGroup to OLEEtched
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Caption" to h
Set ComCellImage of hoItems h 0 to 2
Set ComCellImages of hoItems h 0 to "1,2"
Variant vPicture
Get ComExecuteTemplate "loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)" to vPicture
Set ComCellPicture of hoItems h 0 to (vPicture)
Set ComCellCaption of hoItems h 1 to (ComCellCaption(hoItems,h,0))
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellImage of hoItems h 1 to (ComCellImage(hoItems,h,0))
Set ComCellImages of hoItems h 1 to "2,1"
Set ComCellPicture of hoItems h 1 to (ComCellPicture(hoItems,h,0))
Get ComAddItem of hoItems "<b>HTML</b> <off 4>Caption" to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellImage of hoItems h 0 to 2
Set ComCellImages of hoItems h 0 to "1,2"
Variant vPicture1
Get ComExecuteTemplate "loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)" to vPicture1
Set ComCellPicture of hoItems h 0 to (vPicture1)
Set ComCellCaption of hoItems h 1 to (ComCellCaption(hoItems,h,0))
Set ComCellCaptionFormat of hoItems h 1 to OLEexHTML
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellImage of hoItems h 1 to (ComCellImage(hoItems,h,0))
Set ComCellImages of hoItems h 1 to "2,1"
Set ComCellPicture of hoItems h 1 to (ComCellPicture(hoItems,h,0))
Send Destroy to hoItems
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
27
|
ImageSize property on 32 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// Occurs when a new group is added to collection.
Procedure OnComAddGroup Variant llGroup
Forward Send OnComAddGroup llGroup
Move to Group
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowShortcutBar to True
Set ComImageSize to 32
Set ComGroupHeight to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSelBackColorFilter to |CI$4000000
Set ComBackground OLEexSelForeColorFilter to (RGB(0,0,0))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Classament <b>A</b>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComShortcut of hoGroup to "<img>1</img>"
Set ComHasLines of hoGroup to OLEexNoLine
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Group" to Nothing
Variant voColumn
Get ComAdd of hoColumns1 "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 32
Set ComAllowSizing of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns1 "P3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComWidth of hoColumn2 to 32
Set ComAllowSizing of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns1 "P4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComWidth of hoColumn3 to 32
Set ComAllowSizing of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 11
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 12
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 2
Set ComCellCaption of hoItems h1 2 to 3
Set ComCellCaption of hoItems h1 3 to 4
Set ComCellCaption of hoItems h1 4 to 2
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 1
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 4
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 5
Set ComCellCaption of hoItems h1 2 to 6
Set ComCellCaption of hoItems h1 3 to 6
Set ComCellCaption of hoItems h1 4 to 16
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Classament <b>D" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "<img>3</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Classament <b>B" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "<img>1</img>"
Set ComCaptionFormat of hoGroup2 to OLEexHTML
Variant voColumns2
Get ComColumns of hoGroup2 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Send ComClear of hoColumns2
Send Destroy to hoColumns2
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Classament <b>C" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "<img>1</img>"
Variant voColumns3
Get ComColumns of hoGroup3 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Send ComClear of hoColumns3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoGroup3 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Group" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComDef of hoColumn4 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn4 to True
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoGroup3 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "P1" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComDef of hoColumn5 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn5 to True
Set ComWidth of hoColumn5 to 32
Set ComAllowSizing of hoColumn5 to False
Set ComLevelKey of hoColumn5 to 1
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns of hoGroup3 to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "P2" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComDef of hoColumn6 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn6 to True
Set ComWidth of hoColumn6 to 32
Set ComAllowSizing of hoColumn6 to False
Set ComLevelKey of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns of hoGroup3 to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "P3" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComDef of hoColumn7 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn7 to True
Set ComWidth of hoColumn7 to 32
Set ComAllowSizing of hoColumn7 to False
Set ComLevelKey of hoColumn7 to 2
Send Destroy to hoColumn7
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns of hoGroup3 to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn8
Get ComAdd of hoColumns8 "P4" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComDef of hoColumn8 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn8 to True
Set ComWidth of hoColumn8 to 32
Set ComAllowSizing of hoColumn8 to False
Set ComLevelKey of hoColumn8 to 2
Send Destroy to hoColumn8
Send Destroy to hoColumns8
Variant voItems1
Get ComItems of hoGroup3 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Group 1" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Set ComCellState of hoItems1 (ComInsertItem(hoItems1,h,"Team 2")) 0 to 1
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "Group 2" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Get ComInsertItem of hoItems1 h "Team 2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Set ComAutoHeight of hoGroup3 to True
Set ComExpanded of hoGroup3 to True
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Send ComEndUpdate
End_Procedure
|
|
26
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// Occurs when a new group is added to collection.
Procedure OnComAddGroup Variant llGroup
Forward Send OnComAddGroup llGroup
Move to Group
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowShortcutBar to True
Set ComImageSize to 16
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSelBackColorFilter to |CI$4000000
Set ComBackground OLEexSelForeColorFilter to (RGB(0,0,0))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Classament <b>A</b>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComShortcut of hoGroup to "<img>1</img>"
Set ComHasLines of hoGroup to OLEexNoLine
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Group" to Nothing
Variant voColumn
Get ComAdd of hoColumns1 "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 32
Set ComAllowSizing of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns1 "P3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComWidth of hoColumn2 to 32
Set ComAllowSizing of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns1 "P4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComWidth of hoColumn3 to 32
Set ComAllowSizing of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 11
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 12
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 2
Set ComCellCaption of hoItems h1 2 to 3
Set ComCellCaption of hoItems h1 3 to 4
Set ComCellCaption of hoItems h1 4 to 2
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 1
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 4
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 5
Set ComCellCaption of hoItems h1 2 to 6
Set ComCellCaption of hoItems h1 3 to 6
Set ComCellCaption of hoItems h1 4 to 16
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Classament <b>D" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "<img>3</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Classament <b>B" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "<img>1</img>"
Set ComCaptionFormat of hoGroup2 to OLEexHTML
Variant voColumns2
Get ComColumns of hoGroup2 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Send ComClear of hoColumns2
Send Destroy to hoColumns2
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Classament <b>C" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "<img>1</img>"
Variant voColumns3
Get ComColumns of hoGroup3 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Send ComClear of hoColumns3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoGroup3 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Group" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComDef of hoColumn4 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn4 to True
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoGroup3 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "P1" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComDef of hoColumn5 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn5 to True
Set ComWidth of hoColumn5 to 32
Set ComAllowSizing of hoColumn5 to False
Set ComLevelKey of hoColumn5 to 1
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns of hoGroup3 to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "P2" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComDef of hoColumn6 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn6 to True
Set ComWidth of hoColumn6 to 32
Set ComAllowSizing of hoColumn6 to False
Set ComLevelKey of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns of hoGroup3 to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "P3" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComDef of hoColumn7 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn7 to True
Set ComWidth of hoColumn7 to 32
Set ComAllowSizing of hoColumn7 to False
Set ComLevelKey of hoColumn7 to 2
Send Destroy to hoColumn7
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns of hoGroup3 to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn8
Get ComAdd of hoColumns8 "P4" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComDef of hoColumn8 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn8 to True
Set ComWidth of hoColumn8 to 32
Set ComAllowSizing of hoColumn8 to False
Set ComLevelKey of hoColumn8 to 2
Send Destroy to hoColumn8
Send Destroy to hoColumns8
Variant voItems1
Get ComItems of hoGroup3 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Group 1" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Set ComCellState of hoItems1 (ComInsertItem(hoItems1,h,"Team 2")) 0 to 1
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "Group 2" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Get ComInsertItem of hoItems1 h "Team 2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Set ComAutoHeight of hoGroup3 to True
Set ComExpanded of hoGroup3 to True
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Send ComEndUpdate
End_Procedure
|
|
25
|
Highlight the item from the cursor
Procedure OnCreate
Forward Send OnCreate
Variant hotback
Move 16748574 to hotback
Variant selback
Move 16736256 to selback
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComLinesAtRoot of hoGroup to OLEexLinesAtRoot
Set ComHasLines of hoGroup to OLEexNoLine
Set ComShowFocusRect of hoGroup to False
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item A" to Nothing
Variant h
Get ComAddItem of hoItems "Item B" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Item C" to Nothing
Send Destroy to hoItems
Set ComSelBackColor of hoGroup to selback
Set ComHotBackColor of hoGroup to hotback
Set ComHotForeColor of hoGroup to (ComSelForeColor(hoGroup))
Set ComExpanded of hoGroup to True
Set ComAutoHeight of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Variant voItems1
Get ComItems of hoGroup1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Item A" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoGroup1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item B" to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoGroup1 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 "Item C" to Nothing
Send Destroy to hoItems3
Set ComShowFocusRect of hoGroup1 to False
Set ComSelBackColor of hoGroup1 to selback
Set ComHotBackColor of hoGroup1 to hotback
Set ComHotForeColor of hoGroup1 to (ComSelForeColor(hoGroup1))
Set ComExpanded of hoGroup1 to True
Set ComAutoHeight of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
24
|
Classament
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02hz+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvLD8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4AM2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnDtBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeUznmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJKSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/AcjwAHBsiQex8gPH+MF7pDxxkB"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "E:\Exontrol\ExG2antt\sample\EBN\vistasel.ebn" to Nothing
Send Destroy to hoAppearance
Send ComBeginUpdate
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Classament <b>A</b>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComIndentGroupLeft of hoGroup to 18
Set ComIndentGroupRight of hoGroup to 18
Set ComSelBackMode of hoGroup to OLEexTransparent
Set ComShowFocusRect of hoGroup to False
Set ComSelBackColor of hoGroup to |CI$1000000
Set ComSelForeColor of hoGroup to (RGB(0,0,0))
Set ComCaptionFormat of hoGroup to OLEexHTML
Set ComShortcut of hoGroup to "<img>1</img>"
Set ComAutoHeight of hoGroup to True
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComHasLines of hoGroup to OLEexNoLine
Set ComScrollBySingleLine of hoGroup to True
Set ComMarkSearchColumn of hoGroup to False
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Group" to Nothing
Variant voColumn
Get ComAdd of hoColumns1 "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 32
Set ComAllowSizing of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns1 "P3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComWidth of hoColumn2 to 32
Set ComAllowSizing of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns1 "P4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComWidth of hoColumn3 to 32
Set ComAllowSizing of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 11
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 12
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 2
Set ComCellCaption of hoItems h1 2 to 3
Set ComCellCaption of hoItems h1 3 to 4
Set ComCellCaption of hoItems h1 4 to 2
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Team 1" to h1
Set ComCellCaption of hoItems h1 1 to 1
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Set ComCellCaption of hoItems h1 4 to 4
Get ComInsertItem of hoItems h "Team 2" to h1
Set ComCellCaption of hoItems h1 1 to 5
Set ComCellCaption of hoItems h1 2 to 6
Set ComCellCaption of hoItems h1 3 to 6
Set ComCellCaption of hoItems h1 4 to 16
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Classament 4" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "<img>4</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Classament <b>B" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "<img>1</img>"
Set ComCaptionFormat of hoGroup2 to OLEexHTML
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Classament <b>C" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComIndentGroupLeft of hoGroup3 to 18
Set ComIndentGroupRight of hoGroup3 to 18
Set ComSelBackMode of hoGroup3 to OLEexTransparent
Set ComShowFocusRect of hoGroup3 to False
Set ComSelBackColor of hoGroup3 to |CI$1000000
Set ComSelForeColor of hoGroup3 to (RGB(0,0,0))
Set ComCaptionFormat of hoGroup3 to OLEexHTML
Set ComShortcut of hoGroup3 to "<img>1</img>"
Set ComHeaderVisible of hoGroup3 to True
Set ComMarkSearchColumn of hoGroup3 to False
Variant voColumns2
Get ComColumns of hoGroup3 to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Send ComClear of hoColumns2
Send Destroy to hoColumns2
Set ComLinesAtRoot of hoGroup3 to OLEexLinesAtRoot
Variant voColumns3
Get ComColumns of hoGroup3 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn4
Get ComAdd of hoColumns3 "Group" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComDef of hoColumn4 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn4 to True
Send Destroy to hoColumn4
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoGroup3 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn5
Get ComAdd of hoColumns4 "P1" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComDef of hoColumn5 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn5 to True
Set ComWidth of hoColumn5 to 32
Set ComAllowSizing of hoColumn5 to False
Set ComLevelKey of hoColumn5 to 1
Send Destroy to hoColumn5
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoGroup3 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn6
Get ComAdd of hoColumns5 "P2" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComDef of hoColumn6 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn6 to True
Set ComWidth of hoColumn6 to 32
Set ComAllowSizing of hoColumn6 to False
Set ComLevelKey of hoColumn6 to 1
Send Destroy to hoColumn6
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns of hoGroup3 to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn7
Get ComAdd of hoColumns6 "P3" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComDef of hoColumn7 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn7 to True
Set ComWidth of hoColumn7 to 32
Set ComAllowSizing of hoColumn7 to False
Set ComLevelKey of hoColumn7 to 2
Send Destroy to hoColumn7
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns of hoGroup3 to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn8
Get ComAdd of hoColumns7 "P4" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComDef of hoColumn8 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn8 to True
Set ComWidth of hoColumn8 to 32
Set ComAllowSizing of hoColumn8 to False
Set ComLevelKey of hoColumn8 to 2
Send Destroy to hoColumn8
Send Destroy to hoColumns7
Variant voItems1
Get ComItems of hoGroup3 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Group 1" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Get ComInsertItem of hoItems1 h "Team 2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "Group 2" to h
Set ComCellMerge of hoItems1 h 0 to 1
Set ComCellMerge of hoItems1 h 0 to 2
Set ComCellMerge of hoItems1 h 0 to 3
Set ComCellMerge of hoItems1 h 0 to 4
Get ComInsertItem of hoItems1 h "Team 1" to Nothing
Get ComInsertItem of hoItems1 h "Team 2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Set ComAutoHeight of hoGroup3 to True
Set ComExpanded of hoGroup3 to True
Send Destroy to hoGroup3
Send Destroy to hoGroups3
Send ComEndUpdate
End_Procedure
|
|
23
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 -36 0 0" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsPositionSign to |CI$2000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "New" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Set ComHeaderHeight of hoGroup to 22
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
22
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortDate
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComDisplayFilterDate of hoColumn to True
Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsDesc)
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "DateTime" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortDateTime
Set ComDisplayFilterButton of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsDesc)
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoGroup to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComAdd of hoColumns3 "Time" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortTime
Set ComDisplayFilterButton of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComFilterList of hoColumn2 to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsDesc)
Set ComFormatColumn of hoColumn2 to "time(value)"
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoGroup to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComAdd of hoColumns4 "Numeric" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComDisplayFilterButton of hoColumn3 to True
Set ComFilterList of hoColumn3 to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsDesc)
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoGroup to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn4
Get ComAdd of hoColumns5 "String" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComDisplayFilterButton of hoColumn4 to True
Set ComFilterList of hoColumn4 to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsDesc)
Send Destroy to hoColumn4
Send Destroy to hoColumns5
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/27/2010" to h
Set ComCellCaption of hoItems h 1 to "1/27/2010 10:00:00 AM"
Set ComCellCaption of hoItems h 2 to (ComCellCaption(hoItems,h,1))
Set ComCellCaption of hoItems h 3 to 1
Set ComCellCaption of hoItems h 4 to (ComCellCaption(hoItems,h,3))
Get ComAddItem of hoItems "1/27/2011" to h
Set ComCellCaption of hoItems h 1 to "1/27/2011 9:00:00 AM"
Set ComCellCaption of hoItems h 2 to (ComCellCaption(hoItems,h,1))
Set ComCellCaption of hoItems h 3 to 11
Set ComCellCaption of hoItems h 4 to (ComCellCaption(hoItems,h,3))
Get ComAddItem of hoItems "11/2/2010" to h
Set ComCellCaption of hoItems h 1 to "11/2/2010 9:00:00 AM"
Set ComCellCaption of hoItems h 2 to (ComCellCaption(hoItems,h,1))
Set ComCellCaption of hoItems h 3 to 2
Set ComCellCaption of hoItems h 4 to (ComCellCaption(hoItems,h,3))
Send Destroy to hoItems
Variant voColumns6
Get ComColumns of hoGroup to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn5
Get ComItem of hoColumns6 "DateTime" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComDisplayFilterDate of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns6
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
21
|
How do I get the caption of the cell/item from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Get ComGroupListFromPoint -1 -1 to Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Number" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComHeaderVisible of hoGroup1 to True
Variant voColumns3
Get ComColumns of hoGroup1 to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Send ComClear of hoColumns3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns of hoGroup1 to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 "Number" to Nothing
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns of hoGroup1 to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn1
Get ComAdd of hoColumns5 "Round" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "round(%0)"
Send Destroy to hoColumn1
Send Destroy to hoColumns5
Variant voItems1
Get ComItems of hoGroup1 to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "-1.98" to Nothing
Get ComAddItem of hoItems1 "0.99" to Nothing
Get ComAddItem of hoItems1 "1.23" to Nothing
Get ComAddItem of hoItems1 "2.34" to Nothing
Send Destroy to hoItems1
Set ComExpanded of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
20
|
How can I ensure that a specified item is visible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComExpanded of hoGroup to True
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item" to Nothing
Get ComAddItem of hoItems "Item" to Nothing
Get ComAddItem of hoItems "Item" to Nothing
Get ComAddItem of hoItems "Item" to Nothing
Send Destroy to hoItems
Send ComPutItems of hoGroup (ComGetItems(hoGroup,0)) 0
Send ComPutItems of hoGroup (ComGetItems(hoGroup,0)) 0
Variant voItems1
Get ComItems of hoGroup to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Ensure" to Nothing
Send Destroy to hoItems1
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComItem of hoGroups1 0 to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Variant voItems2
Get ComItems of hoGroup1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant h
Get ComItemByIndex of hoItems2 16 to h
Set ComItemBackColor of hoItems2 h to (RGB(255,255,0))
Send ComEnsureVisibleItem of hoItems2 h
Send Destroy to hoItems2
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Send ComEndUpdate
End_Procedure
|
|
19
|
is it possible to display icons in the control's shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group A.1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "<img>1</img> First Group"
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups "Group A.2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "<img>1</img> First Group"
Send Destroy to hoGroup1
Variant voGroup2
Get ComAdd of hoGroups "Group B.1" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "<img>2</img> Second Group"
Send Destroy to hoGroup2
Variant voGroup3
Get ComAdd of hoGroups "Group B.2" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "<img>2</img> Second Group"
Send Destroy to hoGroup3
Variant voGroup4
Get ComAdd of hoGroups "Group B.3" to voGroup4
Handle hoGroup4
Get Create (RefClass(cComGroup)) to hoGroup4
Set pvComObject of hoGroup4 to voGroup4
Set ComShortcut of hoGroup4 to "<img>2</img> Second Group"
Send Destroy to hoGroup4
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
18
|
How can I display the control's shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group A.1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "A"
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups "Group A.2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "A"
Send Destroy to hoGroup1
Variant voGroup2
Get ComAdd of hoGroups "Group B.1" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "B"
Send Destroy to hoGroup2
Variant voGroup3
Get ComAdd of hoGroups "Group B.2" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "B"
Send Destroy to hoGroup3
Variant voGroup4
Get ComAdd of hoGroups "Group B.3" to voGroup4
Handle hoGroup4
Get Create (RefClass(cComGroup)) to hoGroup4
Set pvComObject of hoGroup4 to voGroup4
Set ComShortcut of hoGroup4 to "B"
Send Destroy to hoGroup4
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
17
|
Can I display the cell's check box after the text
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComExpanded of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
Send Destroy to hoItems
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
16
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComExpanded of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellHasCheckBox of hoItems h 0 to True
Send Destroy to hoItems
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
15
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComExpanded of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Send Destroy to hoItems
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
14
|
How do I enable the filter prompt feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComAutoHeight of hoGroup to True
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComColumnAutoResize of hoGroup to True
Set ComContinueColumnScroll of hoGroup to False
Set ComMarkSearchColumn of hoGroup to False
Set ComSearchColumnIndex of hoGroup to 1
Set ComFilterBarPromptVisible of hoGroup to True
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns1 "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns1 "City" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
Set ComCellCaption of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Manager"
Set ComCellCaption of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellCaption of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellCaption of hoItems h0 1 to "Sales Representative"
Set ComCellCaption of hoItems h0 2 to "London"
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Send ComEndUpdate
End_Procedure
|
|
13
|
Can I specify unsortable items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComAutoHeight of hoGroup to True
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComHasLines of hoGroup to OLEexNoLine
Set ComScrollBySingleLine of hoGroup to True
Set ComMarkSearchColumn of hoGroup to False
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Name" to Nothing
Get ComAdd of hoColumns1 "A" to Nothing
Get ComAdd of hoColumns1 "B" to Nothing
Get ComAdd of hoColumns1 "C" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellCaption of hoItems h1 1 to 1
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellCaption of hoItems h1 1 to 4
Set ComCellCaption of hoItems h1 2 to 5
Set ComCellCaption of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellCaption of hoItems h1 1 to 1
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellCaption of hoItems h1 1 to 4
Set ComCellCaption of hoItems h1 2 to 5
Set ComCellCaption of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
12
|
Can I change the style of the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComMarkSearchColumn of hoGroup to False
Set ComTreeColumnIndex of hoGroup to -1
Set ComScrollBySingleLine of hoGroup to False
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C1" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C2" to Nothing
Send Destroy to hoColumns2
Set ComSelBackMode of hoGroup to OLEexTransparent
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemHeight of hoItems h to 24
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
11
|
How can I expand all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComLinesAtRoot of hoGroup to OLEexLinesAtRoot
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Items" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
10
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default positive)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default negative)'"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
9
|
Is it possible to format numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Set ComMarkSearchColumn of hoGroup to False
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns1 "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortNumeric
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 36
Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns1 "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortNumeric
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 36
Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns1 "A+B+C" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComWidth of hoColumn3 to 64
Set ComComputedField of hoColumn3 to "dbl(%1)+dbl(%2)+dbl(%3)"
Set ComFormatColumn of hoColumn3 to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
Set ComDef of hoColumn3 OLEexCellCaptionFormat to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns1
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComCellCaptionFormat of hoItems h 4 to OLEexComputedField
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellCaption of hoItems h1 1 to 7
Set ComCellCaption of hoItems h1 2 to 3
Set ComCellCaption of hoItems h1 3 to 1
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellCaption of hoItems h1 1 to -2
Set ComCellCaption of hoItems h1 2 to -2
Set ComCellCaption of hoItems h1 3 to -4
Get ComInsertItem of hoItems h "Child 3" to h1
Set ComCellCaption of hoItems h1 1 to 2
Set ComCellCaption of hoItems h1 2 to 2
Set ComCellCaption of hoItems h1 3 to -4
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
8
|
Is there any function to round the values base on the .5 value
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComHeaderVisible of hoGroup to True
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Number" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
7
|
How can I show a column that adds values in the cells
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Send ComClear of hoColumns
Send Destroy to hoColumns
Set ComHeaderVisible of hoGroup to True
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "A" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "B" to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns of hoGroup to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn
Get ComAdd of hoColumns3 "A+B" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0) + dbl(%1)"
Send Destroy to hoColumn
Send Destroy to hoColumns3
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoGroup to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaption of hoItems1 (ComAddItem(hoItems1,10)) 1 to 20
Send Destroy to hoItems1
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
6
|
How do I change the item's background color for numbers less than a value
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voConditionalFormats
Get ComConditionalFormats of hoGroup to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "dbl(%0) < 10" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoGroup to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 2 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoGroup to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 10 to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoGroup to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 20 to Nothing
Send Destroy to hoItems3
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
5
|
How do I highlight in bold the numbers greater than a value
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voConditionalFormats
Get ComConditionalFormats of hoGroup to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "dbl(%0) >= 10" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems of hoGroup to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 2 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems of hoGroup to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 10 to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems of hoGroup to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 20 to Nothing
Send Destroy to hoItems3
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
4
|
How do I change the caption being displayed in the control's filter bar
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComFilterBarCaption of hoGroup to "your filter caption"
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter of hoGroup
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
3
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComAutoHeight of hoGroup to True
Set ComDrawGridLines of hoGroup to OLEexAllLines
Set ComGridLineStyle of hoGroup to (OLEexGridLinesVSolid + OLEexGridLinesHDot4)
Set ComColumnAutoResize of hoGroup to False
Variant voColumns
Get ComColumns of hoGroup to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to "C1"
Set ComWidth of hoColumn to 64
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns of hoGroup to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns of hoGroup to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Set ComColumnAutoResize of hoGroup to True
Variant voItems
Get ComItems of hoGroup to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellCaption of hoItems h 1 to "SubItem 1.2"
Set ComCellCaption of hoItems h 2 to "SubItem 1.3"
Get ComAddItem of hoItems "Item 2" to h
Set ComCellCaption of hoItems h 1 to "SubItem 2.2"
Set ComCellCaption of hoItems h 2 to "SubItem 2.3"
Get ComAddItem of hoItems "Item 3" to h
Set ComCellCaption of hoItems h 1 to "SubItem 3.2"
Set ComCellCaption of hoItems h 2 to "SubItem 3.3"
Send Destroy to hoItems
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
2
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Default" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComDrawGridLines of hoGroup to OLEexAllLines
Set ComGridLineStyle of hoGroup to OLEexGridLinesSolid
Set ComExpanded of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|
|
1
|
How can I change the visual appearance for the groups, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackColorGroup to |CI$1000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Get ComAdd of hoGroups "Group 2" to Nothing
Get ComAdd of hoGroups "Group 3" to Nothing
Send Destroy to hoGroups
Send ComEndUpdate
End_Procedure
|