Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Browse...
Message
 
 
À
10/10/2000 14:15:44
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00427361
Message ID:
00427485
Vues:
19
>>>>It solves the resizing problem. Mark for deletion is still there, but I recall, there is no way to remove it.
>>>>
>>>>Thanks a lot for your help. If I would not so lazy, I find it by myself :)
>>>
>>>Hi Nadya,
>>>It's dangerous to spell 'no way' in VFP :) You could threat it as a grid with name clause and set properties. ie:
>>>
>>>
*...
>>>browse name "myBrowse" when SetSomeProp()
>>>*...
>>>
>>>function SetSomeProp
>>>with myBrowse
>>>  .recordMark = .f.
>>>  .deletemark = .f.
>>>  .GridLines = 0
>>>  .scrollbars = 2
>>>  .AllowRowSizing = .f.
>>>  .AllowHeaderSizing = .f.
>>>  .Setall("DynamicBackColor","iif(recno()%2=0,255^3,255^2)","column")
>>>*...
>>>endwith
Of course here I'm aware that when would fire too often. It has workarounds but this sample is fast enough not to apply.
>>>Cetin
>>
>>Hi Cetin,
>>
>>Since I catch your attention on this simple problem, could you tell me, please, how should I modify this code to allow current record selecting (in blue)?
>>Not this parrot like colors? :)
>
>Hey those are my favourite :)
>
>
function SetSomeProp
>lnRecno = recno()
>with myBrowse
>*...
>*  .Setall("DynamicBackColor","iif(recno()%2=0,255^3,255^2)","column")
>  .Setall("DynamicBackColor","iif(recno()="+str(lnRecno)+","+;
>  	str(.Columns(1).Text1.SelectedBackColor)+","+str(.Backcolor)+")","column")
>  .Setall("DynamicForeColor","iif(recno()="+str(lnRecno)+","+;
>  	str(.Columns(1).Text1.SelectedForeColor)+","+str(.Forecolor)+")","column")
Cetin

Great! This works nicely.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform