Say Vertical com box
Enviado: 29 Nov 2016 09:48
// 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