FiveTech Support Forums

#include "fivewin.ch"



Function Test()
local lPrv:=.t.
local oBrush

 local nRow:= 5.5                  ,;
            nCol:= 1                ,;
            nHei:= nRow+0.8         ,;
            nWid:= 5.5              ,;
            cFnt         := "Arial" ,;
            nSiz         := 6       ,;
            lBold        := .T.     ,;
            lItalic      := .F.     ,;
            nColorFont   := CLR_WHITE ,;
            cAlign       := "TL"    ,;
            cTxt:="ABCDEFGH"

local oFnt
local oPrn

DEFINE BRUSH oBrush FILE "c:\fwh\bitmaps\backgrnd\pebbles.bmp"

       oPrn:=PrintBegin("Test Box and RoundBox",.F.,lPrv,,.T.)
       oPrn:SetPortrait()
       PageBegin()

         CursorWait()

         oFnt:=TFont():New(cFnt,0,-nSiz,.F.,lBold,,,,lItalic,,,,,,,oPrn)


    // first test

         oPrn:Box(nRow,nCol,nHei,nWid,  { CLR_BLACK, 0.01 }, CLR_HGRAY, ;
                   { cTxt, oFnt, nColorFont, cAlign }, ;
                     "CM" )



//Second Test
            nRow:= 9.5
            nCol:= 1
            nHei:= nRow+0.8
            nWid:= 5.5

  oPrn:RoundBox(nRow,nCol,nHei,nWid,.5, .5, { CLR_HRED, 0.01 }, oBrush, ;
                  { cTxt, oFnt, nColorFont, cAlign}, ;
                  "CM" )


  oFnt:end()
   RELEASE BRUSH oBrush
       PageEnd()
      PrintEnd()
   CursorArrow()
RETURN NIL