FiveTech Support Forums

// Testing a SAY in transparent

#include "FiveWin.ch"

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

function Main()

   local oDlg, oBru
   local dDay := Date()
   local oGet
   DEFINE BRUSH oBru FILE "sky.bmp"
   DEFINE DIALOG oDlg TITLE "Testing..." BRUSH oBru TRANSPARENT

   @ 2,  2 SAY "Date:" OF oDlg
   @ 2,  6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;
      VALID ! Empty( dDay )

   @ 3,  7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

   oGet:bGotFocus := { || oGet:SelectAll() }

   ACTIVATE DIALOG oDlg CENTERED

return nil

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