FiveTech Support Forums

#include "FiveWin.ch"
#include "constant.ch"

Function Test()

   Local nBottom   := 16.5
   Local nRight    := 42
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H
   Local oDlgOption
   Local oBrwCambi
   Local oFontOption
   Local oBtnConfirm,oBtnExit
   Local  aCambi:=  {{'Eur', 'Lit', '1936.27'}, ;
                     {'Eur', 'Us$', '0.9872' }, ;
                     {'Eur', 'Chf', '1.452'  }, ;
                     {'Eur', 'Gbp', '0.634'  }, ;
                     {'Eur', 'Jpy', '117.452'}}


  DEFINE FONT oFontOption NAME GetSysFont() SIZE 0, -8
  DEFINE DIALOG oDlgOption  SIZE nWidth, nHeight TRANSPARENT  PIXEL TITLE "Select a Value"  ;
      FONT oFontOption




      @ 5,10 XBROWSE oBrwCambi SIZE 150,90 PIXEL OF oDlgOption ;
      DATASOURCE aCambi AUTOCOLS ;
      CELL LINES NOBORDER


      oBrwCambi:aCols[1]:cHeader  := i18n("Valuta1")
      oBrwCambi:aCols[1]:nWidth   := 50

      oBrwCambi:aCols[2]:cHeader  := i18n("Valuta2")
      oBrwCambi:aCols[2]:nWidth   := 50

      oBrwCambi:aCols[3]:cHeader  := i18n("Tasso")
      oBrwCambi:aCols[3]:nWidth   := 70


    WITH OBJECT oBrwCambi:InsCol( 1 )
      :bEditValue    := { || AScan( oBrwCambi:aSelected, oBrwCambi:BookMark ) > 1 }
      :SetCheck()
      :nHeadBmpNo    := { || If( Len( oBrwCambi:aSelected ) == oBrwCambi:nLen, 1, 2 ) }
      :cHeader       := "Selez."
     END



      WITH OBJECT oBrwCambi
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
      :lMultiSelect     := .f.
      :bClrSelFocus     := { || { CLR_BLACK, CLR_HGRAY } }
      :nStretchCol      := 3
      :aCols[ 1 ]:bClrSelFocus := { ||{  CLR_BLACK, CLR_WHITE } }
      :bLClicked        := { |r,c,f,oBrwCambi| If( oBrwCambi:MouseColPos( c ) == 1 , ;
                                               If( ( f := AScan( oBrwCambi:aSelected, oBrwCambi:BookMark ) ) == 0, ;
                                                           AAdd( oBrwCambi:aSelected, oBrwCambi:BookMark ), ;
                                                           ADel( oBrwCambi:aSelected, f, .t. ) ), nil ), ;
                                                            oBrwCambi:RefreshCurrent() }

      //
      :CreateFromCode()
   END


   @ 110, 68 BUTTON oBtnConfirm  PROMPT i18n("&Confirm")   of oDlgOption ;
   SIZE 42, 12 PIXEL FONT  oFontOption DEFAULT ACTION   ( oDlgOption:end( IDOK ) )
   @ 110, 118 BUTTON oBtnExit PROMPT i18n("&Exit")  of oDlgOption;
   SIZE 42, 12 PIXEL FONT  oFontOption CANCEL  ACTION   ( oDlgOption:end( IDCANCEL ) )
   ACTIVATE DIALOG oDlgOption CENTER

    if oDlgOption:nresult == IDOK
         xbrowser oBrwCambi:aSelected
    endif
return nil