FiveTech Support Forums

 REDEFINE SENSITIVE SAY oSay PROMPT cSyst  ;
                                        COLOR CLR_WHITE COLOROVER CLR_RED      ;
                                        ON MOUSEOVER SndPlaySound("Click.Wav") ID 211 OF oDlg  ;
                                        ACTION ShellExecute(oWnd:hWnd,"Open","Registro.Doc",Nil,Nil,1);
                                        TRANSPARENT FONT oFnt
                                        oSay:cToolTip:="Aprire la pagine della registrazione"
                               REDEFINE SENSITIVE SAY oSay PROMPT cMail  ;
                                        COLOR CLR_HBLUE COLOROVER CLR_RED      ;
                                        ON MOUSEOVER SndPlaySound("Select.Wav") ID 212 OF oDlg ;
                                        ACTION ShellExecute(oWnd:hWnd,"Open","MailTo:"+cMail,Nil,Nil,1);
                                        TRANSPARENT FONT oFnt
                                        oSay:cToolTip:="..."

 

#Include "FiveWin.Ch"
#Include "SSay.Ch"


Function main()
   LOCAL oDlg, lCont:=.F.
   LOCAL cPas:=Space(8), cIni, oSay, cEmp, oFnb,oSay2
   LOCAL cCve:="", oCve, oPas, nFil, oFnt, cName, cSerie
   LOCAL oBmp1,oBmp2,oBmp3,oBmpLogo,oPags,oFontBmp,oButCancel
  
   cName :="associazione demo"
   cSerie:="0000-0000"
   cText1:="VdsWin"
   cText2:="ver.1.0 24/00/99"
   
   DEFINE FONT oFontBmp NAME "Verdana" SIZE 0,-32 BOLD

   DEFINE FONT oFnt NAME "MS Sans Serif" SIZE 0,-10 UNDERLINE

   MsgBeep()

   DEFINE DIALOG oDlg RESOURCE "Acceso" 

                                  REDEFINE PAGES oPags ID 200 OF oDlg ;
                                  DIALOGS "ACCESO_US"

                                  REDEFINE BUTTON ID 110 OF oPags:aDialogs[ 1 ] ACTION oDlg:End()

                                  REDEFINE IMAGE  oBmp2 ID 100  OF oPags:aDialogs[ 1] RESOURCE "SALUDO"

                                  REDEFINE IMAGE  oBmp3 ID 150  OF oDlg RESOURCE "ICON1"


                                  REDEFINE IMAGE oBMPLogo ID 100  OF oDlg RESOURCE "ACCESSO"
                                  oBmp2:ltransparent:=.t.
                                  oBmp3:ltransparent:=.t.

         oBMPLogo:bPainted = { ||;
           DrawText2(oBMPLogo:hDC, oFontBmp:hFont, 1, cText1 , oBMPLogo:nHeight/2-( oFontBmp:nHeight  ), 5 , 400 , 400, CLR_HGRAY ),;
           DrawText2(oBMPLogo:hDC, oFnt:hFont, 1, cText2 , 55, 250 , 400 , 400, CLR_WHITE )   }
        

REDEFINE SENSITIVE SAY oSay PROMPT "THIS NOT SHOWED"  ;
           COLOR CLR_WHITE COLOROVER CLR_RED      ;
           ON MOUSEOVER SndPlaySound("Click.Wav") ID 211 OF oDlg;
           ACTION ShellExecute(oWnd:hWnd,"Open","Registro.Doc",Nil,Nil,1);
           TRANSPARENT FONT oFnt
           oSay:cToolTip:="WHERE IS THE TRANSPARENT?"



REDEFINE SENSITIVE SAY oSay2 PROMPT "THIS IS SHOWED"  ;
           COLOR CLR_HBLUE COLOROVER CLR_RED      ;
           ON MOUSEOVER SndPlaySound("Select.Wav") ID 212 OF oDlg ;
           ACTION ShellExecute(oWnd:hWnd,"Open","MailTo:"+cMail,Nil,Nil,1);
           TRANSPARENT FONT oFnt

            oSay2:cToolTip:="WHERE IS THE TRANSPARENT?"




        ACTIVATE DIALOG oDlg CENTERED


RETURN NIL 



  FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color )
     LOCAL hFontOld:= SelectObject( hDC, hFont )
     LOCAL nBkOld  := SetBkMode( hDC, nBkMode )
    SetTextColor( hDC, color )
    DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
    SelectObject( hDC, hFontOld )
    SetBkMode( hDC, nBkOld )
    RETURN( NIL

METHOD Colors( hDC ) CLASS TControl

   ...
            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP;TSSAY"  // modified !!!
               // DrawPBack( ::hWnd,  hDC )
               ParentImage( ::hWnd, hDC )
               ...