Annoying borders on TSbuttons

reinaldocrespo · Post by **reinaldocrespo** » Sat Nov 18, 2006 4:20 am

Hi everyone;

Take a look at the image below.

I'd like to get rid of the border around the images.

Can someone help?

Reinaldo.

Post by **Antonio Linares** » Sat Nov 18, 2006 9:43 am

Reinaldo,

Use the clause TRANSPARENT

Post by **Antonio Linares** » Sat Nov 18, 2006 11:18 am

ops, I just realized you were talking about TSButtons.

TSButton should be changed to use FWH TransBmp() function. There is a sample of use in source\classes\bitmap.prg

reinaldocrespo · Post by **reinaldocrespo** » Sat Nov 18, 2006 12:49 pm

Anotnio;

thank you.

source\classes\bitmap.prg is the source for the actual class tbitmap. It does not show a sample on how to use it.

Please try again,

Reinaldo.

Post by **Antonio Linares** » Sat Nov 18, 2006 12:55 pm

Reinaldo,

From source\classes\bitmap.prg:

Code: Select all

            hBmpOld = SelectObject( ::hDC, ::hBitmap )
            nZeroZeroClr = GetPixel( ::hDC, 0, 0 )
            SelectObject( ::hDC, hBmpOld )
            nOldClr = SetBkColor( ::hDC, nRGB( 255, 255, 255 ) )
            TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,;
                      ::nX, ::nY, Super:nWidth(), Super:nHeight() )
            SetBkColor( ::hDC, nOldClr )

reinaldocrespo · Post by **reinaldocrespo** » Sat Nov 18, 2006 2:30 pm

ohh, I see.

Perhaps someone has already patch Tsbutton to work with TRANSPARENT clause?

Reinaldo.