FiveTech Support Forums

...
@ nSHeight - 255, nSWidth - 100 BTNBMP oWBtn3 OF oWnd ;
SIZE 80, 90 PIXEL 2007 ;
NOBORDER ;
PROMPT " &Logo" + CRLF + "Select" ;
FILENAME c_path + "\Images\Preview.Bmp" ;
ACTION  (  cFilter := "BMP (*.bmp)|*.bmp|", ;
cNewBITM := cGetFile32( cFilter,"Select a Logo" ,,  "\" + CurDir()+ "\Images" ), ;
IIF( EMPTY( cNewBITM ), MsgAlert( "No file selected !","ATTENTION" ), ;
( cWLogo := cFileNoPath( cNewBITM ), LOGO() ) ) ) ;              
FONT oFootFont ;
TOP
oWBtn3:lTransparent := .t.   
oWBtn3:cToolTip =  { "Logo " + CRLF + "Selection","LOGO", 1, CLR_BLACK, 14089979 }
oWBtn3:SetColor( 0, )
...
...
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT W_BACKGRD( oWnd, nWStyle, lWDirect, nWColorF, nWColorB, nWGradPos, cWBrush, cWImage ) ;
ON PAINT LOGO()

SET _3DLOOK OFF
oHeadFont:End()
oFootFont:End()
oBrwFont:End()
oDataFont:End()

RETURN NIL

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

FUNCTION LOGO()
LOCAL hDC, oAlpha 

hDC := oWnd:GetDC

DEFINE BITMAP oAlpha FILENAME c_Path + "\Images\" + cWLogo
ABPaint( hDC, 200, 200, oAlpha:hBitmap, 255 ) 
oAlpha:End()
ReleaseDC(hDC)

RETURN NIL

FUNCTION LOGO2()
LOCAL oAlpha

// get Image-size
// -------------------
DEFINE BITMAP oAlpha FILENAME c_Path + "\Images\" + cWLogo
nWidth := oAlpha:nWidth
nHeight := oAlpha:nHeight
oAlpha:End()

// Optional REFLEX, ANIMA LEVEL and ACTION
// without REFLEX => @  5, 5 TITLE oLogo size nWidth + 10, nHeight + 10 of oWnd
 
@  5, 5 TITLE oLogo size nWidth + 10, nHeight + nHeight + 10 of oWnd TRANSPARENT  NOBORDER  SHADOWSIZE 0 UPDATE
@  5, 5 TITLEIMG OF oLogo BITMAP c_path + "\Images\" + cWLogo  SIZE nWidth, nHeight REFLEX TRANSPARENT ANIMA LEVEL 255

RETURN NIL