>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.