Clipper/FiveWin - AYUDA - SAY

Alguien podría decirme como visualizo un texto con SAY en vertical ??

Gracias, saludos.

Hola David

Prueba esto

cls

verti(0,0,"Maritza")

function verti(fila,columna,mensaje)

local I

for i=1 to len (mensaje)

@ fila+I, columna say substr(mensaje, I, 1 )

next
retunr nil

Espero que te sirva

saludos

Gracias por tu ayuda, Saludosss

David:

Utilizas clipper puro y duro o con FW ?

Saludos, Armando

utilizo fivewin, gracias Armando

David:

Mira haz lo siguiente:

1.- Define la fuente así
LOCAL oFont
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -10 NESCAPEMENT -900

La claúsula NESCAPEMENT hace que se gire el tipo de letra si el valor es negativo (-900) se gira en sentido de las manecillas del reloj pero si el valor es positivo se gira en sentido inverso. Prueba cambiando el valor -900 por otros valores para que veas los resultados.

2.- Utiliza la fuente que acabas de definir en el SAY

Desde código:

@ X,Y SAY "Maritza" FONT oFont

Desde recursos:
REDEFINE SAY oSay VAR "Maritza" ID 1 OF oDlg FONT oFont

Obviamente, en el caso de recursos, debes definir el espacio en forma vertical no horizontal y te sugiero que dejes suficiente espacio a lo ancho o de lo contrario no veras el texto.

Espero que esto sea lo que deseas, Armando