Trying to use SAY + FONT with Escapement

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

Trying to use SAY + FONT with Escapement
Posted: Wed Aug 22, 2012 08:55 PM

Hi,

I'm trying to use SAY + FONT with Escapement, but the text is not displayed properly! Can anyone help me?

#include "FiveWin.ch"

FUNCTION Main()
LOCAL oWnd,oSay[3],oFont[2]

   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 ;
               NESCAPEMENT 900 BOLD

   DEFINE WINDOW oWnd FROM 1,5 TO 20,65;
          TITLE "Testing SAY"

   @ 05,05 SAY oSay[2] PROMPT "THIS DONT SHOW" OF oWnd COLOR 0 ;
               SIZE 80,200 FONT oFont[1] CENTER DESIGN UPDATE

   ACTIVATE WINDOW oWnd

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

kok joek hoa

Posts: 117

Joined: Tue Jan 03, 2006 06:18 PM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 09:56 AM

Hi Vilian,

Try this :

Code (fw): Select all Collapse

#include "FiveWin.ch"

FUNCTION Main()
LOCAL oWnd,oSay[3],oFont[2]

   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;
               NESCAPEMENT -900 
         
        
   DEFINE WINDOW oWnd FROM 1,5 TO 20,65;
          TITLE "Testing SAY"

   @ 05,05 SAY oSay[2] PROMPT "THIS DONT SHOW" OF oWnd COLOR 0 ;
               SIZE 250,200 FONT oFont[1]  CENTER DESIGN UPDATE 

            
            
   ACTIVATE WINDOW oWnd

regards,

Kok

vilian

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 11:21 AM

Thanks for the reply, But with NESCAPEMENT -900 text is displayed like this:

Need to display like this:

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

kok joek hoa

Posts: 117

Joined: Tue Jan 03, 2006 06:18 PM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 12:39 PM

Hi Vilian,

try this :

Code (fw): Select all Collapse

#include "FiveWin.ch"

FUNCTION Main()
LOCAL oWnd,oSay[3],oFont[2]

   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;
               NESCAPEMENT 900
         
        
   DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65;
          TITLE "Testing SAY"

 
 
    ACTIVATE WINDOW oWnd MAXIMIZED   ;
        ON PAINT OWND:SAY(410,410,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.T.)

Regards,

kok

vilian

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 01:22 PM

Kok,

Thus the text comes out with the correct alignment, but you're not using SAY mode DESIGN

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

kok joek hoa

Posts: 117

Joined: Tue Jan 03, 2006 06:18 PM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 03:08 PM

dear Vilian,

Try this :

Code (fw): Select all Collapse

#include "FiveWin.ch"



FUNCTION Main()
LOCAL oWnd,oSay[3],oFont[2]
   
   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;
               NESCAPEMENT 900
         
        
   DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65;
          TITLE "Testing SAY"

        @ 180, 30 say osay[2] prompt "" of ownd color 0 size 80,200 font oFont[1]   design  update pixel
       
         
  
ACTIVATE WINDOW oWnd MAXIMIZED          ;
        on init osay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)  ;  
        ON PAINT  osay[2]:SAY(180,30,"THIS DONT SHOW",CLR_BLACK,CLR_YELLOW,oFont[1],.t.,)

Regards,

kok

vilian

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

Re: Trying to use SAY + FONT with Escapement
Posted: Fri Aug 24, 2012 06:56 PM

Thanks, This works

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

FiveTech Support Forums

Continue the discussion