FiveTech Support Forums

Function XBrImgMnu()

   local oBrw
   local aText := { ;
         "Add Calendar", ;
         "Delete Calendar", ;
         "Clear Calendar", ;
         "Edit Calendar", ;
         "Refresh Calendar", ;
         "Setup Calendar", ;
         "Info Calendar", ;
         "Refresh List Calendar", ;
         "Exit Calendar" }
   local aData := { ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp"  }
   //"\fwh\bitmaps\addons32.bmp", 

    // OJO CON LAS COORDENADAS

   @ oSay1:nBottom, 1 XBROWSE oBrw OF oPnel1 ;
      DATASOURCE aData COLUMNS 1, 1 NOBORDER PIXEL
   
   WITH OBJECT oBrw
      :SetColor( , oPnel1:nClrPane )
      :l2007            := .F.
      :lHeader          := .F.
      :lFooter          := .F.
      :lHScroll         := .F.

      :nBottom          := oSay2:nTop - 1      // OJO AQUI TENDRAS QUE DEFINIR EL ALTO

      :nMarqueeStyle    := MARQSTYLE_HIGHLROW  //MARQSTYLE_HIGHLCELL //
      :bClrStd          := { || { CLR_BLACK, oPnel1:nClrPane } }
      :bClrSelFocus     := { || { CLR_WHITE, METRO_OLIVE } }
      :bClrSel          := { || { CLR_BLACK, CLR_HGRAY } }
      :lRecordSelector  := .F.
      :lHScroll         := .F.
      :lVScroll         := .F.
      //:SetFont( oFnt )
      //:nColDividerStyle := LINESTYLE_NOLINES
      //:nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bLDblClick       := {| x, y, nF, nCol | XBrw1Elige( oBrw:nArrayAt, oBrw, x, y, nF, nCol ) }
      :bKeyChar         := :bLDblClick
      WITH OBJECT :aCols[ 1 ]
         :cDataType     := 'F'
         :nWidth        := 45
         :nDataBmpAlign := AL_CENTER //LEFT
         //:aImgRect      := "circle"
         :lAllowSizing   := .F.
      END
      WITH OBJECT :aCols[ 2 ]
         :bEditValue   := { || aText[ oBrw:nArrayAt ] }
         :oDataFont    := oFnt
         :nWidth       := nLeftPos - oBrw:aCols[ 1 ]:nWidth - 2
         :nCellheight  := 31
      END
      :nRowHeight      := 31
      //:lHoverSelect    := .t.
      :CreateFromCode()
   END

Return nil

//----------------------------------------------------------------------------//

Function XBrw1Elige( nPos, oBrw, x, y, nF, nCol )

   Do Case
      Case nPos = 1

      Case nPos = 2

      Case nPos = 3

      Case nPos = 4

      .../...
   EndCase

Return nil

Function IsWindows10()
Return .T.