I created a test for all possible combination of class BTNBMP ( FWH 9.04 ).
It seems, the Border for combination : Dialog / Buttons from resources / Transparent-mode is missing.
Creating the Buttons from Source and 2007-Style from Resource works.
If the complete Test is useful, I can add the source to the Post.
There are 8 Tests :
-----------------------
1. From Source transparent without Border
2. From Source transparent with Border
3. From Source 2007-Button-Style without Border
4. From Source 2007-Button-Style with Border
5. From Resource transparent without Border
6. From Resource transparent with Border
7. From Resource 2007-Button-Style without Border
8. From Resource 2007-Button-Style with Border
- Code: Select all Expand view
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
Regards
Uwe
