- Code: Select all Expand view
#include 'fivewin.ch'
#include 'xbrowse.ch'
Function Main()
Local oDlg,olbx
Local cIniFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "test.ini"
Local cSay_Disco:=GetPvProfString("Events","DEVICES","Mostra/Nascondi Disco",cInifile)
Local aDrives := { cSay_Disco+ ' A:' ,;
cSay_Disco+ ' B:' ,;
cSay_Disco+ ' C:' ,;
cSay_Disco+ ' D:' ,;
cSay_Disco+ ' E:' ,;
cSay_Disco+ ' F:' ,;
cSay_Disco+ ' G:' ,;
cSay_Disco+ ' H:' ,;
cSay_Disco+ ' I:' ,;
cSay_Disco+ ' J:' ,;
cSay_Disco+ ' K:' ,;
cSay_Disco+ ' L:' ,;
cSay_Disco+ ' M:' ,;
cSay_Disco+ ' N:' ,;
cSay_Disco+ ' O:' ,;
cSay_Disco+ ' P:' ,;
cSay_Disco+ ' Q:' ,;
cSay_Disco+ ' R:' ,;
cSay_Disco+ ' S:' ,;
cSay_Disco+ ' T:' ,;
cSay_Disco+ ' U:' ,;
cSay_Disco+ ' V:' ,;
cSay_Disco+ ' W:' ,;
cSay_Disco+ ' X:' ,;
cSay_Disco+ ' Y:' ,;
cSay_Disco+ ' Z:' }
DEFINE DIALOG oDlg SIZE 400,400
for n := 1 to len( aDrives )
lvalore:=iif( GetPvProfString("Driver",aDrives[n],"",cInifile)=="S", .T.,.F.)
AAdd( aDrives[n],lvalore)
next
@ 0,0 XBROWSE oLbx OF oDlg ;
AUTOCOLS ;
ARRAY aDrives ;
HEADERS '' '," "' ;
PICTURES nil, nil ;
SIZE 200,200
WITH OBJECT oLbx
:SetCheck( .t., )
END
i WANT SHOW THE LIST OF ALL DEVICES AND IT MUST RETURN ALL THE ITEMS LCHECKED = .T.
THERE IS A LCHEKED DATA ON XBROWSE CLASS ?
