FWH2307: List View Unicode compatible

FWH2307: List View Unicode compatible

Postby nageswaragunupudi » Sun Aug 27, 2023 9:12 am

Image

[code]#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" + CRLF + "ఒకటి", ;
"Two" + CRLF + "రెండు", "Three" + CRLF + "మూడు";
ACTION MsgInfo( nOption )

oLvw:SetImageList( oImageList )

ACTIVATE WINDOW oWnd

oImageList:End()

return nil/code]
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: FWH2307: List View Unicode compatible

Postby nageswaragunupudi » Sun Aug 27, 2023 10:44 am

Image

Code: Select all  Expand view
#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
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 35 guests