Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drop-down portion of combos
Message
De
23/08/2005 15:53:49
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01042920
Message ID:
01043051
Vues:
10
>>>I found, that for my combo class the magical number is 38.
>>>
>>>But now I have another weird effect. When I open the form the first time (the form has a pageframe and a container on it) and open the combos for the controls that are in the bottom of the form, the drop-down portion is shown not close to the control, but somewhere... The next time I open that combo the drop-down portion is shown correctly at the top on the combo.
>>>
>>>I'm running in VFP8.
>>>
>>>I can send you a print screen, if you'd like. What address should I use?
>>
>>fabio@lunacom.net ( my official email, next morning )
>>
>>For now, send it here, but i don't look it every day:
>>fabiolunardon@libero.it
>
>Sorry, I already moved the code into Init method of the combo, there it works fine. In the Drop-down it produced that weird effect. I'm having another problem that I posted a message about few seconds ago. If my combo has just few items to show, the combo's scrollbar doesn't appear and the magical number 39 doesn't work.
>
>Here is the code
>
>*---------------------- Location Section ------------------------
>*   Library: 	Acustomcontrols.vcx
>*   Class: 		Cboviscodes
>*   Method: 	Adjustwidth()
>*----------------------- Usage Section --------------------------
>*)  Description:
>*)
>
>*   Scope:      Public
>*   Parameters:
>*$  Usage:
>*$
>*   Returns:
>*--------------------- Maintenance Section ----------------------
>*   Change Log:
>*       CREATED 	08/23/2005 - NN (Idea by Fabio Lunardon)
>*		MODIFIED
>*----------------------------------------------------------------
>WITH this
>	#IF VERSION(2)<900
>		.ColumnCount = MAX(.ColumnCount,.BoundColumn, 2)
>	#ENDIF
>
>	IF .Width > 60
>		.ColumnWidths = LTRIM(STR(.Width-39))+ REPLICATE(',0',.ColumnCount-1)
>	ENDIF
>ENDWITH
>
>Any ideas to fix?
= LTRIM(STR(.Width-IIF(.ListCount>EVL(.DisplayCount,7),39+SYSMETRIC(5),39)))
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform