Hello,
Color as string is not really easy to save in a variable as color names have
different length, for instance:
case Who is
when None =>
Color := Gnoga.Types.Colors.White;
when Computer =>
Color := Gnoga.Types.Colors.Red;
when User =>
Color := Gnoga.Types.Colors.Blue;
end case;
Thus an enumeration type is more suitable.
Here is a proposal of enumeration based on Gnoga.Types.Colors with 2 functions
for conversion either in Gnoga.Types.RGBA_Type or if needed as String like
Gnoga.Types.RGBA_Type.
type Color_Enumeration is
(Alice_Blue,
Antique_White,
Aqua,
Aquamarine,
<...>
White_Smoke,
Yellow,
Yellow_Green);
function To_String (Value : Color_Enumeration) return String;
function To_RGBA (Value : Color_Enumeration) return Gnoga.Types.RGBA_Type;
What is your feedback?
If correct I will open a ticket with full code proposal.
Regards, Pascal.
http://blady.pagesperso-orange.fr
------------------------------------------------------------------------------
One dashboard for servers and applications across Physical-Virtual-Cloud
Widest out-of-the-box monitoring support with 50+ applications
Performance metrics, stats and reports that give you Actionable Insights
Deep dive visibility with transaction tracing using APM Insight.
http://ad.doubleclick.net/ddm/clk/290420510;117567292;y
_______________________________________________
Gnoga-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gnoga-list
