Say Vertical com box

por **Kapiaba** » 29 Nov 2016 09:48

// Say Vertical com box

#Include "FiveWin.ch"

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

por **Kapiaba** » 29 Nov 2016 11:20

Very good,

#include "fivewin.ch"

#define SS_CENTERIMAGE      0x00000200

//----------------------------------------------------------------------------//

function SayTestDlg

   local oDlg, oSay

   DEFINE DIALOG oDlg TRUEPIXEL TITLE "SAY VCENTER"

   @ 20,20 SAY oSay PROMPT "Center" SIZE 200,100 PIXEL OF oDlg  CENTER

   if Empty( oSay:hWnd )
      oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE  ) // dialogs
   else
      oSay:WinStyle( SS_CENTERIMAGE, .t. ) // windows, etc
   endif

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT oDlg:Box( oSay:nTop-1, oSay:nLeft-1, oSay:nBottom+1, oSay:nRight+ 1 )

return nil

//----------------------------------------------------------------------------//

por **Kapiaba** » 29 Nov 2016 11:48

Usando Window(Janela)

#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 With Design"

   @ 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.,)

RETURN NIL

Say Vertical com box

Say Vertical com box

Say Vertical com box

Say Vertical com box

Quem está online