FiveTech Support Forums

  aHBitMaps:= { ReadBitmap( 0, "IndBL.bmp" ) ,;
                ReadBitmap( 0, "IndRJ.bmp" ) ,;
                ReadBitmap( 0, "IndCE.bmp" ) ,;
                ReadBitmap( 0, "IndNG.bmp" ) }

  @ 0.875,1 XBROWSE oBrw ;
              FIELDS (BusBASE)->DETA ,;
                     (BusBASE)->CACO ,;
                     (BusBAS2)->TB_DETA ,;
                     aHBitmaps[ Max( 1, If((BusBASE)->ESTA=1 .or.;
                                           (BusBASE)->ESTA=4 , 1 ,;
                                        If((BusBASE)->ESTA=2 .or.;
                                           (BusBASE)->ESTA=3 , 2 ,;
                                        If((BusBASE)->ESTA=5 , 3 ,;
                                        If((BusBASE)->ESTA=9 , 4 , 1 ))))  ) ] ;
              HEADERS 'Nombre',;
                      'Codigo Interno',;
                      'Ubicacion',;
                      'ES' ;
              SIZES 280,60,180,20 ;
              SIZE 300,135 ;
              ALIAS BusBASE ;
              AUTOSORT CELL LINES NOBORDER ;
              OF oDlgBus ;
              ON DBLCLICK ( If(Ops_Selc=0,(lSelec:=.t.,lSalir:=.t.,oDlgBus:End()), ) ) 

    oBrw:nRowDividerStyle = LINESTYLE_NOLINES
    oBrw:nColDividerStyle = LINESTYLE_BLACK
    oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
 
    WITH OBJECT oBrw
      :lIncrFilter      := .t.
      :lSeekWild        := .t.
      :CreateFromCode()
    END

    @ 10,1 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 Of oDlgBus ;
                           COLOR CLR_BLACK,RGB(207,222,244)  //CLR_YELLOW

Function Probando()
local oDlgBus, oBrw, cAlias

  DbUseArea(.t.,,"BusBASE","BusBASE",.t.)
  DbSelectArea("BusBASE")
  cAlias:=Alias()

  DEFINE DIALOG oDlgBus FROM 20,20 TO 500,800 PIXEL TITLE "PRUEBA"

  @ 0.875,1 XBROWSE oBrw OF oDlgBus ;
            COLUMNS "DETA","CACO","TB_DETA","ESTA" ;
            HEADERS "Nombre","Codigo Interno","Ubicacion","ES" ;
            SIZES 280,60,180,20 ;
            SIZE 300,135 ;
            ALIAS cAlias ;
            AUTOSORT CELL LINES NOBORDER 

    WITH OBJECT oBrw
      :nRowDividerStyle = LINESTYLE_NOLINES
      :nColDividerStyle = LINESTYLE_BLACK
      :nMarqueeStyle = MARQSTYLE_HIGHLROW
    END

    WITH OBJECT oBrw:aCols[4]
       :AddBitMap( {"IndBL.bmp","IndRJ.bmp","IndCE.bmp","IndNG.bmp" } ) 
       :bBmpData := {|| If((cAlias)->ESTA=1 .or. (cAlias)->ESTA=4 , 1 ,;
                        If((cAlias)->ESTA=2 .or. (cAlias)->ESTA=3 , 2 ,;
                        If((cAlias)->ESTA=5 , 3 ,;
                        If((cAlias)->ESTA=9 , 4 , 1 )))) }

       :lBmpStretch     := .t.
       :lBmpTransparent := .T.
       :nDataBmpAlign   := AL_LEFT
    END

    oBrw:CreateFromCode()

    ACTIVATE DIALOG oDlgBus CENTERED

    (cAlias)->(dbCloseArea())
Return nil