- Code: Select all Expand view
#Include "FiveWin.Ch"
#Include "IMAGE.Ch"
#Include "SSay.Ch"
fUNCTION main()
Local oBrush, oDlg,oPags,oBmp2,oBmp3,oBMPLogo,oSayName,oSay1,oSay2,oFontBmp,oFnt
cName :="blabla"
cSerie:="2345-5678"
cText1:="RIVAMANIA PRO"
cText2:="rel.1.0"
cSyst :="TESTESTTEST"
cMail :="silvio.falconi@gmail.com"
DEFINE FONT oFontBmp NAME "Verdana" SIZE 0,-12 BOLD
DEFINE FONT oFnt NAME "MS Sans Serif" SIZE 0,-10 UNDERLINE
DEFINE BRUSH oBrush FILENAME "wellcome.bmp"
DEFINE DIALOG oDlg RESOURCE "Acceso" FONT oFnt BRUSH oBrush TRANSPARENT
REDEFINE PAGES oPags ID 200 OF oDlg ;
DIALOGS "ACCESO_US"
REDEFINE BUTTON ID 110 OF oPags:aDialogs[ 1 ] ACTION oDlg:End() TRANSPARENT
REDEFINE SAY ID 101 OF oPags:aDialogs[ 1] TRANSPARENT
REDEFINE IMAGE oBmp2 ID 100 OF oPags:aDialogs[ 1] RESOURCE "SALUDO" TRANSPARENT
*REDEFINE IMAGE oBmp3 ID 150 OF oDlg RESOURCE "PCLOGO" TRANSPARENT
REDEFINE IMAGE oBMPLogo ID 100 OF oDlg FILENAME "wellcome2.bmp"
* 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 SAY oSayName PROMPT "Licenza: " + cName ID 102 TRANSPARENT OF oPags:aDialogs[ 1 ]
REDEFINE SENSITIVE SAY oSay1 PROMPT cSyst ;
COLOR CLR_HBLUE 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
oSay1:cToolTip:="Aprire la pagine della registrazione"
REDEFINE SENSITIVE SAY oSay2 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
oSay2:cToolTip:="Registrazione, vendite, supporto..."
oSay1:ltransparent:=.t.
oSay2:ltransparent:=.t.
ACTIVATE DIALOG oDlg CENTERED ;
VALID IIF(GETKEYSTATE(VK_ESCAPE) , (oButCancel:Setfocus() , .F.) , .T. )
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 )
pROBLEM THE TPAGE NOT IS TRANSPARENT
SSAY CLASS NOT ARE TRAN SPARENT
ANY IDEA ?
