FiveTech Support Forums

// Testing TRANSPARENT clause on MDICHILD

#include "FiveWin.ch"

static oWnd

FUNCTION Main()

   DEFINE WINDOW oWnd MDI
   ACTIVATE WINDOW oWnd ON INIT TestChild()

RETU NIL

FUNCTION TestChild()

   LOCAL oChild, oBru, oSay

   DEFINE BRUSH oBru FILENAME ( "SPLASH.BMP" )

   DEFINE WINDOW oChild MDICHILD TITLE "Transparent Test" OF oWnd ;
          BRUSH oBru TRANSPARENT

      @ 10,10 SAY oSay PROMPT "Click here for PCAS Intranet  Manuals" ;
              PIXEL of oChild  COLOR "W+/W"

      oSay:lTransparent = .t.
      oSay:lWantClick   = .T.
      oSay:bLClicked    = { || SHELLEXECUTE( nil,"open",
"http://www.yahoo.com",0,0,1) }

   ACTIVATE WINDOW oChild

RETU NIL