Text on the window

Text on the window

Postby Natter » Wed Oct 12, 2022 8:35 am

Can I display text on the window, using the oWnd:Say() method, vertically (or at an angle) ?
Natter
 
Posts: 1224
Joined: Mon May 14, 2007 9:49 am

Re: Text on the window

Postby nageswaragunupudi » Wed Oct 12, 2022 7:58 pm

Code: Select all  Expand view  RUN
  DEFINE FONT oFont NAME "IMPACT"  SIZE 0,-60 BOLD NESCAPEMENT 900
   DEFINE FONT oFon2 NAME "VERDANA" SIZE 0,-30 BOLD NESCAPEMENT 2700
   DEFINE WINDOW oWnd FROM 0,0 TO 400,300 PIXEL

   oWnd:bPainted  := < | hDC |
      oWnd:SayText( "IMPACT",  nil, "L", oFont, CLR_HRED )
      oWnd:SayText( "VERDANA", nil, "R", oFon2, CLR_GREEN )
      return nil
      >

   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont, oFon2
 


Image
Regards

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

Re: Text on the window

Postby Natter » Thu Oct 13, 2022 8:17 am

Thank you. Everything is working !
Natter
 
Posts: 1224
Joined: Mon May 14, 2007 9:49 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 54 guests