Greetings all, does anyone know how to convert color codes in RGB or Hex to the LONG's as used for colors in Clarion? If of any interest MS have a visual color guideline for XP at:
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
XP Colors
- Thread starter TinLegs
- Start date
MarkGoldberg
Programmer
Hi I just found this forum today, and figured I'd reply to a thread that had no replies... I'll bet you've figured this one out already. ;-)
Of course you could simply pass in 3 values, R,G,B vs. a type'd group. But the real point of the code is using a group OVER a long.
The Type'd group is what I use for VRML work.
ColorElemType Equate(SREAL)
RGBType Group,Type
R ColorElemType
G ColorElemType
B ColorElemType
end
!=========================================================
MaterialSupportClass.RGBTypeToLong Procedure(RGBType argRGBType) !Long, in prop:Color format
RetVal Long
ColorGroup Group,over(RetVal)
Red Byte
Green Byte
Blue Byte
Alpha Byte
end
code
ColorGroup.Red = argRGBType.R
ColorGroup.Green = argRGBType.G
ColorGroup.Blue = argRGBType.B
ColorGroup.Alpha = 0
Return RetVal
Of course you could simply pass in 3 values, R,G,B vs. a type'd group. But the real point of the code is using a group OVER a long.
The Type'd group is what I use for VRML work.
ColorElemType Equate(SREAL)
RGBType Group,Type
R ColorElemType
G ColorElemType
B ColorElemType
end
!=========================================================
MaterialSupportClass.RGBTypeToLong Procedure(RGBType argRGBType) !Long, in prop:Color format
RetVal Long
ColorGroup Group,over(RetVal)
Red Byte
Green Byte
Blue Byte
Alpha Byte
end
code
ColorGroup.Red = argRGBType.R
ColorGroup.Green = argRGBType.G
ColorGroup.Blue = argRGBType.B
ColorGroup.Alpha = 0
Return RetVal
- Status
Similar threads
- Locked
- Question