Hello,
can a say be painted vertically.
Best regards,
Otto
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 96 guests