Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Browse Fields with ClassLibs & disappearing Class Column
Message
De
20/02/2007 15:42:35
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:
01197425
Vues:
23
Hi Sergey,

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)
>
>>
>>I got a funny result recently when using Browse Field to hack vcx-es. What works, is (I simplified the example):
>>
>>Use MyClasslib.VCX
>>m.lcBrowseWindowName = Alias()
>>Browse Nowait Fields ;
>>  objname   :20,;
>>  Class     :20,;
>>  classloc  :15,;
>>  BaseClass :20,;
>>  Parent    :20 ;
>>  Name oBr
>>oBr.SetAll("DynamicBackColor", "Iif( reserved1 = 'Class', RGB(0,255,255), RGB(255,255,255))", "column")
>>Activate Window &lcBrowseWindowName
>>
>>but the Memo fields just contain the word Memo. As I wanted to have the contents of the Memo Fields displayed in the textboxes, I tried it with
>>
>>Use MyClasslib.VCX
>>m.lcBrowseWindowName = Alias()
>>Browse Nowait Fields ;
>>  objname   = Alltrim(objname)   :20,;
>>  class     = Alltrim(Class)     :20,;
>>  classloc  = Alltrim(classloc)  :15,;
>>  baseclass = Alltrim(BaseClass) :20,;
>>  parent    = Alltrim(Parent)    :20 ;
>>  Name oBr
>>oBr.SetAll("DynamicBackColor", "Iif( reserved1 = 'Class', RGB(0,255,255), RGB(255,255,255))", "column")
>>Activate Window &lcBrowseWindowName
>>
>>it works except that all at a sudden, the column Class disappeared. Does anybody have any idea, why it disappeared and how I can convince the second Browse to show the Class-column as well?
>>
>>Any help welcome!
>>
>>Hans
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform