topic-42295

Board index FiveWin for Harbour/xHarbour Text on the window

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Text on the window
Posted: Wed Oct 12, 2022 08:35 AM

Can I display text on the window, using the oWnd:Say() method, vertically (or at an angle) ?

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Text on the window
Posted: Wed Oct 12, 2022 07:58 PM

Code (fw): Select all Collapse

   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

Regards

G. N. Rao.

Hyderabad, India

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Text on the window
Posted: Thu Oct 13, 2022 08:17 AM

Thank you. Everything is working !

FiveTech Support Forums

Continue the discussion