BTNBMP problem

[ask]

The following example is btntrans.prg except that i reset the border with ResetBorder .You will see it is not working. Can someone tells me why?

Thanks
A.S.K

Code: Select all  Expand view  RUN


// Testing a transparent TBtnBmp on a transparent DialogBox

#include "FiveWin.ch"

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

function Main()

   local oBru, oDlg, oBtn

   DEFINE BRUSH oBru FILENAME "../bitmaps/Backgrnd/beach.bmp"

   DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT

   @ 2, 2 SAY "Hello" OF oDlg
   oDlg:aControls[ 1 ]:lTransparent = .t.

   @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
      SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" )
     
   oBtn:lTransparent = .T.   
   oBtn:ResetBorder()
     
   ACTIVATE DIALOG oDlg CENTERED

return nil

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

[/b]

[mmercado]

@ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" )

Try this:

Code: Select all  Expand view  RUN

   @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
      SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" ) NOBORDER

   oBtn:lTransparent = .T

Regards

Manuel Mercado

[ask]

@ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" )

Try this:

Code: Select all  Expand view  RUN

   @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
      SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" ) NOBORDER

   oBtn:lTransparent = .T

Regards

Manuel Mercado

Thank you for your reply but this is exactly what i don't want to do

regards,
A.S.K