FiveTech Software tech support forums

Posted: **Thu Feb 28, 2008 10:03 am**

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


// 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]

Posted: **Thu Feb 28, 2008 2:47 pm**

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

Try this:

Code: Select all

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

   oBtn:lTransparent = .T

Regards

Manuel Mercado

Posted: **Thu Feb 28, 2008 3:19 pm**

mmercado wrote:
ask wrote: @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
SIZE 50, 30 OF oDlg ACTION MsgInfo( "click" )
Try this:
Code: Select all
   @ 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

FiveTech Software tech support forums

BTNBMP problem

BTNBMP problem

Re: BTNBMP problem

Re: BTNBMP problem