topic-4989

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Annoying borders on TSbuttons
Posted: Sat Nov 18, 2006 04: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.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Annoying borders on TSbuttons
Posted: Sat Nov 18, 2006 09:43 AM

Reinaldo,

Use the clause TRANSPARENT

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Annoying borders on TSbuttons
Posted: 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

regards, saludos

Antonio Linares
www.fivetechsoft.com

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Annoying borders on TSbuttons
Posted: 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.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Annoying borders on TSbuttons
Posted: Sat Nov 18, 2006 12:55 PM

Reinaldo,

From source\classes\bitmap.prg:

Code: Select all Collapse

            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 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Annoying borders on TSbuttons
Posted: Sat Nov 18, 2006 02:30 PM

ohh, I see.

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

Reinaldo.

FiveTech Support Forums

Continue the discussion