Реклама

   1 
   2 extern {
   3 //property ustr LVColumn.Label <result>()
   4 property ustr LVCell.Label <result>()
   5 method vListView.iGetColumnOrders()
   6 property vListViewColumn.Order( uint val )
   7 property ustr LVCell.Label <result> ()
   8 method vListViewColumn LVColumns.Find( ustr alias )
   9 method vListViewColumn LVColumns.index( uint idx )
  10 method vListViewColumn.iWinUpdate( uint mask )
  11 operator uint *( LVColumns obj )
  12 method LVCell LVRow.FindCell( ustr alias )
  13 method LVCell LVRow.index( uint colidx )
  14 method LVCell.iWinUpdate( uint mask )
  15 method uint LVRows.first( fordata tfd )
  16 method uint LVRows.next( fordata tfd )
  17 method uint LVRows.eof( fordata tfd )
  18 property uint LVRow.Idx()
  19 method LVRow LVRows.index( uint idx )
  20 property uint LVCell.StateIndex
  21 property uint vListViewColumn.Idx()
  22 method LVRow.iWinUpdate( uint mask )
  23 property uint LVRow.VisIndex
  24 property vListViewColumn.Sorted( uint val )
  25 }
  26 
  27 
  28 method LVRow vListView.RowFromVisIndex( uint visindex )
  29 {
  30    LVITEM lvi
  31    lvi.mask = $LVIF_PARAM
  32    lvi.iItem = visindex 
  33    .WinMsg( $LVM_GETITEMW, 0, &lvi )
  34    return lvi.lParam->LVRow   
  35 }
  36 
  37 method vListViewColumn.iWinInsert()
  38 {
  39    if this.Owner->vListView.hwnd 
  40    {
  41       if .pIndex 
  42       {
  43          LVCOLUMN lvc
  44          uint index = this.pIndex//this.param->LVColumnData.idx
  45          lvc.mask = $LVCF_SUBITEM | $LVCF_TEXT //| $LVCF_WIDTH | $LVCF_ORDER//| $LVCF_IMAGE //| $LVCF_FMT
  46          //lvc.fmt = 0x8000 //$LVCFMT_COL_HAS_IMAGES | $LVCFMT_BITMAP_ON_RIGHT //| 0x400//| 0x8000 
  47          lvc.iSubItem = index  
  48          lvc.pszText = "".ustr().ptr()
  49          //lvc.cx = .pWidth
  50          //lvc.iImage = -1
  51          this.Owner->vListView.WinMsg( $LVM_INSERTCOLUMNW, index, &lvc )
  52          uint header = this.Owner->vListView.WinMsg( $LVM_GETHEADER )
  53          HDITEM hdi
  54          hdi.mask = 0x0004 | //| $HDI_FORMAT      
  55          hdi.fmt = 0x8000
  56          //SendMessage( header, 0x1204/*$HDM_SETITEM*/, index, &hdi )
  57       }
  58       .iWinUpdate( $LVCF_TEXT | $LVCF_WIDTH | $LVCF_ORDER )
  59    }
  60    //this.param->LVColumnData.pColumns->LVColumns.pListView->vListView.WinMsg( $LVM_INSERTCOLUMNW, index, &lvc )
  61 }
  62 
  63 method vListViewColumn.iWinRemove()
  64 {
  65    if .pIndex : this.Owner->vListView.WinMsg( $LVM_DELETECOLUMN, .pIndex )
  66 }
  67 
  68 method vListViewColumn.iWinUpdate( uint mask )
  69 {
  70    if &.Owner
  71    {  
  72       LVCOLUMN lvc
  73       uint listview as .Owner->vListView      
  74       lvc.mask = mask 
  75        
  76       if lvc.mask & $LVCF_FMT
  77       {
  78          if .pSorted == $lvsortDown : lvc.fmt = $HDF_SORTDOWN
  79          elif .pSorted == $lvsortUp : lvc.fmt = $HDF_SORTUP
  80       }      
  81       lvc.pszText = .pCaption->locustr.Text( this ).ptr()
  82       if .pVisible
  83       {
  84          lvc.cx = .pWidth
  85          //lvc.iOrder = .pOrder
  86          uint i
  87          fornum i=0, *listview.Columns
  88          {
  89             if listview.Columns[i].pOrder < .pOrder
  90             {
  91                if listview.Columns[i].pVisible : lvc.iOrder++
  92             }
  93          }
  94       }
  95       else 
  96       {
  97          lvc.cx = 0
  98          uint i         
  99          lvc.iOrder = *listview.Columns - 1
 100          //*listview.Columns - 1
 101       }
 102       
 103 /*      if mask & $LVCF_IMAGE
 104       {      
 105          lvc.iImage = listview.ptrImageList->ImageList.GetImageIdx( listview.numImageList, .pImageId, 0 )
 106           print( "l \(lvc.iImage)\n" )             
 107       }*/    
 108       
 109        
 110       listview.WinMsg( $LVM_SETCOLUMNW, .pIndex, &lvc )
 111       
 112       
 113       //SendMessage( header, 0x1204/*$HDM_SETITEM*/, index, &hdi )
 114       
 115       /*uint header = this.Owner->vListView.WinMsg( $LVM_GETHEADER )
 116       HDITEM hdi
 117       hdi.mask = 0x0004 //| $HDI_FORMAT      
 118       hdi.fmt = 0x8000      
 119       SendMessage( header, 0x1204, .pIndex, &hdi )*/
 120       /*if mask & $LVCF_WIDTH 
 121       {
 122       
 123          listview.WinMsg( $LVM_SETCOLUMNWIDTH, .pIndex, .pWidth )   
 124       }*/
 125    }
 126 }
 127 
 128 method vListViewColumn.init()
 129 {   
 130    this.pTypeId = vListViewColumn
 131    this.pWidth = 50
 132    this.pVisible = 1
 133    this.pDefSorted = $lvsortDown
 134    //this.pAutoLang = 0
 135 }
 136 
 137 
 138 
 139 method vListViewColumn LVColumns.index( uint idx )
 140 {  
 141    uint listview as .pListView->vListView
 142    if &listview
 143    {
 144       return listview.Comps[idx]->vListViewColumn
 145    }
 146    return 0->vListViewColumn
 147 }
 148 
 149 operator uint *( LVColumns obj )
 150 {
 151    uint listview as obj.pListView->vListView
 152    if &listview
 153    {
 154       return *listview.Comps
 155    }
 156    return 0
 157 }
 158 
 159 method vListViewColumn LVColOrder.index( uint idx )
 160 {  
 161    uint listview as .pListView->vListView
 162    if &listview && idx < *.pListView->vListView.Columns
 163    {
 164       return listview.arOrder[idx]->vListViewColumn
 165    }
 166    return 0->vListViewColumn
 167 }
 168 
 169 method vListViewColumn LVColumns.Append()
 170 {  
 171    uint listview as .pListView->vListView
 172    uint item as vListViewColumn
 173    if &listview
 174    {
 175       item as listview.CreateComp( vListViewColumn )->vListViewColumn
 176       item.Order = item.pIndex 
 177    }
 178    return item   
 179 }
 180 
 181 method vListViewColumn LVColumns.Insert( uint index )
 182 {  
 183    uint listview as .pListView->vListView
 184    uint item as vListViewColumn
 185    if &listview
 186    {
 187       item as listview.CreateComp( vListViewColumn )->vListViewColumn            
 188       item.CompIndex = index      
 189       //listview.iGetColumnOrders()            
 190       listview.Reload()     
 191       item.Order = index 
 192    }
 193    return item   
 194 }
 195 
 196 
 197 
 198 /*
 199 method LVColumn LVColumns.Insert( uint index )
 200 {
 201    uint item
 202    uint data
 203    index = min( index, *this )
 204    this.insert( index )
 205    item as .pListView->vListView.gtcolumns->gtitem.insertchild( "", ?( index, this[index-1], 0 )->gtitem )->LVColumn
 206    this->arr of uint [index] = &item
 207    data as new( LVColumnData )->LVColumnData
 208    item.param = &data
 209    data.pColumns = &this
 210    data.idx = index
 211    
 212    item.iWinInsert()  
 213    return item
 214 }
 215 */
 216 
 217 /*
 218 
 219 
 220 method LVColumn.Release()
 221 {   
 222    if .param
 223    {      
 224       uint data as .param->LVColumnData
 225       uint columns as data.pColumns->LVColumns
 226       uint listview as columns.pListView->vListView
 227       
 228       columns.del( data.idx )
 229       listview.WinMsg( $LVM_DELETECOLUMN, data.idx )    
 230       
 231       destroy( &data )
 232       .param = 0
 233    }
 234 }
 235 
 236 method LVColumn.Del()
 237 {
 238    .Release()
 239    .del()   
 240 }
 241 */
 242 /* Свойство ustr Label - Get Set
 243 Устанавливает или определяет заголовок колонки
 244 */
 245 property ustr vListViewColumn.Caption <result>
 246 { 
 247    result = this.pCaption.Value
 248 }
 249 
 250 property vListViewColumn.Caption( ustr val )
 251 {
 252    if val != this.pCaption.Value
 253    {       
 254       this.pCaption.Value = val      
 255       .iWinUpdate( $LVCF_TEXT )
 256    }   
 257 }
 258 
 259 /* Свойство ustr Alias - Get Set
 260 Устанавливает или определяет псевдоним колонки
 261 */
 262 property ustr vListViewColumn.Alias <result>
 263 { 
 264    result = this.pAlias
 265 }
 266 
 267 property vListViewColumn.Alias( ustr val )
 268 {
 269    if this.pAlias != val
 270    {
 271       this.pAlias = val
 272    }   
 273 }
 274 /*
 275 
 276 property uint LVColumn.Idx()
 277 {
 278    if .param : return .param->LVColumnData.idx
 279    return -1
 280 }
 281 
 282 property vListView LVColumn.ListView()
 283 {
 284    if .param : return .param->LVColumnData.pColumns->LVColumns.pListView->vListView
 285    return 0->vListView
 286 }
 287 */
 288 /* Свойство uint Width - Get Set
 289 Устанавливает или определяет псевдоним колонки
 290 */
 291 property uint vListViewColumn.Width
 292 { 
 293    return .pWidth
 294 }
 295 
 296 property vListViewColumn.Width( uint val )
 297 {   
 298    if .pWidth != val
 299    {
 300       .pWidth = val
 301       .iWinUpdate( $LVCF_WIDTH )
 302    }   
 303 }
 304 
 305 
 306 /* Свойство uint Order - Get Set
 307 Устанавливает или определяет порядковый номер колонки при отображении
 308 */
 309 method vListView.iGetColumnOrders()
 310 {
 311    arr arcol[*.Columns] of uint
 312    uint i
 313    LVCOLUMN lvc
 314    
 315    .WinMsg( $LVM_GETCOLUMNORDERARRAY, *.Columns, arcol.ptr() )
 316    fornum i, *.Columns
 317    {
 318      // print( "xxx= \(i) \( arcol[i] )\n" )
 319       uint col as .Columns[arcol[i]]
 320       col.pOrder = i
 321       .arOrder[i] = &col
 322    }
 323    
 324    /*lvc.mask = $LVCF_ORDER
 325    fornum i, *.Columns
 326    {  
 327       uint col as .Columns[i]       
 328       if col.pVisible
 329       {
 330          .WinMsg( $LVM_GETCOLUMNW, i, &lvc )               
 331          col.pOrder = lvc.iOrder
 332       }
 333       .arOrder[col.pOrder] = &col
 334    } */    
 335 }
 336 
 337 /* Свойство uint Visible - Get Set
 338 Устанавливает или определяет видимость колонки
 339 */
 340 property uint vListViewColumn.Visible
 341 { 
 342    return .pVisible
 343 }
 344 
 345 property vListViewColumn.Visible( uint val )
 346 {  
 347    if .pVisible != val
 348    {
 349       .pVisible = val
 350       
 351       .iWinUpdate( $LVCF_WIDTH | $LVCF_ORDER )
 352       .Owner->vListView.iGetColumnOrders()
 353    }   
 354 }
 355 
 356 
 357 property uint vListViewColumn.Order
 358 { 
 359    return .pOrder
 360 }
 361 
 362 property vListViewColumn.Order( uint val )
 363 {   
 364    if .pOrder != val
 365    {
 366       .pOrder = val
 367       .iWinUpdate( $LVCF_ORDER )
 368       .Owner->vListView.iGetColumnOrders()
 369       .Owner->vListView.Invalidate()
 370    }   
 371 }
 372 
 373 /* Свойство str vListViewColumn.Image - Get Set
 374 Усотанавливает или получает картинку
 375 */
 376 /*property ustr vListViewColumn.ImageId <result>
 377 {
 378    result = this.pImageId
 379 }
 380 
 381 property vListViewColumn.ImageId( ustr val )
 382 {
 383    if val != .pImageId
 384    { 
 385       .pImageId = val
 386       //.iUpdateImage()
 387       .iWinUpdate( $LVCF_IMAGE | $LVCF_TEXT  )      
 388    } 
 389 }
 390 */
 391 
 392 /* Свойство str vListViewColumn.AdvSortColumn - Get Set
 393 Указатель на колонку для дополнительной сортировки
 394 */
 395 property vListViewColumn vListViewColumn.AdvSortColumn
 396 {
 397    return this.pAdvSortColumn->vListViewColumn
 398 }
 399 
 400 property vListViewColumn.AdvSortColumn( vListViewColumn val )
 401 {
 402    if &val != .pAdvSortColumn
 403    {  
 404       if &val
 405       {         
 406          uint next = &val
 407          uint lv as .Owner
 408          while next
 409          {
 410             if &next->vListViewColumn.Owner != &lv || next == &this : return
 411             next = next->vListViewColumn.pAdvSortColumn
 412          }
 413       }
 414       .pAdvSortColumn = &val                  
 415    } 
 416 }
 417 
 418 
 419 
 420 // Свойство str vListViewColumn.Sorted - Get Set
 421 //Сортировка колонки
 422 //
 423 property uint vListViewColumn.Sorted 
 424 {
 425    return this.pSorted
 426 }
 427 
 428 method vListViewColumn.iSortUpdate()
 429 {
 430    if .pSorted
 431    {
 432       uint lv as .Owner->vListView
 433       if lv.pSortedColumn && 
 434          lv.pSortedColumn != &this
 435       {
 436          lv.pSortedColumn->vListViewColumn.Sorted = 0          
 437       }         
 438       lv.pSortedColumn = &this
 439       lv.WinMsg( $LVM_SORTITEMSEX, &this, lv.pSortFunc ) 
 440    }           
 441 }
 442 
 443 property vListViewColumn.Sorted( uint val )
 444 {
 445    if val != .Sorted
 446    {  
 447       if .pSortType
 448       {
 449          .pSorted = val
 450          .iWinUpdate( $LVCF_FMT )
 451          .iSortUpdate()
 452       }
 453    }
 454 }
 455 
 456 // Свойство str vListViewColumn.DefSorted - Get Set
 457 //Сортировка колонки по умолчанию
 458 //
 459 property uint vListViewColumn.DefSorted 
 460 {
 461    return this.pDefSorted
 462 }
 463 
 464 property vListViewColumn.DefSorted( uint val )
 465 {
 466    if val != .DefSorted
 467    {       
 468       .pDefSorted = val
 469                  
 470    }
 471 
 472 }
 473 
 474 
 475 /* Свойство str vListViewColumn.SortType - Get Set
 476 Тип сортировки колонки
 477 */
 478 property uint vListViewColumn.SortType
 479 {
 480    return this.pSortType
 481 }
 482 
 483 property vListViewColumn.SortType( uint val )
 484 {
 485    if val != .pSortType
 486    { 
 487       .pSortType = val            
 488    }
 489    //.iUpdateImage()
 490  /*        
 491       this.pCaption.Value = val
 492       .iUpdateCaption()
 493       .iUpdateSize()      
 494    }*/ 
 495 }
 496 /*
 497 method LVColumn LVColumns.GetColumn( ustr alias )
 498 {
 499    uint i
 500    fornum i = 0, *this
 501    {
 502       uint column as this[i]
 503       if column.Alias == alias : return column             
 504    }
 505    return 0->LVColumn  
 506 }
 507 
 508 method uint LVColumns.IndexFromAlias( ustr alias )
 509 {
 510    uint column as .GetColumn( alias )
 511    if &column
 512    {
 513       return column.Idx()
 514    }
 515    return -1
 516 }
 517 */
 518 
 519 method LVRow.iWinInsert()
 520 {
 521    LVITEM lvi
 522    uint index = this.param->LVRowData.idx
 523    lvi.mask = /*$LVCF_SUBITEM |*/ $LVCF_TEXT | $LVIF_PARAM
 524    lvi.iItem = index  
 525    lvi.pszText = "ssss".ustr().ptr()
 526    lvi.lParam = &this   
 527    with this.param->LVRowData.pRows->LVRows.pListView->vListView
 528    {
 529       .flgRowInserting = 1
 530       .WinMsg( $LVM_INSERTITEMW, 0, &lvi )
 531       .flgRowInserting = 0
 532    }
 533 }
 534 
 535 
 536 method LVRows.init()
 537 {
 538    //this->arr.oftype( LVRow )
 539 }
 540 method LVRow LVRows.index( uint idx )
 541 {
 542    return this->arr of uint[idx]->LVRow
 543 }
 544 
 545 method LVRow LVRows.Insert( uint index, gtitem srcitem )
 546 {   
 547    uint item as LVRow
 548    uint data
 549    index = min( index, *this )
 550    this.insert( index )
 551    uint after as ?( index, this[index-1], 0 )->gtitem
 552    uint listview as .pListView->vListView   
 553          
 554    if &srcitem : item as listview.gtrows->gtitem.copy( srcitem, after )->LVRow
 555    else : item as listview.gtrows->gtitem.insertchild( "", after )->LVRow
 556     
 557    this->arr of uint[index] = &item  
 558   
 559    data as new( LVRowData )->LVRowData  
 560    item.param = &data
 561    data.pRows = &this
 562    data.idx = index
 563    
 564    uint i
 565    fornum i = index + 1, *this
 566    {
 567       this[i].param->LVRowData.idx++
 568    }
 569    
 570    item.iWinInsert()  
 571    if &srcitem : item.iWinUpdate( 0 )
 572    if !&listview.Selected: listview.Selected = item
 573    return item
 574 }
 575 
 576 method LVRow LVRows.Insert( uint index )
 577 {
 578    return .Insert( index, 0->gtitem )
 579 }
 580 
 581 method LVRow LVRows.Append( gtitem srcitem )
 582 {
 583    return .Insert( *this, srcitem )
 584 }
 585 
 586 method LVRow LVRows.Append()
 587 {
 588    return .Insert( *this, 0->gtitem )
 589 }
 590 
 591 method LVRows.SetCount( uint count )
 592 {
 593    uint listview as .pListView->vListView
 594    
 595    if listview.pOwnerData
 596    {
 597       listview.WinMsg( $LVM_SETITEMCOUNT, count )      
 598    } 
 599 }
 600 
 601 
 602 
 603 method LVRow.iWinUpdate( uint mask )
 604 {
 605    if .param
 606    {  
 607       LVRow lvr    
 608       uint data as .param->LVRowData
 609       uint rows as data.pRows->LVRows
 610       uint listview as rows.pListView->vListView
 611       uint columns as listview.Columns
 612       uint i
 613       fornum i, *columns
 614       { 
 615          uint cell as LVCell      
 616          if *columns[i].Alias 
 617          {   
 618             cell as .FindCell(columns[i].Alias)
 619 /*                      
 620             uint cell as .findrel( "/" + columns[i].Alias.str() )->LVCell
 621             if &cell
 622             {
 623             LVITEM lvi
 624             lvi.mask = $LVIF_TEXT //mask// | $LVCF_WIDTH
 625             lvi.iItem = data.idx      
 626             lvi.iSubItem = i//column.param->LVColumnData.idx 
 627             lvi.pszText = cell.Label->locustr.Text( listview ).ptr()            
 628             //lvc.cx = 100
 629             listview.WinMsg( $LVM_SETITEMW, 0, &lvi )
 630             }*/
 631          }
 632          else
 633          {
 634             cell as this[i]
 635          }
 636          //evparValUint evu
 637          //evu.val = &cell
 638          //listview.OnGetLabel.Run( evu, listview )
 639          
 640          cell.iWinUpdate( $LVIF_TEXT | $LVIF_STATE )//? ( i, 0, $LVIF_STATE ) )         
 641       }
 642       /*lvr.mask = $LVCF_TEXT//mask// | $LVCF_WIDTH
 643       lvr.pszText = .Label->locustr.Text( listview ).ptr()
 644       //lvc.cx = 100
 645       
 646       */
 647    }
 648 }
 649 
 650 
 651 
 652 method LVRow.Release()
 653 {   
 654    if .param
 655    {      
 656       uint data as .param->LVRowData
 657       uint rows as data.pRows->LVRows
 658       uint listview as rows.pListView->vListView
 659       uint visindex = .VisIndex
 660       if &listview.Selected == &this
 661       {  
 662          uint newsel, newidx
 663          /*if data.idx < *rows - 1 : newsel as rows[data.idx + 1]
 664          elif data.idx > 0 : newsel as rows[data.idx - 1]
 665          else : newsel = 0*/
 666          if visindex < *rows - 1 : newidx = visindex + 1
 667          elif visindex > 0 : newidx = visindex - 1
 668          else : newidx = -1
 669          /*
 670          
 671          newidx = listview.WinMsg( $LVM_GETNEXTITEM, visindex, $LVNI_BELOW )
 672          print( "newidx1 \(newidx )\n" ) 
 673          if newidx == -1 
 674          {
 675              newsel = listview.WinMsg( $LVM_GETNEXTITEM, visindex, $LVNI_ABOVE )
 676          }
 677          print( "newidx2 \(newidx )\n" )*/
 678          if newidx == -1 : newsel = 0
 679          else
 680          {            
 681             listview.RowFromVisIndex( newidx ) 
 682          }
 683                                              
 684          listview.Selected = newsel->LVRow                
 685       }      
 686       uint i
 687       fornum i = data.idx + 1, *rows
 688       {
 689          rows[i].param->LVRowData.idx--
 690       }      
 691       listview.WinMsg( $LVM_DELETEITEM, visindex )
 692       rows.del( data.idx )
 693       destroy( &data )
 694       .param = 0
 695    }
 696 }
 697 
 698 method LVRow.Del()
 699 {   
 700 
 701    .Release()
 702    .del()
 703       
 704 }
 705 
 706 /* Свойство uint Prev - Get
 707 Определяет предыдущий элемент, если он есть, иначе 0
 708 */
 709 property LVRow LVRow.Prev
 710 {   
 711    return this->gtitem.getprev()->LVRow
 712    //return this->gtitem.getprev()->LVRow
 713 }
 714 
 715 /* Свойство uint Next - Get
 716 Определяет предыдущий элемент, если он есть, иначе 0
 717 */
 718 property LVRow LVRow.Next
 719 {    
 720    return this->gtitem.getnext()->LVRow
 721 }
 722 
 723 property uint LVRow.VisIndex
 724 {
 725    LVFINDINFO fi
 726    uint lv as .param->LVRowData.pRows->LVRows.pListView->vListView
 727    fi.flags = $LVFI_PARAM
 728    fi.lParam = &this 
 729    return lv.WinMsg( $LVM_FINDITEMW, -1, &fi )  
 730 }
 731 
 732 method LVRow.MoveTo( LVRow dest, uint flag )
 733 {   
 734 
 735    //if &this.Next() != &dest
 736    {  
 737       uint lv as .param->LVRowData.pRows->LVRows.pListView->vListView 
 738       uint rows as lv.Rows
 739       evparBeforeMove evpB
 740       evpB.CurItem = &this
 741       evpB.DestItem = &dest      
 742       evpB.Flag     = flag
 743       lv.OnBeforeMove.run( evpB )
 744       if !evpB.flgCancel
 745       {            
 746          uint srcidx = .Idx
 747          uint destidx
 748          switch flag
 749          {
 750             case $TREE_BEFORE
 751             { 
 752                destidx = dest.Idx
 753                if destidx > srcidx : destidx--
 754             }
 755             case $TREE_AFTER
 756             {
 757                destidx = dest.Idx
 758                if destidx < srcidx : destidx++  
 759             }
 760             case $TREE_FIRST
 761             {
 762                destidx = 0
 763             }
 764             case $TREE_LAST
 765             {
 766                destidx = *rows - 1            
 767             }
 768          }
 769          lv.WinMsg( $LVM_DELETEITEM, /*.Idx*/.VisIndex, 0)
 770          this.move( dest, flag )
 771          rows.move( srcidx, destidx )
 772          uint i
 773          fornum i = min( srcidx, destidx ), max( srcidx, destidx ) + 1
 774          {
 775             rows[i].param->LVRowData.idx = i
 776          }
 777          //lv.WinMsg( $LVM_INSERTITEM, .Idx
 778          this.iWinInsert()
 779          this.iWinUpdate( 0 )
 780          evparAfterMove evpA
 781          evpA.CurItem = &this
 782          evpA.DestItem = &dest
 783          evpA.Flag = flag
 784          lv.OnAfterMove.run( evpA )
 785          if &lv.Selected == &this
 786          {
 787             lv.Selected = 0->LVRow
 788             lv.Selected = this
 789          }
 790       }
 791    }
 792 }
 793 
 794 method LVCell.iCheck( LVRow row )
 795 {  
 796    if !.param : .param = new( LVCellData )
 797    .param->LVCellData.row = &row
 798    //.param->LVCellData.column = &.Columns[col]   
 799 }
 800 
 801 
 802 method LVCell LVRow.FindCell( ustr alias )
 803 {
 804    uint listview as .param->LVRowData.pRows->LVRows.pListView->vListView
 805    uint col as listview.Columns.Find( alias )
 806    uint cell as .findrel( "/\(alias.str())" )->LVCell
 807    if !&cell 
 808    {
 809       //if &col : cell as this[col.Idx]
 810       //else : cell as .insertchild( alias.str(), (-1)->gtitem )
 811       cell as .insertchild( alias.str(), (-1)->gtitem )
 812    }
 813    if !cell.param 
 814    {
 815       cell.param = new( LVCellData )
 816    }
 817    cell.param->LVCellData.row = &this
 818    cell.param->LVCellData.column = &col      
 819    return cell
 820 }
 821 
 822 method LVCell LVRow.index( uint colidx )
 823 {
 824    uint cell
 825    uint listview as .param->LVRowData.pRows->LVRows.pListView->vListView   
 826    if colidx < *listview.Columns
 827    {          
 828       if *listview.Columns[colidx].Alias
 829       {
 830          return .FindCell( listview.Columns[colidx].Alias )
 831       }      
 832       uint idx
 833       foreach cell, this
 834       {         
 835          if idx == colidx
 836          {         
 837             if !cell.param 
 838             {
 839                cell.param = new( LVCellData )
 840             }            
 841             cell.param->LVCellData.row = &this
 842             cell.param->LVCellData.column = ?( colidx < *listview.Columns, &listview.Columns[ colidx ], 0 )
 843             return cell->LVCell
 844          }
 845          idx++
 846       }
 847       //cell as (-1)->LVCell
 848    }
 849    elif !colidx
 850    {
 851       cell as .child()
 852       if !&cell
 853       {
 854          cell as .insertchild( "", (-1)->gtitem )
 855       }
 856       if !cell.param 
 857       {
 858          cell.param = new( LVCellData )
 859       }
 860       cell.param->LVCellData.row = &this
 861       cell.param->LVCellData.column = ?( colidx < *listview.Columns, &listview.Columns[ colidx ], 0 )
 862       return cell->LVCell  
 863    } 
 864     
 865    return (-1)->LVCell
 866       /*
 867    fornum idx, colidx + 1
 868    {
 869       str alias
 870       if idx < *listview.Columns
 871       {
 872          alias = listview.Columns[idx].pAlias.str() 
 873       }      
 874       cell as .insertchild( alias, cell )      
 875    }
 876 label end   
 877    if !cell.param 
 878    {
 879       cell.param = new( LVCellData )
 880    }
 881    cell.param->LVCellData.row = &this
 882    cell.param->LVCellData.column = ?( colidx < *listview.Columns, &listview.Columns[ colidx ], 0 )      
 883    return cell*/
 884 }
 885 
 886 method LVCell vListView.Cells( uint rowidx, uint colidx )
 887 {
 888    if rowidx < *.Rows
 889    {  
 890       uint row as .Rows[rowidx]
 891       return row[ colidx ]
 892    }
 893    return 0->LVCell
 894    /*
 895    uint row as .Rows[rowidx]
 896    //return 0->LVCell
 897       
 898    uint item as gtitem
 899    if *.Columns && *.Columns[colidx].Alias
 900    {   
 901       item as row.findrel( "/\(.Columns[colidx].Alias.str())" )
 902       if !&item
 903       {
 904          item as row.insertchild( .Columns[colidx].Alias.str(), (-1)->gtitem )
 905       }
 906    }
 907    else
 908    {
 909          uint idx 
 910          foreach item, row
 911          {
 912             if idx == colidx
 913             {
 914                goto end
 915             }
 916             idx++
 917          }
 918          fornum idx, colidx + 1
 919          {
 920             item as row.insertchild( "", item )
 921          }
 922    }
 923 label end
 924    if !item.param : item.param = new( LVCellData )
 925    item.param->LVCellData.row = &row
 926    if *.Columns
 927    {
 928       item.param->LVCellData.column = &.Columns[colidx]      
 929    }
 930    else : item.param->LVCellData.column = 0
 931    return item->LVCell*/
 932 }
 933 
 934 
 935 method LVCell.iWinUpdate( uint mask )
 936 {
 937    if .param 
 938    {
 939       LVITEM lvi    
 940       uint data as .param->LVCellData
 941       uint row as data.row->LVRow
 942       uint listview as row.param->LVRowData.pRows->LVRows.pListView->vListView
 943       
 944       lvi.pszText = .Label.ptr()
 945       if data.column
 946       {
 947          uint column as data.column->vListViewColumn
 948          lvi.iSubItem = column.pIndex//param->LVColumnData.idx
 949          if column.pUseLanguage 
 950          {
 951             lvi.pszText = .Label->locustr.Text( listview ).ptr()
 952          }
 953       }
 954       else  
 955       {
 956          lvi.iSubItem = 0         
 957       }
 958                
 959       uint tname
 960       ustr imgname   
 961       tname as .get( "image" )
 962       if &tname
 963       {      
 964          imgname.fromutf8( tname )
 965          lvi.iImage = listview.ptrImageList->ImageList.GetImageIdx( listview.numImageList, imgname, uint( .get( "disabled", "" ) ) )
 966       }                   
 967       else : lvi.iImage = -1  
 968       //lvi.iImage = 8     
 969       //print( "WinUpdate \(&listview) \( lvi.iItem) \( lvi.iSubItem ) \(.Label->locustr.Text( listview ).str()) \n" )
 970       
 971       lvi.mask = $LVIF_TEXT | $LVIF_IMAGE//mask// | $LVCF_WIDTH
 972       if !lvi.iSubItem
 973       {     
 974          lvi.mask |= $LVIF_STATE
 975          lvi.stateMask |= $LVIS_STATEIMAGEMASK
 976          if listview.pCheckBoxes
 977          {
 978             uint state = .StateIndex()            
 979             if !state : state = 1
 980             lvi.state = state << 12 
 981          }
 982       }      
 983       //lvi.mask |= $LVIF_STATE
 984       lvi.iItem = row.VisIndex/*row.param->LVRowData.idx*/
 985       //lvc.cx = 100      
 986       listview.WinMsg( $LVM_SETITEMW, lvi.iItem, &lvi )
 987       if listview.pSortedColumn
 988       {  
 989          listview.pSortedColumn->vListViewColumn.iSortUpdate()
 990       }
 991    }
 992 }
 993 
 994 property vListViewColumn LVCell.Column()
 995 {
 996    if .param
 997    {        
 998       return .param->LVCellData.column->vListViewColumn
 999    }
1000    return 0->vListViewColumn
1001 }
1002 /* Свойство ustr Label - Get Set
1003 Устанавливает или определяет заголовок колонки
1004 */
1005 property ustr LVCell.Label <result>
1006 { 
1007    uint name as .get( "label" )     
1008    if &name
1009    {
1010       result.fromutf8( name ).ptr()
1011    }        
1012 }
1013 
1014 property LVCell.Label( ustr val )
1015 {   
1016    .set( "label", val.toutf8( "" ) )   
1017    .iWinUpdate( $LVIF_TEXT )   
1018 }
1019 
1020 /* Свойство ustr vToolBarItem.ImageId - Get Set
1021 Устанавливает или получает картинку
1022 */
1023 property ustr LVCell.ImageId <result>
1024 {
1025    result.fromutf8( .get( "image" ) ).ptr()
1026 }
1027 
1028 property LVCell.ImageId( ustr val )
1029 {
1030    //if val != "".ustr().fromutf8( .get( "image" ) )
1031    { 
1032       .set( "image", val.toutf8( "" ) )
1033       .iWinUpdate( $LVIF_IMAGE  )     
1034    }   
1035 }
1036 
1037 
1038 /* Свойство uint StateIndex - Get Set
1039 Устанавливает или определяет состояние ячейки
1040 */
1041 property uint LVCell.StateIndex
1042 { 
1043    return .getuint( "stateindex" )
1044 }
1045 
1046 property LVCell.StateIndex( uint val )
1047 {
1048    .setuint( "stateindex", val )
1049    .iWinUpdate( $LVIF_STATE )
1050 }
1051 
1052 
1053 /* Свойство uint StateIndex - Get Set
1054 Устанавливает или определяет состояние ячейки
1055 */
1056 property uint LVRow.Checked()
1057 {    
1058    uint state = this[0].StateIndex
1059    if state : state--
1060    return state
1061 }
1062 
1063 property LVRow.Checked( uint val )
1064 {   
1065    this[0].StateIndex = val + 1  
1066 }
1067 
1068 /* Свойство ustr Tag - Get Set
1069 Устанавливает или определяет заголовок колонки
1070 */
1071 property uint LVCell.Tag 
1072 { 
1073    return .getuint( "tag" )
1074 }
1075 
1076 property LVCell.Tag( uint val )
1077 {
1078    .setuint( "tag", val )   
1079 }
1080 
1081 property uint LVRow.Tag 
1082 { 
1083    return .getuint( "tag" )
1084 }
1085 
1086 property LVRow.Tag( uint val )
1087 {
1088    .setuint( "tag", val )   
1089 }
1090 
1091 property LVCell LVRow.Item()
1092 {
1093    if .param
1094    {      
1095       return .param->LVRowData.pRows->LVRows.pListView->vListView.Cells( .param->LVRowData.idx, 0 )      
1096    }
1097    return 0->LVCell
1098 }
1099 
1100 /* Свойство ustr Label - Get Set
1101 Устанавливает или определяет заголовок колонки
1102 */
1103 /*property ustr LVRow.Label <result>
1104 { 
1105    uint name as .get( "label" )     
1106    if &name
1107    {
1108       result.fromutf8( name ).ptr()
1109    }        
1110 }
1111 
1112 property LVRow.Label( ustr val )
1113 {
1114    .set( "label", val.toutf8( "" ) )
1115    .iRowUpdate( $LVCF_TEXT )
1116 }*/
1117 property uint LVRow.Idx()
1118 {
1119    if .param
1120    {
1121       return .param->LVRowData.idx
1122    }
1123    return 0 
1124 }
1125 
1126 
1127 operator uint *( LVSelection obj )
1128 {
1129    if obj.pListView->vListView.hwnd
1130    {
1131       return obj.pListView->vListView.WinMsg( $LVM_GETSELECTEDCOUNT )
1132    }
1133    return 0   
1134 }
1135 
1136 
1137 method uint LVSelection.eof( fordata tfd )
1138 {
1139    return tfd.icur >= *.Items
1140 }
1141 
1142 
1143 method uint LVSelection.next( fordata tfd )
1144 {
1145    if ++tfd.icur >= *.Items : return 0   
1146    return .Items[tfd.icur] 
1147 }
1148 
1149 
1150 method uint LVSelection.first( fordata tfd )
1151 {
1152    tfd.icur = 0
1153    if tfd.icur >= *.Items : return 0   
1154    return .Items[tfd.icur] 
1155 }
1156 
1157 method LVRow LVSelection.index( uint idx )
1158 {
1159    if idx < *.Items : return .Items[idx]->LVRow
1160    return 0->LVRow
1161 } 
1162 
1163 method LVSelection.iSelect( uint idx, uint selected )
1164 {
1165    LVITEM lvi   
1166    lvi.stateMask = $LVIS_SELECTED
1167    if selected : lvi.state |= $LVIS_SELECTED   
1168    .pListView->vListView.WinMsg( $LVM_SETITEMSTATE, idx, &lvi )
1169 }
1170 
1171 method LVSelection.iAppend( LVRow row )
1172 {
1173    .Items[.Items.expand(1)] = &row
1174 }
1175 
1176 method uint LVSelection.Find( LVRow row )
1177 {
1178    uint i   
1179    fornum i = 0, *.Items
1180    {      
1181       if .Items[i] == &row : return i
1182    }  
1183    return -1
1184 }
1185 
1186 method LVSelection.iRemove( LVRow row )
1187 {
1188    uint idx = .Find( row )
1189    if idx != -1 : .Items.del( idx )   
1190 }
1191 
1192 
1193 
1194 method LVSelection.Append( LVRow row  )
1195 {
1196    if .pListView->vListView.hwnd : .iSelect( ?( .pListView->vListView.pOwnerData, &row, row.VisIndex ), 1 )
1197    else : .iAppend( row )
1198 }
1199 
1200 method LVSelection.Remove( LVRow row )
1201 {
1202    if .pListView->vListView.hwnd : .iSelect( ?( .pListView->vListView.pOwnerData, &row, row.VisIndex ), 0 )
1203    else : .iRemove( row )   
1204 }
1205 
1206 method LVSelection.Clear()
1207 {  
1208    if .pListView->vListView.hwnd 
1209    {
1210       .iSelect( -1, 0 )
1211    }
1212    else
1213    {      
1214       .Items.clear()      
1215    } 
1216 }
1217 
1218 method LVSelection.SelectAll()
1219 {   
1220    if .pListView->vListView.hwnd 
1221    {
1222       .iSelect( -1, 1 )      
1223    }
1224    else
1225    {  
1226       .Items.clear()
1227       foreach row, .pListView->vListView
1228       {
1229          .Items[.Items.expand( 1 )] = &row
1230       }
1231    } 
1232 }
1233 
1234 method LVSelection.Arrange()
1235 {
1236 
1237    uint rows as .pListView->vListView.Rows
1238    //curitem as root->TVItem
1239    uint index = 0
1240    uint curindex
1241    //while ( curitem as curitem.NextInList )
1242    foreach currow, rows
1243    {
1244    //print("Arrange \(.Find( currow ))\n")
1245       if ( curindex = .Find( currow )) != -1
1246       {           
1247          .Items.move( curindex, index++ ) 
1248       }
1249    }
1250 }
1251 
1252 method uint LVRows.eof( fordata tfd )
1253 {   
1254    return tfd.icur >= *this
1255 }
1256 
1257 
1258 method uint LVRows.next( fordata tfd )
1259 {   
1260    if ++tfd.icur < *this
1261    {   
1262       return &this[tfd.icur]
1263    }
1264    return 0
1265 }
1266 
1267 
1268 method uint LVRows.first( fordata tfd )
1269 {  
1270    tfd.icur = 0   
1271    if tfd.icur < *this
1272    {   
1273       return &this[tfd.icur]
1274    }
1275    return 0  
1276 }
1277 
1278 method LVRows.iWinClear( uint flgdelitem )
1279 {
1280    with .pListView->vListView
1281    {       
1282       .Selected = 0->LVRow               
1283       .Selection.Clear()
1284       .WinMsg( $LVM_DELETEALLITEMS )           
1285       if !.pListView->vListView.pOwnerData && .gtrows
1286       {      
1287          foreach item, .gtrows->gtitem
1288          {  
1289             if item->LVRow.param 
1290             {
1291                destroy( item->LVRow.param )
1292                item->LVRow.param = 0
1293             }
1294             if flgdelitem : item->LVRow.del() 
1295          }
1296       }            
1297    }
1298    .clear()
1299    
1300 }
1301 
1302 method LVRows.Clear()
1303 {   
1304    .iWinClear( 1 )   
1305 //   .pListView->vListView.gtrows->gtitem.del()
1306 //   .pListView->vListView.gtrows = 0
1307 //   .pListView->vListView.Reload()         
1308 }
1309 
1310 method uint LVColumns.eof( fordata tfd )
1311 {   
1312    return tfd.icur >= *this
1313 }
1314 
1315 
1316 method uint LVColumns.next( fordata tfd )
1317 {     
1318    if ++tfd.icur < *this
1319    {   
1320       return &this[tfd.icur]
1321    }
1322    return 0
1323 }
1324 
1325 
1326 method uint LVColumns.first( fordata tfd )
1327 {  
1328    tfd.icur = 0
1329    if tfd.icur < *this
1330    {   
1331       return &this[tfd.icur]
1332    }
1333    return 0   
1334 }
1335 
1336 method vListViewColumn LVColumns.Find( ustr alias )
1337 {
1338    foreach col, this
1339    {
1340       if col.Alias == alias
1341       {
1342          return col 
1343       }
1344    }
1345    return 0->vListViewColumn
1346 }
1347 
1348 property uint vListViewColumn.Idx()
1349 {  
1350    return this.pIndex
1351 }
1352 
1353 method vListViewColumn.mLangChanged <alias=vListViewColumn_mLangChanged>()
1354 {
1355    .iWinUpdate( $LVCF_TEXT )
1356    this->vComp.mLangChanged()
1357    if .pUseLanguage && &.Owner
1358    {
1359       uint listview as .Owner->vListView
1360       uint i
1361       fornum i = 0, *listview.Rows
1362       {
1363          listview.Cells( i, .pIndex ).iWinUpdate( $LVCF_TEXT )
1364       }  
1365    }   
1366 }
1367 
1368 method vListViewColumn.mPreDel <alias=vListViewColumn_mPreDel>()
1369 {  
1370    
1371    uint listview as .Owner->vListView
1372    if listview.pSortedColumn == &this
1373    {
1374       listview.pSortedColumn = 0
1375    }
1376    this->vComp.mPreDel()
1377       
1378 }
1379 
1380 property uint vListViewColumn.UseLanguage()
1381 {
1382    return .pUseLanguage
1383 }
1384 
1385 property vListViewColumn.UseLanguage( uint val)
1386 {  
1387    .AutoLang = val
1388    if .pUseLanguage != val
1389    { 
1390       .pUseLanguage = val
1391       if val : .Virtual( $mLangChanged )
1392    }   
1393 }