Most are problems of incorrect casting (each version of the pompiler is more strict)
nIndex = frmEmployees.lstEmployees.Items.Add( pStmt.ColumnText(wszColumnName), cast(long, pData) )
--- must be
nIndex = frmEmployees.lstEmployees.Items.Add( pStmt.ColumnText(wszColumnName), cast(INTEGER, pData) )
dim pData as longint ptr = cast(longint ptr, frmSetup.lstData.SelectedItem.Data32)
--- must be
dim pData as longint ptr = cast(longint ptr, CAST(INTEGER, frmSetup.lstData.SelectedItem.Data32))
if combo.SelectedIndex > -1 then pData = cast(CWSTR ptr, combo.SelectedItem.Data32)
--- must be
if combo.SelectedIndex > -1 then pData = cast(CWSTR ptr, CAST(INTEGER, combo.SelectedItem.Data32))
frmSetup.lstData.Items.Add( pStmt.ColumnText(wszColumnName), cast(long, pData) )
--- must be
frmSetup.lstData.Items.Add( pStmt.ColumnText(wszColumnName), cast(long, CAST(INTEGER, pData)) )
They have also modified windowsx.bi
nIndex = ComboBox_FindStringExact( frmSetup.comboLevel.hWindow, -1, pStmt.ColumnText("grouplevel") )
--- must be
nIndex = ComboBox_FindStringExact( frmSetup.comboLevel.hWindow, -1, STRPTR(pStmt.ColumnText("grouplevel") ) )
I haven't yet found the correct syntax for DELETE.