use Third-party listview control Error

[Davider]

Hi,

I tried to use the listview control in the Suite Pro for ActiveX in QM, Most functions execute correctly and Work well

But the following QM code prompts the following error when executing the function( ListViewIcons.Icons.LoadBitmap )
 

Code:

Copy      Help

Error in Macro13:DlgProc:  function at left does not return interface pointer.

 
vb6 original code:
 

Code:

Copy      Help

ListViewIcons.ListItems.Add , , "Settings", 1
ListViewIcons.ListItems.Add , , "Find", 2
ListViewIcons.ListItems.Add , , "Run", 3
ListViewIcons.ListItems.Add , , "Help", 4
    
ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaSettings.bmp", 1, xtpImageNormal
ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaFind.bmp", 2, xtpImageNormal
ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaRun.bmp", 3, xtpImageNormal
ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaHelp.bmp", 4, xtpImageNormal

Some transcoding skills may be required, Any suggestions and help are welcome
david

Macro Macro13

Code:

Copy      Help

typelib XtremeSuiteControls {A8E5842E-102B-4289-9D57-3B3F5B5E15D3} 22.0

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog" "4"
;3 ActiveX 0x54030000 0x0 0 0 106 104 "XtremeSuiteControls.ListView {C0DE2200-31D2-4B4A-85B8-14C2465ADA30} data:9100C7188F07F61794041F6F4F91A6E35DB314295A995DFAF236C3BA7BCCC6441EAB3F4EAAF4B2CA4BCB036A228425DA4F74D874C4E9818BC9B33331A09098256AAF6735D601AE1FC22BCB221684994B05C62512565F0F3340616EE884B36A2FE2FB62484676B82CBDE8AA1F92B1DAA7320869B37E08348C00877CD16318084825DA501ADE1FE14D03"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040C02 "*" "" "" ""

if(!ShowDialog(dd &sub.DlgProc 0)) ret

#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,XtremeSuiteControls.ListView li3
,li3._getcontrol(id(3 hDlg))
,
,;The following code executes successfully
,li3.ListItems.Add(0, "", "Settings", 1)
,li3.ListItems.Add(0, "", "Find", 2)
,li3.ListItems.Add(0, "", "Run", 3)
,li3.ListItems.Add(0, "", "Help", 4)
,
,;The following code fails to execute
,li3.Icons.LoadBitmap("$desktop$\AlphaSettings.bmp", 1, XtremeSuiteControls.xtpImageNormal)
,li3.Icons.LoadBitmap("$desktop$\AlphaFind.bmp", 2, XtremeSuiteControls.xtpImageNormal)
,li3.Icons.LoadBitmap("$desktop$\AlphaRun.bmp", 3, XtremeSuiteControls.xtpImageNormal)
,li3.Icons.LoadBitmap("$desktop$\AlphaHelp.bmp", 4, XtremeSuiteControls.xtpImageNormal)

,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1