VirtualList Mode Problems

Hello everyone,

I'm a little newbie in using this control, i have done research inside this forum but doesn't find any answers.
I don't find a lot of information about SetVirtualMode option and samples are not very helpfull.

So here is my problem :
I would like to have a checkbox on one editable column and a format number on a non editable column


For the format column i am using sample from this web page
http://manpagesfr.free.fr/man/man3/printf.3.html

My exemple is really simple using codejock 13.4.0, 1 form with 1 reportcontrol only Here the code :

Option Explicit

Private Const COLONNE_TEXT = 0
Private Const COLONNE_AMOUNT = 1
Private Const COLONNE_CHECKBOX = 2

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Private Sub Form_Initialize()
    InitCommonControls
End Sub

Private Sub Form_Load()


    RPList.Columns.DeleteAll
    RPList.Records.DeleteAll
    
    RPList.AllowColumnSort = True
    RPList.AllowEdit = True
    RPList.EditOnClick = True
    
    Dim RPColumn As ReportColumn


    Set RPColumn = RPList.Columns.Add(COLONNE_TEXT, "COLONNE_TEXT", 100, True)
    RPColumn.Editable = False
    Set RPColumn = RPList.Columns.Add(COLONNE_AMOUNT, "COLONNE_AMOUNT", 100, True)
    RPColumn.Editable = False
    RPColumn.Alignment = xtpAlignmentRight
    Set RPColumn = RPList.Columns.Add(COLONNE_CHECKBOX, "COLONNE_CHECKBOX", 100, False)
    RPColumn.Editable = True
    RPColumn.Alignment = xtpAlignmentIconCenter
    
    InitDataListe
    
    RPList.CreateIconViewAndRowNumberColumn

    RPList.SetCustomDraw xtpCustomBeforeDrawRow

    RPList.PaintManager.FreezeColsDividerColor = RGB(150, 150, 20)
    RPList.PaintManager.FreezeColsDividerStyle = RPList.PaintManager.FreezeColsDividerStyle Or xtpReportFreezeColsDividerBold

    RPList.Redraw

End Sub

Private Sub InitDataListe()

RPList.SetVirtualMode 15000
RPList.Populate

End Sub

Private Sub RPList_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, _
               ByVal Item As XtremeReportControl.IReportRecordItem, _
               ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)

    Select Case Item.Index
       
        Case COLONNE_TEXT
            Metrics.Text = "COLONNE_TEXT"
       
     
        Case COLONNE_AMOUNT
            Item.Format = "%aq.2f"
            Metrics.Text = "10214.12"
            
        Case COLONNE_CHECKBOX
            If Not Item.HasCheckbox Then
               Item.HasCheckbox = True
               Item.Editable = True
               Item.TristateCheckbox = False
               Item.CanEditCheckboxItem = False
            End If
    
    End Select

End Sub

When i click on the checkbox all the column has the checkbox check and my amount is never formatted but it should be like this in output : 10 214.12

Can anyone help me to figure what is the problem, there must be something i missed ?

Thank You

Hello,