#include "FiveWin.ch"
function Main()
local oWnd, oLvw, nOption := 1, oImageList
local oFont, aFiles
aFiles := { "One_ఒకటి.pdf", "Two_두.docx", "Three_ตรัย.xlsx", ;
"Four_चार.pptx" }
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-24
DEFINE WINDOW oWnd TITLE "ListView Test"
DEFINE IMAGELIST oImageList SIZE 32, 32
WITH OBJECT oImageList
AEval( aFiles, { |c| :AddImage( "." + cFileExt( c ) ) } )
END
@ 0, 1 LISTVIEW oLvw SIZE 300, 300 PROMPTS aFiles[ 1 ], aFiles[ 2 ], ;
aFiles[ 3 ], aFiles[ 4 ] ;
ACTION MsgInfo( nOption )
oLvw:SetImageList( oImageList )
oLvw:SetFont( oFont )
oLvw:SetStyle( 4 )
ACTIVATE WINDOW oWnd CENTERED
oImageList:End()
RELEASE FONT oFont
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 99 guests