Trying to use SAY + FONT with Escapement

[vilian]

Hi,

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

Code: Select all  Expand view

#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


 

[kok joek hoa]

Hi Vilian,


Try this :

Code: Select all  Expand view

#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]

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



Need to display like this:

[kok joek hoa]

Hi Vilian,

try this :

Code: Select all  Expand view

#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]

Kok,

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

[kok joek hoa]

dear Vilian,

Try this :

Code: Select all  Expand view

#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]

Thanks, This works