29 Nov 2016 09:48
#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
29 Nov 2016 11:20
#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
//----------------------------------------------------------------------------//
29 Nov 2016 11:48
#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