You can use R:Docs and build syntax for pause command go to the options
tab and change the pause window background color to the desired color
then press build this will produce a color number

or you can use this formula to find the color integer
  SET VAR vColor = (CTXT(((.fRed) + (.fGreen * 256) + (.fBlue *
65536))))

After getting the color integer you can use something like the following
code
PROPERTY MenuWallPaper GradientColorStart .vColor  --set start color

GETPROPERTY MenuWallpaper GradientColorStart 'fStartColor'

SET VAR fStopColor = (16777215 - (int(.fStartColor))) --find compliment
color

SET VAR vColor = ('PROPERTY MenuWallpaper GradientColorStop' &
(ctxt(.fStopColor)))
&vColor --set stop color

RETURN 

-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lawrence
Lustig
Posted At: Tuesday, February 22, 2005 4:36 PM
Posted To: RB7-L
Conversation: [RBG7-L] - RE: Which menu style?
Subject: [RBG7-L] - RE: Which menu style?


> PROPERTY <WallPaperComponentID> GradientDirection 'gdSquareBox'
> PROPERTY <WallPaperComponentID> GradientDirection 'gdHorizontalBox'
> PROPERTY <WallPaperComponentID> GradientDirection 'gdHorizontalCenter'
> PROPERTY <WallPaperComponentID> GradientDirection 'gdVerticalCenter'
> PROPERTY <WallPaperComponentID> GradientDirection 'gdBigSquareBox'
> PROPERTY <WallPaperComponentID> GRADIENTDirection 'gdHorizontalEnd'
> 
> PROPERTY <WallPaperComponentID> GRADIENTCOLORSTART 'Navy'
> PROPERTY <WallPaperComponentID> GRADIENTCOLORSTOP 'aqua'

Charles!  These are great!!! I had stopped using gradients (or rather,
set the gradient factor on the main group bar to 0) because I couldn't
get it to "line"
up with the gradient on the rest of my form.  Now I can!

One question -- any idea how to do this with custom colors?
--
Larry

Reply via email to