Texto Vertical

[infosys]

Estimados,
Intento usar la función Say() para pegar un texto en forma Vertical ?, se puede? como se hace ?

Muchas gracias
Miguel

[cuatecatl82]

Hola Miguel Buenas tardes:

Se me ocurre así rapidamente de la siguiente forma:

Code: Select all

STATIC FUNCTION texto()

LOCAL oFont1, oFont2, oDlgd

    DEFINE DIALOG oDlgd FROM 2, 2 TO 40,40 TITLE "Texto en Dialogos"
    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-36 NESCAPEMENT 90*10 
    DEFINE FONT oFont2 NAME "Arial" SIZE 0,-24 BOLD NESCAPEMENT 45*10 

    ACTIVATE DIALOG oDlgd CENTERED ; 
             ON PAINT( SayRotated( oDlgd, 260, 10, "Texto 1 ", oFont1, CLR_HBLUE, CLR_GREEN, .T. ),; 
                             SayRotated( oDlgd, 150, 50, "Texto 2",  oFont2, CLR_HRED,  CLR_YELLOW, .F. )) 

Return nil

Y estas sería las funciones..

Code: Select all

//---------------------------------------------------------------------------// 
FUNCTION SayRotated(oWnd,Y,X,cPrompt,oFont,nClrText,nClrPane,l3D) 

  LOCAL hDC := oWnd:hDC 

  DEFAULT nClrText := CLR_HRED, l3D := .T. 
                       
  IF l3D 
    DrawRotated( hdc, cPrompt, Y + 1, X + 1, CLR_BLACK, nClrPane, oFont ) 
    DrawRotated( hdc, cPrompt, Y - 1, X - 1, nClrText, nClrPane, oFont ) 
  ENDIF 

  DrawRotated( hdc, cPrompt, Y , X , nClrText, nClrPane, oFont ) 

RETURN Nil 

//---------------------------------------------------------------------------- 
STATIC FUNCTION DrawRotated(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont) 

LOCAL hOldFont, nOldMode, nOldClrText, nOldClrPane, nOldBkMode 

nOldClrText:= SetTextColor( hDC, nClrText ) 

     IF nClrPane <> Nil 
        nOldClrPane := SetBkColor( hDC, nClrPane ) 
   ELSE 
        nOldBkMode := SetBkMode( hDC,1 ) 
  ENDIF 

  hOldFont:= SelectObject( hDC, oFont:hFont ) 

  TextOut( hDC, Y, X, cPrompt, LEN( cPrompt ) ) 
  SelectObject( hDC, hOldFont ) 

    IF nClrPane<>nil 
       SetBkColor( hDC, nOldClrPane ) 
  ELSE 
       SetBkMode( hDC, nOldBkMode ) 
  ENDIF 

  SetTextColor( hDC, nOldClrText ) 

RETURN Nil 

//----------------------------------------------------------------------------//

Ojala y te sean de utilidad, un fuerte abrazo.