FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Say vertical
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Say vertical
Posted: Sat Apr 30, 2016 06:07 PM

Hello,
can a say be painted vertically.
Best regards,
Otto

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Say vertical
Posted: Sat Apr 30, 2016 06: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
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: Say vertical
Posted: Sun May 01, 2016 05:31 PM

Hello Cristobal,
thank you for your help.
This is working fine.
Best regards,
Otto

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Say vertical
Posted: Mon May 02, 2016 07:57 AM
Code (fw): Select all Collapse
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
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Say vertical
Posted: Tue Nov 29, 2016 12:42 PM

Excellent mister Rao.

Regards

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion