A function for a String to Color value:
Posted: 09 Jul 2012
Hello
I created a function based on information received from user JoshM to translate in EasyLanguage value a Named color. The function will return Blue for the word "Blue"
Blue is a reserved word and it is considered as an Integer
The function to be created as a Numeric Function
Ex: NameToColor("Blue") will return Blue ** as an Integer
**: Constant, used to designate the color Blue
I created a function based on information received from user JoshM to translate in EasyLanguage value a Named color. The function will return Blue for the word "Blue"
Blue is a reserved word and it is considered as an Integer
The function to be created as a Numeric Function
Ex: NameToColor("Blue") will return Blue ** as an Integer
**: Constant, used to designate the color Blue
Code: Select all
Inputs:
ColourName(StringSimple);
Variables:
colourInLowerString(""); // not case-sensitive anymore
colourInLowerString = LowerStr(ColourName);
switch (colourInLowerString ) begin
case "blue":
NameToColor = blue;
case "black":
NameToColor = black;
case "cyan":
NameToColor = cyan;
Case"green":
NameToColor = Green;
Case"magenta":
NameToColor = Magenta;
Case "red" :
NameToColor = Red;
Case "yellow" :
NameToColor = Yellow;
Case "white" :
NameToColor = White;
Case "darkblue" :
NameToColor = DarkBlue;
Case "darkcyan":
NameToColor = DarkCyan;
Case "darkgreen":
NameToColor = DarkGreen;
Case "darkmagenta":
NameToColor = DarkMagenta;
Case "darkred":
NameToColor = DarkRed;
Case "darkbrown" :
NameToColor = DarkBrown;
Case "darkgray":
NameToColor = DarkGray;
Case "lightgray":
NameToColor = LightGray;
end;