FiveTech Support Forums

FUNCTION DLG_RES1( oWnd,oFont1, oFont2 )
local oBru,oDlg1, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtn6, oBtn7, oSay

DEFINE BRUSH oBrush FILENAME "../bitmaps/Backgrnd/marble6.bmp"

DEFINE DIALOG oDlg1 RESOURCE "Dialog1" of oWnd BRUSH oBrush ;
TITLE "Buttons from Resource Transparent" TRANSPARENT

// REDEFINE BTNBMP [<oBtn>] ;
//             [ ID <nId> ] ;
//             [ <bar: OF, BUTTONBAR > <oBar> ] ;
//             [ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
//             [,<cResName2>[,<cResName3>][,<cResName4>] ] ] ;
//             [ <file: FILE, FILENAME, DISK> <cBmpFile1> ;
//             [,<cBmpFile2>[,<cBmpFile3>[,<cBmpFile4>] ] ] ] ;
//             [ <action:ACTION,EXEC,ON CLICK> <uAction,...> ] ;
//             [ MESSAGE <cMsg> ] ;
//             [ <adjust: ADJUST > ] ;
//             [ WHEN <uWhen> ] ;
//             [ <lUpdate: UPDATE> ] ;
//             [ TOOLTIP <cToolTip> ] ;
//             [ PROMPT <cPrompt> ] ;
//             [ FONT <oFont> ] ;
//             [ <lNoBorder: NOBORDER> ] ;
//             [ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ;
//             [ <l2007: 2007> ] ; 
//             [ <lTrans: TRANSPARENT> ] ;             

REDEFINE BTNBMP oBtn1 ID 100 OF oDlg1 ;
NOBORDER ;
FILENAME "../bitmaps/alphabmp/palm.bmp" ;
PROMPT "But.1" ;
FONT oFont1 ;
RIGHT
oBtn1:lTransparent = .t.   
oBtn1:cTooltip := "Button1"

REDEFINE BTNBMP oBtn2 ID 110 OF oDlg1 ;
NOBORDER ;
FILENAME "../bitmaps/alphabmp/visa.bmp" ;
PROMPT "But.2" ;
FONT oFont1 ;
LEFT
oBtn2:lTransparent = .t.
oBtn2:cTooltip := "Button2"

REDEFINE BTNBMP oBtn3 ID 120 OF oDlg1 ;
NOBORDER ;
FILENAME "../bitmaps/alphabmp/pendrive.bmp" ;
PROMPT "But.3" ;
FONT oFont1 ;
TOP
oBtn3:lTransparent = .t.
oBtn3:cTooltip := "Button3"

// ------------ Missing BORDER !!!!  with 2007 it works ------------

REDEFINE BTNBMP oBtn4 ID 200 OF oDlg1 ;
FILENAME "../bitmaps/alphabmp/sound.bmp" ;
PROMPT "But.4" ;
FONT oFont1 ;
BOTTOM
oBtn4:lTransparent = .t.   
oBtn4:cTooltip := "Button4"

REDEFINE BTNBMP oBtn5 ID 210 OF oDlg1 ;
FILENAME "../bitmaps/alphabmp/printer.bmp"
oBtn5:lTransparent = .t.   
oBtn5:cTooltip := "Button5"

REDEFINE BTNBMP oBtn6 ID 220 OF oDlg1 ;
FILENAME "../bitmaps/alphabmp/ichat.bmp"
oBtn6:lTransparent = .t.   
oBtn6:cTooltip := "Button6"

REDEFINE SAY oSay  ID 230 VAR "Hello" FONT oFont2 
oSay:lTransparent = .t.   

// --------------
      
REDEFINE BTNBMP oBtn7 ID 300 OF oDlg1 ;
FILENAME "../bitmaps/alphabmp/video.bmp" ;
ACTION oDlg1:End()
oBtn7:lTransparent = .t.   
oBtn7:cTooltip := "Exit"

ACTIVATE DIALOG oDlg1 CENTERED NOWAIT ;
ON INIT oDlg1:Move( 50, 530, 460, 320, .f. ) 

RETURN NIL