Information générale
Catégorie:
Produits tierce partie
Sergey,
My god!
I found but that is so strange!
Place a combobox one your reportForm.
In the init Method() Put this :
LOCAL laFontName, lnCounter
DIMENSION laFontName[1 ]
= afont(laFontName)
DEFINE POPUP popFontName
FOR lnCounter = 1 TO ALEN(laFontName)
DEFINE BAR PROMPT lnCounter OF popFontName (laFontName[lnCounter ]) PROMPT (laFontName[lnCounter ])
ENDFOR
this.RowSourceType = 9
this.RowSource = " popFontName "
*----------------------------------------------------------
There is a crash VFP!
one first computer had more Font that the second.
I cannot explain...
But if I change the code
FOR lnCounter = 1 TO ALEN(laFontName)
this.AddItem(laFontName[lnCounter ])
ENDFOR
All functions well...
bernhart
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement