topic-16900

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

TBitmap new (to Daniel) :cry:
Posted: Thu Oct 01, 2009 10:32 PM

Daniel,

you can help solve this.

please download this.
http://www.redstarsoft.com.br/sample2.rar

thanks.

note that brush stay of background of bitmap, more no stay using pambmpdraw

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Fri Oct 02, 2009 08:41 AM

do you try with brush NULL ?

Best Regards, Saludos

Falconi Silvio

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Fri Oct 02, 2009 06:04 PM

How make this ?

you can make a sample ?

i tired akready, without result.

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Fri Oct 02, 2009 07:49 PM

an Idea :

LOCAL oBrush := TBrush():New("NULL",,,)

@ 320, 15 BITMAP oApp:oLogoBmp FILENAME "LOGOSYST.BMP" NOBORDER PIXEL OF oApp():oDlg
oApp:oLogoBmp:nClrPane := GetSysColor(3)
oApp:oLogoBmp:lTransparent := .t.
oApp:oLogoBmp:oBrush := oBrush

Best Regards, Saludos

Falconi Silvio

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Fri Oct 02, 2009 11:23 PM

thanks i will try.

and back talking about my result.

thanks in advanced.

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Fri Oct 02, 2009 11:50 PM

If You are a registered User of FWH-9.09, it might be a better Solution :

viewtopic.php?f=3t=16911

Best Regards
Uwe :lol:

&

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Sat Oct 03, 2009 02:42 AM

I work with 902. thanks.

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Sat Oct 03, 2009 02:15 PM

Silvio,

it´s no work to me.

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Sat Oct 03, 2009 03:02 PM

here run ok

#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

local oWnd
Local oBmp ,oImage

DEFINE WINDOW oWnd COLOR CLR_WHITE, CLR_WHITE

DEFINE BITMAP oImage FILENAME "caixa.bmp"

@ 116,117 RBBTN oBmp OF oWnd BITMAP "button.bmp" ;
SIZE 15, 15 PROMPT "" TOP TRANSPARENT ;
ACTION MsgAlert( "Red Button clicked", "Attention" )

oWnd:bPainted := {|hDc|ABPaint( hdc, 110,107, oImage:hBitmap, 220 )}
ACTIVATE WINDOW oWnd
return nil

Best Regards, Saludos

Falconi Silvio

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Sat Oct 03, 2009 09:18 PM

why #include "ribbon.ch" ?

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: TBitmap new (to Daniel) :cry:
Posted: Sun Oct 04, 2009 08:17 AM

I use the class RBBTN and the command is on this include

Best Regards, Saludos

Falconi Silvio