That is it! Thanks a lot

 

one more question: What for are the properties 'StrictBestFit' and 'AllowSelectionCheck'?

 

Thanks for helping hand

1st - get and install official 13.1 (Mid of June 2009) from CJ Store

 

2nd - get fresh upgrade here - https://forum.codejock.com/uploads/DemoVersion/ReportControlUpdated.rar
unrar it on same place your official 13.1 located.

Rename the same way as official filename use
No need to re-registrate as you already had it

 

I will try it. Where from can I download the latest ReprtControl OCX for 13.1?

 

Thanks again

 

BestFit in your case - looks good -

 

 

Private Sub Form_Load()
  Dim ReportCol As ReportColumn
  Dim ReportRec As ReportRecord
  Dim Item As ReportRecordItem
  Dim i As Integer
  Dim w As Integer
  w = 200
  Call CJInitReport(ReportControl1)
  ReportControl1.EnableDragDrop "Report", xtpReportAllowDrop + xtpReportAllowDrag
  ReportControl1.AllowEdit = True
 
  ReportControl1.ShowGroupBox = True 'False
  ReportControl1.HideColumnAfterGroupBoxDrop = False
 
  ReportControl1.AllowColumnRemove = True
  ReportControl1.AllowColumnSort = False
  'ReportControl1.AllowColumnSort = True
  ReportControl1.PaintManager.HideSelection = True
  '---Wird nur gebraucht, um die Gruppenzeile schmaler zu machen
  ReportControl1.PaintManager.ShadeGroupHeadings = True
  ReportControl1.PaintManager.GroupShadeBackColor = RGB(245, 245, 245)
  '---
  ReportControl1.PaintManager.ShadeSortColumn = False
 
  Set ReportCol = ReportControl1.Columns.Add(0, "Date", w, True)
  Set ReportCol = ReportControl1.Columns.Add(1, "Code", w, True)
  Set ReportCol = ReportControl1.Columns.Add(2, "Price", w, True)
 
  For i = 0 To 100
    Set ReportRec = ReportControl1.Records.Add
   
    Set Item = ReportRec.AddItem(Format(Now() + i Mod 10, "short date"))
    Set Item = ReportRec.AddItem(CStr(4000 + i))
    Set Item = ReportRec.AddItem(Format$(200 + Rnd() * 10, "###,###.00"))
  Next i
 
  'ReportControl1.IconViewRowNumberSetup 0, 0, 1, 20
 
  ReportControl1.SortOrder.Add ReportControl1.Columns.Find(0)
  'ReportControl1.SortOrder.Add ReportControl1.Columns.Find(1)
  ReportControl1.GroupsOrder.Add ReportControl1.Columns.Find(0)
 
  ReportControl1.Populate
 
  ReportControl1.Columns(0).BestFit
  ReportControl1.Columns(1).BestFit
  ReportControl1.Columns(2).BestFit
 
  ReportControl1.SortedDragDrop = True
  Check.Value = 1
 
  ReportControl1.Redraw
End Sub

See -

I simplify your code - e.g. in 

Private Sub Form_Load()

.................................

  ReportControl1.SortOrder.Add ReportControl1.Columns.Find(0)
  'ReportControl1.SortOrder.Add ReportControl1.Columns.Find(1)
  ReportControl1.GroupsOrder.Add ReportControl1.Columns.Find(0)

 

  ReportControl1.SortedDragDrop = True
  Check.Value = 1
 
End Sub

add action function -

 

Private Sub ReportControl1_RecordsDropped(ByVal TargetRecord As XtremeReportControl.IReportRecord, ByVal Records As XtremeReportControl.IReportRecords, ByVal Above As Boolean)
    Dim RepRec       As ReportRecord
    Dim i            As Integer

    
    Set RepRec = TargetRecord
   
    If Not RepRec Is Nothing Then
      For i = 0 To Me.ReportControl1.SelectedRows.Count - 1
         ReportControl1.SelectedRows(i).Record.Item(0).Caption = RepRec.Item(0).Caption
         ReportControl1.SelectedRows(i).Record.Item(0).BackColor = RGB(128, 128, 128)
      Next i
 
    ReportControl1.SortOrder.Add ReportControl1.Columns.Find(0)
    'ReportControl1.SortOrder.Add ReportControl1.Columns.Find(1)
   
    ReportControl1.GroupsOrder.Add ReportControl1.Columns.Find(0)
   
    ReportControl1.Populate
   
    End If
   
End Sub

 

 

 

If this really works I will install 13.1 immediately!

 

Thanks