Annoying borders on TSbuttons

Annoying borders on TSbuttons

Postby 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?



Image
Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby Antonio Linares » Sat Nov 18, 2006 9:43 am

Reinaldo,

Use the clause TRANSPARENT
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby Antonio Linares » Sat Nov 18, 2006 12:55 pm

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 )         
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby reinaldocrespo » Sat Nov 18, 2006 2:30 pm

ohh, I see.

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


Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 104 guests