Say Vertical com box

[kapiaba]

// Say Vertical com box

#Include "FiveWin.ch"
	FUNCTION SayTest()
	   local oDlg, oSay, oFont
	   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-40 NESCAPEMENT 900
	   DEFINE DIALOG oDlg SIZE 600,700 PIXEL TRUEPIXEL
	   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT ( oDlg:SayText( "Vertical Text" + CRLF + "Second Line", ;
         { 20,20,300, 120 }, nil, oFont ), ;
         oDlg:Box( 20, 20, 300, 120 ) )
	   RELEASE FONT ofont
	RETURN NIL

[kapiaba]

Very good,

#include "fivewin.ch"
	#define SS_CENTERIMAGE      0x00000200
	//----------------------------------------------------------------------------//
	function SayTestDlg
	   local oDlg, oSay
	   DEFINE DIALOG oDlg TRUEPIXEL TITLE "SAY VCENTER"
	   @ 20,20 SAY oSay PROMPT "Center" SIZE 200,100 PIXEL OF oDlg  CENTER
	   if Empty( oSay:hWnd )
      oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE  ) // dialogs
   else
      oSay:WinStyle( SS_CENTERIMAGE, .t. ) // windows, etc
   endif
	   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT oDlg:Box( oSay:nTop-1, oSay:nLeft-1, oSay:nBottom+1, oSay:nRight+ 1 )
	return nil
	//----------------------------------------------------------------------------//

[kapiaba]

Usando Window(Janela)

#include "FiveWin.ch"
	FUNCTION Main()
	   LOCAL oWnd, oSay[3], oFont[2]
   
   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD NESCAPEMENT 900
        
   DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65 ;
          TITLE "Testing SAY With Design"
	   @ 180, 30 say osay[2] prompt "" of ownd color 0 size 80,200 font oFont[1]   design  update pixel
  
   ACTIVATE WINDOW oWnd MAXIMIZED          ;
        ON INIT  oSay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)  ;
        ON PAINT osay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)
	RETURN NIL

[kapiaba]

Very good.