Possible, a "DISABLE"-look for xBrowse > solved

[ukoenig]

Hello,

i use xBrowse as a pick-list for color-selections and more
on different folder-pages.
Is there a easy way, to change the complete look of a browser,
( maybe change to a pale color ) the user can see, that this selection is disabled ?
If i do oBrw:Disable(), the user doesn't know, that he cannot
use the browser, because the browser is clearly visible.
A solution could be, changing the browser-background to red.

A sample :
Because of setting : NO Gradient, the 2. Gradient-Color and the
Click-Color for Gradient, is disabled.



Any solutions ?

Regards
Uwe

[ukoenig]

Hello,

here is a solution, to show a browser < DISABLED >
The browser is shown complete in light-grey with black text
After enable again, you have to restore the old values.
If you use Gradient-header/footer, dont forget to set
==> obrw:l2007 := .T. if you ENABLE again.

Code: Select all | Expand

FUNCTION BRW_DISABL(oLbx0)

oLbx0:bClrGrad := NIL // Switch off Color-Gradient if used
oLbx0:l2007 := .F. // Switch off Color-Gradient if used
i := 1
FOR i := 1 TO LEN(oLbx0:aCols)
   WITH OBJECT oLbx0:aCols[i]
      :bClrHeader := { || { 0, 13750737 } } 
      :bClrFooter := { || { 0, 13750737 } } 
      :bClrStd = { || { 0, 13750737 } }
   END
NEXT

oLbx0:Refresh()

RETURN( NIL )

A sample :

Enabled :



Disabled :



Regards
Uwe