Annoying borders on TSbuttons

[reinaldocrespo]

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.

[Antonio Linares]

Reinaldo,

Use the clause TRANSPARENT

[Antonio Linares]

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]

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.

[Antonio Linares]

Reinaldo,

From source\classes\bitmap.prg:

Code: Select all  Expand view  RUN

            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]

ohh, I see.

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


Reinaldo.