topic-20386

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

XBROWSE CHECKBOX
Posted: Fri Nov 26, 2010 04:02 PM

I TRY TO MAKE A XBROWSE WITH CHECKBOX BUT IT NOT RUN WHY ?

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

Best Regards, Saludos

Falconi Silvio

frose

Posts: 392