Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Vertical labels
Message
De
10/10/2002 05:03:50
 
 
À
09/10/2002 10:51:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00709286
Message ID:
00709728
Vues:
17
>I want to place vertical labels on a form. Is there a way to do this.
>
>Thanks,
>Larry Morelli

Hi Larry,

You can use call to function below in your label.caption expression
Provided that function is included in your framework
in some 'visible' procedure file.
(Set procedure to ...)
function chopper13
    lparameters cString
    local cString,result_string
    result_string=''
    do while len(cString) > 0
        result_string=result_string +left(cString,1)+chr(13)
        cString= right(cString,len(cString)-1)
    enddo
    return result_string
After adding this to your library, you can
type "=chopper13('Vertical')" in your label caption
(without outer quotes of course)

For better look alignment property should be set to Center.

It is simple trick of embeding chr(13) after every character.
It works fine for me.
*****************
Srdjan Djordjevic
Limassol, Cyprus

Free Reporting Framework for VFP9 ;
www.Report-Sculptor.Com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform