xbrowse icon and filter

[damianodec]

Hi,
I have a xbrowse that read data by ADOdb.

there are 4 columns: NAME, CITY, AGE, COLOR

in the field COLOR I can only insert 4 option: AR, AB, AC, AO

I would like that xbrowse shows a little icon or bitmap with a color associated (AR YELLOW, AB BLUE, AC GREEN, AO RED)

How can I do it ?

[karinha]

Maybe:

\samples\TESTMERG.PRG

Regards, saludos.

[damianodec]

Hi Karinha,
i'd like a column with inside a icon or bitmap with color associated

[karinha]

Something like that?

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40206&p=240102&hilit=ADDBITMAP&sid=9334bf8a30db1061e41af6f50d92a5f3&sid=9334bf8a30db1061e41af6f50d92a5f3#p240102

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=28146&p=157394&hilit=addbitmap&sid=3fd55997f4d00beb828bd3e1ab1710fc&sid=9334bf8a30db1061e41af6f50d92a5f3#p157394

Regards, saludos.

[Marc Venken]

Is this what you want ?

A Icon/jpg bases on data
A color based on data

Code: Select all  Expand view  RUN

static aBmp := { "c:\marc32\bitmaps\16x16\yes.bmp",;
"c:\marc32\bitmaps\16x16\stop.bmp",;
"c:\marc32\bitmaps\16x16\help2.bmp",;
"c:\marc32\bitmaps\16x16\additem.bmp" }

           oBrw[6]:Akt:bClrStd := { || MyColors("WEBSHOPPRIJZEN","AKTIEF",oBrw[6])}

           WITH OBJECT :Akt
             :AddBitmap( aBmp )
             :bBmpData := {|| AktiefBmp(oBrw:Akt:Value) }
           END

FUNCTION AktiefBmp(nValue)
     do case
      case nValue == 0
         RETURN(2)
      case nValue == 1
         RETURN(1)
      case nValue == 2
         RETURN(3)
      case nValue == 3
         RETURN(3)
      case nValue == 4
         RETURN(4)
     endcase
RETURN(1)

Function MyColors( cBrowse, cType, oBrw )
    local aColors := { CLR_BROWSE1, CLR_BROWSE2 }
    do case
      case cBrowse = "ARTIKEL_ZOEKLIJST" .and. cType = "BENAMING"
         do case
            case right(alltrim(oBrw:code:value),2) = "00"
               aColors := { nClrTxtBrw, CLR_SOFTYELLOW }
          otherwise
              aColors := { nClrTxtBrw, If( oBrw:KeyNo() % 2 == 0, CLR_BROWSE2,CLR_BROWSE1)}
         endcase
      case cBrowse = "WEBSHOPPRIJZEN" .and. cType = "AKTIEF"
         do case
          case oBrw:akt:value = 3
            aColors := { nClrTxtBrw, MY_ORANGE }
          case oBrw:akt:value = 1
            aColors := { nClrTxtBrw, MY_LIGHTYELLOW }
          otherwise
            aColors := { nClrTxtBrw, If( oBrw:KeyNo() % 2 == 0, CLR_BROWSE2,CLR_BROWSE1)}
         endcase
    //  ...... ALL Color Systems
    endcase

return aColors

 

[nageswaragunupudi]

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local aData, aclr := { "AR", "AB", "AC", "AO" }

   aData := {{"Homers","Springfield",50,"AB"},;
             {"Ceci",  "Miami",      28,"AC"},;
             {"Reg",   "Scottsdale", 43,"AO"},;
             {"David", "Hingham",    34,"AR"},;
             {"Hugh",  "Tarzana",    89,"AB"} }

   XBROWSER aData SETUP ( ;
      oBrw:cHeaders := { "NAME", "CITY", "AGE", "COLOR" }, ;
      oBrw:Color:AddBitmap( { "..\bitmaps\fdem5.bmp", ;
         "..\bitmaps\fdem7.bmp", "..\bitmaps\fdem2.bmp", ;
         "..\bitmaps\fdem9.bmp" } ), ;
      oBrw:Color:bBmpData := { |v| AScan( aClr, v ) } )

return nil
 

[damianodec]

thank you!!!
next step is filter for each column.
the example of Mark is good for me.
Any example ?

[Marc Venken]

I use 2 sort of filters.

1. Filters created by me and let the user select them from a pulldown menu. (Filters are stored in dbf file and used corresponding a specific XBrwowse
These filters are not for change by user

2. Use the build-in filter system from xbrowse using aBarGet system. (every column can have a filter field... the yellow get, see pic posted before)
I use this in almost all xbrowsers because the filters can be made in many combinations.

Mostly I store filters that I made from option 2 and think of using more in the future, in the system of option 1 by clicking a hotkey