Say vertical

Say vertical

Postby Otto » Sat Apr 30, 2016 6:07 pm

Hello,
can a say be painted vertically.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6332
Joined: Fri Oct 07, 2005 7:07 pm

Re: Say vertical

Postby cnavarro » Sat Apr 30, 2016 6:43 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Say vertical

Postby Otto » Sun May 01, 2016 5:31 pm

Hello Cristobal,
thank you for your help.
This is working fine.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6332
Joined: Fri Oct 07, 2005 7:07 pm

Re: Say vertical

Postby nageswaragunupudi » Mon May 02, 2016 7:57 am

Code: Select all  Expand view
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
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10632
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Say vertical

Postby karinha » Tue Nov 29, 2016 12:42 pm

Excellent mister Rao.

Regards
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7814
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 96 guests