FiveTech Software tech support forums

Code: Select all  Expand view

function getorgfoto(cFoto)
  nErrorTel ++
  cFoto="d:\pictures\origineel\"+alltrim(cFoto)
  aadd(aErrordata,cFoto)
  if !file(cFoto)
    cFoto = "d:\pictures\origineel\nofoto.jpg"
  endif
return cFoto

function showpicture(cType)
  do case
    case cType = "WEBSHOP_KLEUREN"
       for I = 1 to 12
         cColor = "webshop->color"+alltrim(str(i))
         if empty(cColor)
             aGaleryNaam[i] = "Geen Kleur"
         else
             aGaleryNaam[i] = &cColor
         endif
         oGaleryNaam[i]:refresh()
         oGaleryNaam[i]:show()
       next
    case cType = "EAN_BASIS"
       ....
  endcase
  oSys_image:refresh()
  oText[3]:refresh() // Supet TXT
  oText[4]:refresh() //  Naam
  oText[5]:refresh() //  Lev. SuperTXT
return

Code: Select all  Expand view

oBrw:bChange    := { ||  showpicture("WEBSHOP_KLEUREN"),oBrw:refresh() }

WITH OBJECT oBrw  // General for all browsers
      case cData = "WEBSHOP_KLEUREN"
         WITH OBJECT :Akt
           :AddBitmap( aBmp )
           :bBmpData   := { || if( ( oBrw:cAlias )->aktief = 1,1,2) }
         END
         WITH OBJECT :Cover
           :nEditType     := EDIT_GET_BUTTON
           :bStrImage     := { || getorgfoto(webshop->orgfoto) }
           :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
           :oDataFont     := oFontXS
           :nDataStrAlign := AL_CENTER + AL_BOTTOM
           :nDataBmpAlign := AL_CENTER
         END
         if lCheck[CHK_FOTOGALERY]
            oBrw:nRowHeight:= 99
            oBrw:nFootStrAligns      := AL_CENTER

            for i = 1 to 12
             cPic = "pic"+alltrim(str(i))
             cColor = "color"+alltrim(str(i))
             WITH OBJECT:&cpic
                 :nEditType     := EDIT_GET_BUTTON
                 :bStrImage     := { || getorgfoto(webshop->&cPic) }
                 :bFooter   := { || alltrim( webshop->&cColor ) }
                 :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
                 :oDataFont     := oFontXS
                 :nDataStrAlign := AL_CENTER + AL_BOTTOM
                 :nDataBmpAlign := AL_CENTER
              END
            next
         endif
 

Code: Select all  Expand view

   oBrw:lTransparent := .F.
 

Code: Select all  Expand view

Static Function StyleBrowse( oBrwSel, aBarget, aEditget, cNaam )
   LOCAL hBmp    := ReadBitmap( 0, "bitmaps\search.bmp" )
   local cCol,cTemp
   DEFAULT aBarget:={}
   DEFAULT aEditget:={}
   DEFAULT cNaam:=""

   if lPijama  //  Make stripes in the browse
      oBrwSel:bClrStd = { || If( oBrwSel:KeyNo() % 2 == 0, ;
                            { If( ( oBrwSel:cAlias )->( Deleted() ), CLR_HRED, nClrTxtBrw ),;
                              CLR_BROWSE2 }, ;
                            { If( ( oBrwSel:cAlias )->( Deleted() ), CLR_HRED, nClrTxtBrw ),;
                              CLR_BROWSE1 } ) }
      oBrwSel:bClrSel = { || { If( ( oBrwSel:cAlias )->( Deleted() ), CLR_HRED, nClrBackBrw ),;
                              CLR_BROWSEROW } }
   else
      oBrwSel:bClrStd := { || { If( ( oBrwSel:cAlias )->( Deleted() ), CLR_HRED, nClrTxtBrw ),;
                          nClrBackBrw } }
      oBrwSel:bClrSel := { || { If( ( oBrwSel:cAlias )->( Deleted() ), CLR_HRED, nClrBackBrw ),;
                           MY_PAARS } }
   endif


   cClrBack     := Eval( oBrwSel:bClrSelFocus )[ 2 ]  //  I don't know what this is doing

   oBrwSel:SetChecks()
   oBrwSel:bRClickHeaders := { || XbrColSelector( oBrwSel, cNaam ) }  // Kies welke velden tezien zijn
   //oBrwSel:SetRecSelBmp( "set.bmp" ) // red arrow as record-selector

   WITH OBJECT oBrwSel
      :l2007               := .F.
      :lFooter          := .T.
      :bRecSelHeader    := {|| "Klant" }
      :bRecSelData      := {| o | o:KeyNo }
      :bRecSelFooter    := {| o | o:nLen }
      :oRecSelFont      := oFont  // optional
      :nRecSelWidth     := "99999" // required size

      :lColChangeNotify    := .T.
      :nMarqueeStyle       := MARQSTYLE_HIGHLROW

      //:lAllowRowSizing     := .F.
      //:lAllowSizings       := .f.

      //:lHScroll      := .F.
      :lFullGrid           := .T.
      :lMultiSelect        := .T.
      :lRowDividerComplete := .T.
      :lColDividerComplete := .T.
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
      :bClrSelFocus        := {|| { CLR_WHITE, CLR_BROWSECEL } } // CUANDO TIENE EL FOCUS
      :bClrRowFocus        := {|| { CLR_WHITE, CLR_BROWSEROW } }

      :nHeaderHeight       := 23
      :oHeaderFonts        := oBold
      :nHeadStrAligns      := AL_CENTER


      //:nFooterHeight     := oBrwSel:nHeaderHeight
      :nRowHeight          := oBrwSel:nHeaderHeight
      :nStretchCol         := NIL  // -2 // STRETCHCOL_WIDEST
      :nFreeze             := 1
      if lPijama
         :SetColor( CLR_BLACK, RGB( 232, 255, 232 ) ) // Pink
      else
         :SetColor( nClrTxtBrw, nClrBackBrw )
      endif
   END
   //  Toon de Bargetdata (Gets boven Bar)

   oBrwSel:lGetBar   := .T.  // Button to activate


   if len(aBarget)>0


      FOR EACH cCol in aBarget

         WITH OBJECT oBrwSel:oCol( cCol )

            :uBarGetVal    := uValBlank( :Value )

            :cBarGetPic    := :cEditPicture
            :bClrEdit      := {|| { CLR_BLACK, MY_LIGHTYELLOW } }

            :lBarGetOnKey := .T. // after having setfocus the oBrowse object, the end user can insert the characters directly into the get
//            :cBarGetBmp := hBmp // this for show the Bitmap on the get
            :bBarGetAction := {|| ( oBrwSel:cAlias )->( MARC_SETFILTER( oBrwSel ) ) } // this for show the bitmap on the get and associated a action
// //         :bBarGetAction := {|| ( oBrwSel:cAlias )->( SETFILTER( oBrwSel ) ) } // this for show the bitmap on the get and associated a action

         END

      NEXT


   endif
   */


   if len(aEditget)>0
      //xbrowser(aEditget) title oBrwSel:cAlias()
      FOR EACH cCol in aEditget
         //msginfo(cCol+oBrwSel:cAlias(),"Info")
         WITH OBJECT oBrwSel:oCol( cCol )
            :nEditType     := EDIT_GET
            :bClrHeader    := {|| { CLR_WHITE, CLR_BROWSEINDEX } }
            //msginfo(cCol+oBrwSel:cAlias(),"Info Done")
         END
      NEXT
   endif

   */
Return nil
 

Code: Select all  Expand view

        WITH OBJECT :Cover
           :nEditType     := EDIT_GET_BUTTON
           :bStrImage     := { || getorgfoto(webshop->orgfoto) }
           :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
           :oDataFont     := oFontXS
           :nDataStrAlign := AL_CENTER + AL_BOTTOM
           :nDataBmpAlign := AL_CENTER
         END

         if lCheck[CHK_FOTOGALERY]
            oBrw:nRowHeight:= 99
            oBrw:nFootStrAligns      := AL_CENTER


            for i = 1 to 12
             cPic = "pic"+alltrim(str(i))
             cColor = "color"+alltrim(str(i))
             WITH OBJECT:&cpic
                 :nEditType     := EDIT_GET_BUTTON

                 //:nEditType     := EDIT_GET_LISTBOX
                 //:aEditListTxt  := oMarc:aLever
//                 :bStrImage     := { || "d:\pictures\origineel\"+alltrim(webshop->&cPic) }
                 :bStrImage     := { || getorgfoto(webshop->&cPic) }

                 //:bStrImage := {|x, oBrw| oBrw:aRow[ 2 ] }
                 //:bRClickData := { |r,c,oCol| oBrw:oCol:varput(EanfotoSelect())  }
                 :bFooter   := { || alltrim( webshop->&cColor ) }
                 :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
                 //:cFooter   := { || Ltrim( webshop->&cColor ) }
                 :oDataFont     := oFontXS
                 :nDataStrAlign := AL_CENTER + AL_BOTTOM
                 :nDataBmpAlign := AL_CENTER
//                 :aImgRect      := { nil, nil, -15, nil }
//                 :lBmpTransparent  := .t.

              END
            next

         endif
 

Code: Select all  Expand view

  //  Code above this line is retrieving xbrowse data fields etc... from DBF
   @ nTop,nLeft XBROWSE oBrw size nBreed,nHoogte PIXEL OF oTarget font oFont ;
      DATASOURCE cDbf ;
      COLUMNS aVeld ;
      HEADERS aKop ;
      COLSIZES aSizes ;
      AUTOSORT CELL LINES NOBORDER FOOTERS

   oBrw:bToolTips   := ;
         { | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }

   oBrw:bRClicked     := { |r,c,f,oStru| msgWait(oBrw:aCols[oBrw:nColSel]:VALUE,,2),oClp:SetText(oBrw:aCols[oBrw:nColSel]:VALUE) }

   StyleBrowse(oBrw, aBrwGet, aBrwEdit ,cData )
   XbrSetupBar( oBrw , Cdata )

   if len(aBrwCols) > 0
     for i = 1 to len(aBrwCols)
        cVeld = aBrwCols[i][1]
        cExpres = aBrwCols[i][2]
        cFront = val(aBrwCols[i][3])
        cBack = val(aBrwCols[i][4])
        cZoek = oBrw:&cVeld:value
        lZoek = &cExpres

        oBrw:&cVeld:bClrStd := { || if ( lZoek  , ;
        {nClrTxtBrw, cBack } ,;
        {nClrTxtBrw, If( oBrw:KeyNo() % 2 == 0, CLR_BROWSE2, CLR_BROWSE1 )}    )}

     next
   endif
   ///  ONCHANGE
   if len(aOnchange) > 0
     for i = 1 to len(aOnchange)
        cVeld = aOnchange[i][1]
        cExpres = aOnchange[i][2]
        cZoek = oBrw:&cVeld:value
        cApi = StrTran( getdata(cExpres), "API-", "" )
        oBrw:&cVeld:bOnchange := { |oCol,uOldVal| web_changes(cApi,, oBrw) }
     next
   endif
   ///  Toont totaal selecties counter
   if len(aSelCount) > 0
     for i = 1 to len(aSelCount)
        cVeld = aSelCount[i][1]
        cExpres = aSelCount[i][2]
        cZoek = oBrw:&cVeld:value
        oBrw:&cVeld:nFooterType := AGGR_COUNT
        oBrw:&cVeld:bSumCondition := { || ( oBrw:cAlias )->selected }
     next
   endif

   WITH OBJECT oBrw  // General for all browsers
     //  cData = one of the browse that can be used.  I deleted most of them here because the don't be needed here
     do case
      case cData = "EMAILS_BASIS"  //  Browse 1
        oBrw:chimp:nFooterType := AGGR_COUNT
        oBrw:chimp:bSumCondition := { || ( oBrw:cAlias )->chimp }
      case cData = "SHOP_OPTIONS"  //  Browse 2
           WITH OBJECT :Act
             :AddBitmap( aBmp )
             :bBmpData   := { || if( ( oBrw:cAlias )->aktief = 1,1,2) }
           END

      case cData = "WEBSHOP_KLEUREN" //  Browse with issue
         WITH OBJECT :Akt
           :AddBitmap( aBmp )
           :bBmpData   := { || if( ( oBrw:cAlias )->aktief = 1,1,2) }
         END

         WITH OBJECT :Cover
           :nEditType     := EDIT_GET_BUTTON
           :bStrImage     := { || getorgfoto(webshop->orgfoto) }
           :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
           :oDataFont     := oFontXS
           :nDataStrAlign := AL_CENTER + AL_BOTTOM
           :nDataBmpAlign := AL_CENTER
         END

         if lCheck[CHK_FOTOGALERY]
            oBrw:nRowHeight:= 99
            oBrw:nFootStrAligns      := AL_CENTER

            for i = 1 to 12
             cPic = "pic"+alltrim(str(i))
             cColor = "color"+alltrim(str(i))
             WITH OBJECT:&cpic
                 :nEditType     := EDIT_GET_BUTTON

                 //:nEditType     := EDIT_GET_LISTBOX
                 //:aEditListTxt  := oMarc:aLever
//                 :bStrImage     := { || "d:\pictures\origineel\"+alltrim(webshop->&cPic) }
                 :bStrImage     := { || getorgfoto(webshop->&cPic) }

                 //:bStrImage := {|x, oBrw| oBrw:aRow[ 2 ] }
                 //:bRClickData := { |r,c,oCol| oBrw:oCol:varput(EanfotoSelect())  }
                 :bFooter   := { || alltrim( webshop->&cColor ) }
                 :bEditBlock    := { |r,c,oCol| EanfotoSelect( oCol:Value ) }
                 //:cFooter   := { || Ltrim( webshop->&cColor ) }
                 :oDataFont     := oFontXS
                 :nDataStrAlign := AL_CENTER + AL_BOTTOM
                 :nDataBmpAlign := AL_CENTER
//                 :aImgRect      := { nil, nil, -15, nil }
//                 :lBmpTransparent  := .t.

              END
            next
            */
         endif
     endcase
   END
   oBrw:CreateFromCode()
   oBrw:MakeTotals()
   oBrw:refresh()

//   oBrw:CreateFromCode()
   oBrw:setfocus()
   if !empty(cRelation)  // not to refresh to much ?
      msginfo("cRelation : 2677")
      oBrw:gotop()
      oBrw:refresh()
   endif
   AEval( oBrw:aCols, { |o| o:bClrStd := FnClrStdBlock( o ) } )  // Kolom kleur voor index

return oBrw
 

nageswaragunupudi wrote:
For example, remove oBrw:lColChangeNotify := .t.
What is the need for it?

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

static cImagePath := "c:\fwh\bitmaps\"

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

function Main()

   local oDlg, oFont, oBrw
   local cAlias, nPicCol, nCol, oCol
   local hImages  := {=>}

   if !File( "IMGTEST" )
      CreateDBF()
   endif

   USE IMGTEST NEW SHARED ALIAS ( cAlias := cGetNewAlias( "IMG" ) ) VIA "DBFCDX"

   hb_hSetCaseMatch( hImages, .f. )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE DIALOG oDlg SIZE ScreenWidth() * 0.6, ScreenHeight() * 0.6 PIXEL TRUEPIXEL ;
      FONT oFont

   @ 20,20 XBROWSE oBrw SIZE -20, -20 PIXEL OF oDlg ;
      DATASOURCE cAlias ;
      COLUMNS "Text","Pic1","Pic2","Pic3","Pic4","Pic5","Pic6", ;
                     "Pic7","Pic8","Pic9","Pic10","Pic11","Pic12" ;
      LINES NOBORDER FOOTERS

   WITH OBJECT oBrw
      :nRowHeight    := 80
      :nWidths       := 80
      :RecSelShowRecNo()
      :lVThumbTrack  := .t.

      nPicCol        := :oCol( "PIC1" ):nCreationOrder
      for nCol := nPicCol to nPicCol + 11
         WITH OBJECT :aCols[ nCol ]
            :nWidth     := 70
            :bStrData   := { |x,o| cFileName( o:Value ) }
            :bStrImage  := { |oCol| GetOrgFoto( oCol:Value, hImages ) }
            :nDataStrAlign := AL_CENTER + AL_BOTTOM
            :nDataBmpAlign := AL_CENTER
            :aImgRect      := { nil, nil, -20, nil }
         END
      next
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

   ( cAlias )->( DBCLOSEAREA() )

   hb_HEval( hImages, { |cKey, uVal| PalBmpFree( uVal ) } )

return nil

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

static function GetOrgFoto( cFile, hImages )

   if !hb_hHasKey( hImages, cFile )
      hImages[ cFile ]  := FW_ReadImage( nil, cImagePath + cFile, , .t. )[ 1 ]
   endif

return cValToChar( hImages[ cFile ] )

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

static function CreateDBF()

   local aFiles   := DIRECTORYRECURSE( cImagePath + "*.*" )
   local i, j, n, nLen := Len( aFiles )
   local aStruct  := { { "TEXT", "C", 20, 0 } }

   AEval( aFiles, { |a,i| a[ 1 ] := AfterAtNum( cImagePath, a[ 1 ] ) } )

   for i := 1 to 12
      AAdd( aStruct, { "PIC" + cValToChar( i ), "C", 100, 0 } )
   next

   n  := 1
   DBCREATE( "IMGTEST", aStruct, "DBFCDX", .T., "IMG" )
   for i := 1 to 2500
      DBAPPEND()
      FIELD->TEXT    := NtoCMONTH( ( i - 1 ) % 12 + 1 ) // some text
      for j := 2 to 13
         FieldPut( j, aFiles[ n, 1 ] )
         if ( ++n > nLen ); n := 1; endif
      next
   next

   CLOSE IMG

return nil