xBrowse with WaterMark

[Horizon]

Hi,

Is it possible to put a picture background of xbrowse like watermark?

Thanks,

[ukoenig]

Horizon,

Use the same background-color for the image like for the browser
With the image-size ( free space around the watermark )
You can adjust the space between the watermarks inside the browser.

DEFINE BRUSH oBrush FILENAME "Logo.bmp"
oBrw:SetBackGround( oBrush )
oBrush:End()
oBrw:Refresh()





regards
Uwe

[Horizon]

Thank you very much Uwe.

It works.

But I have a problems with brush.

Code: Select all  Expand view

    ::oBrw:nMarqueeStyle := 6  // For MultiSelect
    ::oBrw:lRecordSelector := .f.
    ::oBrw:lHScroll        := .F.
   
    ::oBrw:bClrSelFocus = { || { 16777215, 15512898 } }
    ::oBrw:bClrSel = { || { 16777215, 15512898 } }  
    ::oBrw:lKinetic := .F.

1. The up/down navigation is slower than before brush in xbrowse. Is it normal?
2. The shape of selection bar is different like below. (Upper brw is without brush, Lower is with.)

http://www.objekt.com.tr/fwh_test/wmark1.jpeg

[nageswaragunupudi]

1. The up/down navigation is slower than before brush in xbrowse. Is it normal?

Yes. Not only up/down but left/right navigation also.
Using brushes is suitable for small browses with fast datasources like arrays, recordsets, etc and small local dbfs
Programmer needs to decide the suitability when to use brushes.

2. The shape of selection bar is different like below. (Upper brw is without brush, Lower is with.)

We will look into this.
Looks normal when only a cell is highligted.

[nageswaragunupudi]

2. The shape of selection bar is different like below. (Upper brw is without brush, Lower is with.)

This is fixed in FWH 17.12.
Thanks for pointing out the issue.

[Horizon]

2. The shape of selection bar is different like below. (Upper brw is without brush, Lower is with.)

This is fixed in FWH 17.12.
Thanks for pointing out the issue.

Thanks again.

[Horizon]

Hi Mr. Rao,

Can you share the solution here if it is simple?

Thanks.

[nageswaragunupudi]

xbrowse.prg ( 17.11 ) line 12428 in method PaintCellBack(....)

replace line 12428

Code: Select all  Expand view

        if ::oBrw:lTransparent
 

with

Code: Select all  Expand view

        if ::oBrw:lTransparent .and. ::oBrw:nMarqueeStyle < MARQSTYLE_HIGHLROWRC