Due to popular request, I am investing a lot of time into creating an 
eXpress++ style command set for CodeJock controls.

Naturally, I expect to run into problems doing this, but it has been going 
fairly well.
Here is my first stumbling block.

XbpBitMap() objects can be converted to iPicture automation objects via 
:getIPicture().
This works fine except for transparency.

If I apply the :transparentClr to the bitmap it works fine on any Xbase 
part, but it doesn't work on a CodeJock part.

I'm using the Codejock.PushButton.12.0.1 control.
Here is my code and a sample of the screen created from this code.

Has anyone experienced this problem?

hi,

> If I apply the :transparentClr to the bitmap it works fine on any Xbase 
> part, but it doesn't work on a CodeJock part.

did you try AutomationTranslateColor(oBMP:transparentClr,.F.)

greetings by OHR
Jimmy

No.  I wasn't aware of this function.

I will give it a try.  Thank you.

"AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
news:78f87a5f$64a520cf$7be5@news.alaska-software.com...
> hi,
>
>> If I apply the :transparentClr to the bitmap it works fine on any Xbase 
>> part, but it doesn't work on a CodeJock part.
>
> did you try AutomationTranslateColor(oBMP:transparentClr,.F.)
>
> greetings by OHR
> Jimmy
>

This doesn't seem to work.  I tried oBMP:tranasparentClr := 
AutomationTranslateColor(oBMP:transparentClr,.f.)
This has no effect.  Passing a .T. causes Xbase transparency to fail.

I'm trying to determine if the Microsoft iPicture object has member vars 
that can be used to set transparency.
So far, no luck.



"AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
news:78f87a5f$64a520cf$7be5@news.alaska-software.com...
> hi,
>
>> If I apply the :transparentClr to the bitmap it works fine on any Xbase 
>> part, but it doesn't work on a CodeJock part.
>
> did you try AutomationTranslateColor(oBMP:transparentClr,.F.)
>
> greetings by OHR
> Jimmy
>

On Wed, 10 Dec 2008 15:29:44 -0700, Roger Donnay wrote:

> This doesn't seem to work.  I tried oBMP:tranasparentClr := 
> AutomationTranslateColor(oBMP:transparentClr,.f.)
> This has no effect.  Passing a .T. causes Xbase transparency to fail.
> 
> I'm trying to determine if the Microsoft iPicture object has member vars 
> that can be used to set transparency.
> So far, no luck.
> 
> 
> 
> "AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
> news:78f87a5f$64a520cf$7be5@news.alaska-software.com...
>> hi,
>>
>>> If I apply the :transparentClr to the bitmap it works fine on any Xbase 
>>> part, but it doesn't work on a CodeJock part.
>>
>> did you try AutomationTranslateColor(oBMP:transparentClr,.F.)
>>
>> greetings by OHR
>> Jimmy
>>

Hi Roger,

I am not familiar with the codejock controls but we ran into something
similar using some other activex controls that we used the ::getiPicture
for.

These controls had a setting for using a mask color for transparency with
the following settings:

::MaskBitmap := .T.
::MaskColor := ::RGB(255,0,255)

in the case of these controls we had to convert the rgb value for the
transparent mask to a vb color integer. might be something similar with the
codejock controls?

********************************************************************************
*                    METHOD iscCTMethods:RGB()

                    convert RGB colors to VB compatable color integer
********************************************************************************
*
METHOD iscCTMethods:RGB(nR,nG,nB)
RETURN Int( nR+ (nG*256) + (nB*65536) )


********************************************************************************
*                    METHOD iscCTMethods:RGB()

                    Convert xbase RGB Color Integer to VB RGB Color
Integer
********************************************************************************

Mark Sergent
InnSource Solutions Inc.
mark@innsourcesolutions.com

Mark -

Thanks for that info.  I will give it a try.

Roger

<Mark Sergent> wrote in message 
news:18g5mwsfnretz$.vv8o7ws8p2y3.dlg@40tude.net...
> On Wed, 10 Dec 2008 15:29:44 -0700, Roger Donnay wrote:
>
>> This doesn't seem to work.  I tried oBMP:tranasparentClr :=
>> AutomationTranslateColor(oBMP:transparentClr,.f.)
>> This has no effect.  Passing a .T. causes Xbase transparency to fail.
>>
>> I'm trying to determine if the Microsoft iPicture object has member vars
>> that can be used to set transparency.
>> So far, no luck.
>>
>>
>>
>> "AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message
>> news:78f87a5f$64a520cf$7be5@news.alaska-software.com...
>>> hi,
>>>
>>>> If I apply the :transparentClr to the bitmap it works fine on any Xbase
>>>> part, but it doesn't work on a CodeJock part.
>>>
>>> did you try AutomationTranslateColor(oBMP:transparentClr,.F.)
>>>
>>> greetings by OHR
>>> Jimmy
>>>
>
> Hi Roger,
>
> I am not familiar with the codejock controls but we ran into something
> similar using some other activex controls that we used the ::getiPicture
> for.
>
> These controls had a setting for using a mask color for transparency with
> the following settings:
>
> ::MaskBitmap := .T.
> ::MaskColor := ::RGB(255,0,255)
>
> in the case of these controls we had to convert the rgb value for the
> transparent mask to a vb color integer. might be something similar with 
> the
> codejock controls?
>
> ********************************************************************************
> *                    METHOD iscCTMethods:RGB()
> *
> *                    convert RGB colors to VB compatable color integer
> ********************************************************************************
> *
> METHOD iscCTMethods:RGB(nR,nG,nB)
> RETURN Int( nR+ (nG*256) + (nB*65536) )
>
>
> ********************************************************************************
> *                    METHOD iscCTMethods:RGB()
> *
> *                    Convert xbase RGB Color Integer to VB RGB Color
> Integer
> ********************************************************************************
>
> -- 
> Mark Sergent
> InnSource Solutions Inc.
> mark@innsourcesolutions.com