FiveTech Software tech support forums

Posted: **Wed Dec 21, 2005 5:21 pm**

I have tried the following:

#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

Posted: **Tue Jan 03, 2006 7:18 am**

Dionie,

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

Code: Select all

#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.

FiveTech Software tech support forums

TListView problem

TListView problem