You interpreted my suggestion correct, but it only works for colors where
none of the components isn't maxed out.
When working on a dark grey tone, it works. That's where i tested it....
> This does not work, for example if I set screen back colour
> to a nice orange.
> _screen.BackColor= RGB(255,128,0)
Matter of taste..... ;-)
How 'bout this:
_screen.BackColor = RGB(255,128,0)
_screen.BackColor = IncreaseColor(RGB(255,128,0),25)
FUNCTION IncreaseColor(tnColor, lnIncrease)
*- Determine the RGB values
lnRed = BITAND(tnColor, 255)
lnGreen = BITAND(BITRSHIFT(tnColor,8), 255)
lnBlue = BITAND(BITRSHIFT(tnColor,16), 255)
*- Increase the RGB values with a maximum of 255
lnRed = MIN(lnRed + lnIncrease, 255)
lnGreen = MIN(lnGreen + lnIncrease, 255)
lnBlue = MIN(lnBlue + lnIncrease, 255)
*- Return the new color
RETURN RGB(lnRed, lnGreen, lnBlue)
ENDFUNC
Sietse
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Chris Davis
> Sent: woensdag 22 november 2006 17:51
> To: [EMAIL PROTECTED]
> Subject: RE: Changing Colours
>
> This does not work, for example if I set screen back colour
> to a nice orange.
>
> _screen.BackColor= RGB(255,128,0)
>
> And then do as you suggest and add a value to it, it does not
> change it to a more vivid,brighter orange as I wish it turns green!
>
> _screen.backcolor=_screen.BackColor+RGB(25,25,25)
>
> Any more ideas, or have I interpreted your suggestion wrong ?
>
> Cheers
>
> Chris.
>
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
