TListView problem

[dionie]

I have tried the following:

Code: Select all  Expand view

#include "fivewin.ch"

function main()
   oWnd := TWindow():New()
   oView := TListView():New( 10, 10, {"abc","def"},, oWnd,,,, .t.,, 30, 40, "cMsg" )
   oWnd:Activate()
return ( nil )


But somehow, can not see anything for the list view. Can anybody point out to me what I am doing wrong here.


TIA

Dionie

[Antonio Linares]

Dionie,

We have improved Class TListView, so this code is properly working now:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oLvw, nOption := 1, oImageList

   DEFINE WINDOW oWnd TITLE "ListView Test"

   DEFINE IMAGELIST oImageList SIZE 32, 32

   oImageList:AddIcon( "console" )
   oImageList:AddIcon( "form" )
   oImageList:AddIcon( "library" )

   @ 1, 1 LISTVIEW oLvw SIZE 300, 300 PROMPTS "One", "Two", "Three" ;
      ACTION MsgInfo( nOption )

   oLvw:SetImageList( oImageList )

   ACTIVATE WINDOW oWnd
   
   oImageList:End()

return nil


We will publish these new changes in January 2006 FWH build.