Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drop-down portion of combos
Message
 
 
À
23/08/2005 15:34:24
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:
01043045
Vues:
11
>>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?
If it's not broken, fix it until it is.


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

Click here to load this message in the networking platform