- Procedure.s RGB2HTML(color.i)
- ;
- ;
- ;
- ProcedureReturn "#" + RSet(Hex(Red(color), #PB_Byte), 2, "0") + RSet(Hex(Green(color), #PB_Byte), 2, "0") + RSet(Hex(Blue(color), #PB_Byte), 2, "0")
-
- EndProcedure
- Debug RGB2HTML($FF0000)
- Debug RGB2HTML($FF00)
- Debug RGB2HTML($FF)