FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Possible, a "DISABLE"-look for xBrowse > solved
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Possible, a "DISABLE"-look for xBrowse > solved
Posted: Mon Sep 08, 2008 08:42 AM
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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
How to show a Browser < disabled >
Posted: Mon Sep 08, 2008 01:36 PM
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.

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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Continue the discussion