Previewtext Alignment.

Hi all.

 

Using 13.1 and trying to work with previewtext

 

.SetCustomDraw xtpCustomDrawPreviewItem

 

Private Sub repLic_DrawPreviewItem(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal hDC As stdole.OLE_HANDLE, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long, DoDefault As Boolean)
  Item.Alignment = xtpAlignmentCenter
  Item.BackColor = vbBlack
  Item.ForeColor = vbWhite
  Item.Bold = True
  Item.Caption = "WTF?! more bugs?..."
End Sub

the eventhandler works somewhat.. on Populate or Redraw it doesnt work at all, but Once my mouse has moved over a columnHeader!!!!...  the item.caption from the handler shows up in the report. (overwriting the original PreviewText)  All other Item properties I set in the DrawPreviewItem event are ignored.

 

What am i doing wrong....

 

Jurgen

 

Addendum: When I click on the report event is triggered as well. Item.Caption is set Item Properties are ignored.

 

i'm sure that if that works the event will work as well. All properties of the PreviewItem other than Caption are ignored...

 

Private Sub Form_Load()
 
  With ReportControl
    .PreviewMode = True

    .Columns.Add 0, "test", 200, 1
    With .Records.Add
      .AddItem "Sara Deer"
      .PreviewText = "this is the default."
    End With
    With .Records.Add
      .AddItem "John Doe"
      .PreviewText = "dummy"

      .PreviewItem.Caption = "this must be red centered"
      .PreviewItem.Alignment = xtpAlignmentCenter
      .PreviewItem.ForeColor = vbRed
    End With
    .Populate
  End With

End Sub

I'm sure you are.  Sorry to be the messenger of yet another bug.