Roman;
>
>Long time ago, I saw that an activex control allowed me to display images like in the "my computer" window (well, that's how I recall it). Unfortunately, I don't know for sure, whether it is the listview control or image list control. Checking the properties and methods of both controls I didn't see any of them helped to fill the controls.
>Can anyone show how to fill these controls considering that the path of the images files are stored in a table?
>
Here is one instance of some code that I have:
procedure mylistview.init
this.object.icons = ThisForm.myimagelist.object
this.object.smallicons = ThisForm.myimagelist.object
sele mytable
scan
oObj = THIS.listitems.ADD
cwtype = IIF(DATE() > ddata_vali .OR. !lstatus, "btn_off", "btn_on")
oObj.TAG = mytable.cfaixa_id + mytable.ctabela_id
oObj.smallicon = cwtype
oObj.ICON = cwtype
endscan
endproc
HTH
Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20