FiveTech Support Forums

procedure Dlg_Bit

local oDlg
local oBrush
local oSay
local cTest := "MESA NÚMERO"
local a


   define brush oBrush file "..\bitmaps\cara.bmp"
   
   define dialog odlg title "Test Say With bitmap Brush" brush oBrush size 400,400 PIXEL
   
   for a := 1 to 5 
    cTest := "MESA NÚMERO "+ Str( a )
    @ a+2,2 say oSay prompt cTest  of oDlg SIZE 100, 130 COLOR CLR_WHITE transparent  //PIXEL  
   next a
   
   @ 10,120 button "Test" pixel action oSay:SetText( "Change Text")  

   
   ACTIVATE DIALOG oDlg CENTERED on init osay:refresh()
   
return

FUNCTION MAIN()

local oDlg
local oBrush
local cTest := ""
local oSay, oBigfont

c_path := GETCURDIR()

// change in older FWH-versions 
// c_path := CURDRIVE() + ":\" + GETCURDIR()

oBigFont := TFont():New("Arial",0,-18,.F.,.T.,0,0,0,.F. )

// -----------------
DEFINE BRUSH oBrush FILE c_path + "\Images\Marble.bmp" 
DEFINE DIALOG oDlg TITLE "Test Say With bitmap Brush" SIZE 400,400 BRUSH oBrush PIXEL 

// OPTIONAL !
// DEFINE DIALOG oDlg TITLE "Test Say With bitmap Brush" SIZE 400,400 PIXEL 
// -----------------

I := 1
FOR I := 1 to 5
        cTest := cTest + "MESA NÚMERO  " + LTRIM(STR(I)) + CRLF // add another + CRLF for double space
NEXT I
@ 20, 20 say oSay prompt cTest  of oDlg SIZE 100, 200 COLOR 0 PIXEL UPDATE
oSay:lTransparent := .T.
oSay:oFont := oBigfont

@ 10,120 BUTTON "Test" PIXEL ACTION oSay:SetText( "Change Text")  

ACTIVATE DIALOG oDlg CENTERED 

// OPTIONAL !
// ---------------
// ACTIVATE DIALOG oDlg CENTERED ;
// ON INIT SET_BRUSH( oDlg, "Marble.Bmp" ) 

oBigfont:End()
oBrush:End()

RETURN NIL

// ---- OPTIONAL ----------

FUNCTION SET_BRUSH( oDlg, cBrush )

DEFINE BRUSH oBrush FILE c_path + "\Images\" + cBrush

oDlg:SetBrush( oBrush )
oBrush:End()

RETURN( NIL )

procedure Dlg_Bit

local oDlg
local oSay1,oSay2,oSay3,oSay4
local cTest := ""


                 
        define dialog odlg title "Test Say transparent" size 400,400 PIXEL 
   
    cTest := "MESA NÚMERO 1"
    @ 2,2 say oSay1 prompt cTest  of oDlg SIZE 100, 130 transparent

    cTest := "MESA NÚMERO 2"
    @ 5,4 say oSay2 prompt cTest  of oDlg SIZE 100, 130 transparent 
                                                            
    cTest := "MESA NÚMERO 3"
    @ 08,6 say oSay3 prompt cTest  of oDlg SIZE 100, 130 transparent  

    cTest := "MESA NÚMERO 4"
    @ 11,8 say oSay4 prompt cTest  of oDlg SIZE 100, 130 transparent 
  
        ACTIVATE DIALOG oDlg CENTERED 
   
return

function Main()
    local oDlg
    local oSay1,oSay2,oSay3,oSay4
    local cTest1 := ""
    local cTest2 := ""
    local cTest3 := ""
    local cTest4 := ""


                 
        define dialog odlg title "Test Say transparent" size 400,400 PIXEL 
   
    cTest1 := "MESA NÚMERO 1"
                 @ 2,2 ;
         SAY oSay1 ;
      PROMPT cTest1 ;
          OF oDlg ;
        SIZE 100, 130 ;
 TRANSPARENT
 

    cTest2 := "MESA NÚMERO 2"
    @ 5,4 say oSay2 prompt cTest2  of oDlg SIZE 100, 130 ;
 TRANSPARENT
                                                            
    cTest3 := "MESA NÚMERO 3"
    @ 08,6 say oSay3 prompt cTest3  of oDlg SIZE 100, 130 ;
 TRANSPARENT

    cTest4 := "MESA NÚMERO 4"
    @ 11,8 say oSay4 prompt cTest4  of oDlg SIZE 100, 130 ;
 TRANSPARENT
  
        ACTIVATE DIALOG oDlg CENTERED 

return nil