Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Vertical labels
Message
From
10/10/2002 05:03:50
 
 
To
09/10/2002 10:51:30
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00709286
Message ID:
00709728
Views:
16
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform