Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Browse Fields with ClassLibs & disappearing Class Column
Message
De
20/02/2007 17:22:52
Hans-Otto Lochmann
Dr. Lochmann Consulting Gmbh
Frankfurt, Allemagne
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01197216
Message ID:
01197448
Vues:
14
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)
>>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform