FiveTech Support Forums

FUNCTION Main()
   LOCAL oBmp,oBmp1

 DEFINE BITMAP oBmp NAME 'Five'
DEFINE WINDOW oWnd TITLE "TESTBTN"

@ 06, 001 BTNBMP oBmp1 NAME "OROLOGIO" NOBORDER
                            oBmp1:lTransparent = .t.


ACTIVATE WINDOW oWnd ;
             ON PAINT oWnd:SayBitmap( 45, 10, oBmp )

.....
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT WIN_IMAGE( oWnd, hDC ), ; 
ABPaint( hDC, 20, 20, oBmp1:hBitmap, 220 ) )  // The defined Alpha-Splash-Logo

//--------- IMAGE - LOGO ------------------------ 

STATIC FUNCTION WIN_IMAGE( oWnd, hDC ) 
LOCAL oImage1
LOCAL nWidth  := oWnd:nWidth()
LOCAL nHeight := oWnd:nHeight()

// Selected Image
// --------------------
cNEWLOGO := "&c_path\IMAGES\" + ALLTRIM(WIN_IMAGE) // Window-Background
IF File( "&cNEWLOGO" )
DEFINE IMAGE oImage1 FILENAME "&cNEWLOGO" 
   PalBmpDraw( hDC, 0, 0, oImage1:hBitmap, , nWIDTH, nHEIGHT, , .T. ) 
ELSE
MsgAlert( "Cannot load : " + CRLF + ;
   cNEWLOGO, "Error" )             
ENDIF

RETURN NIL