Browse with color

[Lengliz]

Hi,

Can i use different color for columns or lines or fields conditions ( exp: IF>0 in Green IF<0 in Red ) with browse?

Thank you
LENGLIZ

 

[alvechurchdata]

You can do this with a grid. There's an example in the Soloutions.App supplied with VFP.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[DSummZZZ]

There's also an example here:

How do I change grids' row/column colors/fonts, ...
faq184-3098


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Mike Lewis]

You can do it with a Browse as well:

BROWSE NAME oBrowse
oBrowse.BackColor = 255
oBrowse.FonName = "Bell MT"
oBrowse.SetAll("DynamicForeColor", ;
  "IIF(F>0, RGB(0,255,0), 255)"

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[DSummZZZ]

...with browse?

Totally missed that part.
Duh.

-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Lengliz]

Hi Mike,

it's exactly what i am looking for, but using the code above i get the error message:

oBrowse is not an object?

Lengliz

 

[alvechurchdata]

I got the same error when I pasted Mike's code into a short program. The first line of code executes and displays the (vanilla colour) Browse window. The second line generates the "not an object" error. If I do a DISP MEMO then I can see that OBROWSE exists as an object but its value is .NULL. Declaring oBrowse as Public or Local makes no difference.

Totally missed that part. Duh.

I'm with you Dave. When did they sneak this one past us?

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Mike Lewis]

Lengliz / Geoff,

You're right about the "not an object" error. To fix it, put NOWAIT on the end of the BROWSE command.

The reason is that, when you call BROWSE from a program, the window will have closed (and therefore the object released) by the time you get to the next line. NOWAIT keeps the window open -- assuming that's what you want.

I also had a small error in the third line: FonName should be FontName.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[alvechurchdata]

Thank's Mike - it works now.

When did they sneak this one past us?

To answer my own question, it's in VFP5.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Lengliz]

Thanks
it works fine

&&
USE myTable
BROWSE NAME oBrowse NOWAIT
oBrowse.SetAll("DynamicForeColor","IIF(F>0, RGB(128,0,0), RGB(0,128,0))")
&&

LENGLIZ