topic-7162

camelot

Posts: 6

Joined: Wed May 30, 2007 01:17 PM

BTNBMP transparent
Posted: Thu May 31, 2007 06:29 AM

Hi,
i have some btnbmp on folder with xp style.
Have anyone a solution to get Btnbmp transparent.

i use FWH 7.01 and Harbour alpha build 1.0

Thanks in advance.
Uwe

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

BTNBMP transparent
Posted: Thu May 31, 2007 06:39 AM

http://fivetechsoft.com/forums/viewtopic.php?t=6632

regards, saludos

Antonio Linares
www.fivetechsoft.com

camelot

Posts: 6

Joined: Wed May 30, 2007 01:17 PM

BTNBMP transparent
Posted: Thu May 31, 2007 08:45 AM

Antonio,

your sample do not work.

for example my sourcecode:
The oBtn is not transparent now.

DEFINE DIALOG oAuf:oDlgAuf RESOURCE "Aufmsk0" ICON oIauf

REDEFINE FOLDER oAuf:oFauf ID 100 OF oAuf:oDlgauf ;
ITEMS " Auftrags&kopf ", " Auftrags&positionen " ;
DIALOGS "Aufmsk1", "Aufmsk2";

REDEFINE BTNBMP oBtn ID 123 noborder;
RESOURCE "suchen1","","suchen11" OF ::aDialogs[1]
WHEN ::lNeu .AND. ! ::lNeuAppend ;
ACTION (Msgstop())

regards
Uwe

carlos.mora

Posts: 6

Joined: Sun Jan 29, 2006 07:43 PM

BTNBMP transparent
Posted: Thu May 31, 2007 07:25 PM

Read again the code that Antonio refered you, detailed. Your code does not reflects the Antonio advice. Pay attention and read it again, I´m sure the answer is there.

Regards,

Carlos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

BTNBMP transparent
Posted: Thu May 31, 2007 07:54 PM

You are missing this:

DEFINE DIALOG oDlg ... TRANSPARENT

...

oBtn:lTransparent = .T.

regards, saludos

Antonio Linares
www.fivetechsoft.com

camelot

Posts: 6

Joined: Wed May 30, 2007 01:17 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 08:22 AM

Hi,

I have changed my code to the following, but it takes no effect. The BTNBMP are not transparent. Is the problem maybe in the resourceeditor,i use Visual c++ 6.0 or must i have a specially backround color for the bitmap that is in the resourceeditor?

DEFINE DIALOG oDlgAuf RESOURCE "Aufmsk0" ICON oIauf TRANSPARENT

REDEFINE FOLDER oFauf ID 100 OF oDlgauf ;
ITEMS " Auftrags&kopf ", " Auftrags&positionen " ;
DIALOGS "Aufmsk1", "Aufmsk2";

REDEFINE BTNBMP oBtn ID 156 noborder;
RESOURCE "AKONTO1","","AKONTO11" OF ::oFauf:aDialogs[1] ;
ACTION (Msgstop());
TOOLTIP "A-Kontobetrag" ;
MESSAGE "A-Kontobetrag bearbeiten"

         oBtn:ltransparent = .T.

Thanks in advance.
Uwe

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 08:35 AM

Please test this sample:

Code: Select all Collapse

#include "FiveWin.ch"

function Main()

   local oDlg, oBtn

   DEFINE DIALOG oDlg TRANSPARENT

   @ 10, 10 BTNBMP oBtn FILENAME "About.bmp" NOBORDER 
   
   oBtn:lTransparent = .T.

   ACTIVATE DIALOG oDlg

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

camelot

Posts: 6

Joined: Wed May 30, 2007 01:17 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 09:11 AM

Antonio,

your sample works fine,but my BTNBMP is not not on a dialog but also on a Folder.

regards
Uwe

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 09:40 AM

Then try this:

oFolder:aDialogs[ n ]:lTransparent = .T.

regards, saludos

Antonio Linares
www.fivetechsoft.com

camelot

Posts: 6

Joined: Wed May 30, 2007 01:17 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 11:04 AM

Antonio,

sorry, but no effect.
The Folder is in the Resourceeditor declared as SysTabControl32.
The BTNBMP on the Dialog are OK.
Do you have an other idea.

regards,
Uwe

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

BTNBMP transparent
Posted: Fri Jun 01, 2007 11:19 AM

Uwe,

You may use a Class TButtonBmp object instead of a TBtnBmp one, as TButtonBmp uses the XP themes and will look better

Please review samples\TestBuBm.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion