Hello,
can a say be painted vertically.
Best regards,
Otto
FiveTech Software tech support forums
www.FiveTechSoft.com
Say vertical
5 posts • Page 1 of 1
Say vertical
by Otto » Sat Apr 30, 2016 6:07 pm
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
-
Otto - Posts: 6107
- Joined: Fri Oct 07, 2005 7:07 pm
Re: Say vertical
by 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
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
-
cnavarro - Posts: 6504
- Joined: Wed Feb 15, 2012 8:25 pm
- Location: España
Re: Say vertical
by Otto » Sun May 01, 2016 5:31 pm
Hello Cristobal,
thank you for your help.
This is working fine.
Best regards,
Otto
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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
-
Otto - Posts: 6107
- Joined: Fri Oct 07, 2005 7:07 pm
Re: Say vertical
by 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
G. N. Rao.
Hyderabad, India
-
nageswaragunupudi - Posts: 10316
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
Re: Say vertical
by karinha » Tue Nov 29, 2016 12:42 pm
Excellent mister Rao.
Regards
Regards
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7411
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
5 posts • Page 1 of 1
Return to FiveWin for Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 78 guests