Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Browse Fields with ClassLibs & disappearing Class Column
Message
From
20/02/2007 17:22:52
Hans-Otto Lochmann
Dr. Lochmann Consulting Gmbh
Frankfurt, Germany
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01197216
Message ID:
01197448
Views:
15
well, I also have VFP9SP1 (I checked VERSION(4) = 09.00.0000.3504), which I re-installed before Xmas. Maybe I did something wrong, because the first example worked with the previous installation quite well. I tried your proposal, which again produced 4 columns instead of 5, but this time the objname column was missing.

Therefore I put an X behind each name, in effect changing each name. Now this
...
Browse Nowait Fields ;
  objnameX   = (objname)   :20,;
  classX     = (class)     :20,;
  classlocX  = (classloc)  :15,;
  baseclassX = (BaseClass) :20,;
  parentX    = (Parent)    :20 ;
  Name oBr
...
did it as requested: It showed 5 columns. As I have now a working solution we should leave the following question unanswered:
Why does the original version work on your machine (and on Naomi's, see my answer to her) and on my old installation, and why does it not work on my newly installed VFP9SP1?
By the way: everything else seems to work well.

Again, many thanks for your efforts.

Hans

>It shows 5 columns for me in VFP9SP1. Try to change the column bname
>...
>  ClassName     = (Class)     :20,;
>...
>
>
>>thank you for caring:
>>
>>The new Browse still does not show the column Class, instead of showing 5 columns as requested, it still only shows 4 columns, leaving out the Class column.
>>
>>Sorry for not answering sooner, but I am travelling and the connections are somewhat difficult to get during the intermissions. I do not think, I'll be online the next 24 hours.
>>
>>Hans
>>
>>
>>>Hi Hans,
>>>
>>>Try (notice that macro substitution is not necessary)
>>>
>>>lcBrowseWindowName = Alias()
>>>Browse Nowait Fields ;
>>>  objname   = (objname)   :20,;
>>>  class     = (Class)     :20,;
>>>  classloc  = (classloc)  :15,;
>>>  baseclass = (BaseClass) :20,;
>>>  parent    = (Parent)    :20 ;
>>>  Name oBr
>>>oBr.SetAll("DynamicBackColor", "Iif( reserved1 = 'Class', RGB(0,255,255), RGB(255,255,255))", "column")
>>>Activate Window (lcBrowseWindowName)
>>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform