|
|
|
@ -33,28 +33,28 @@ If you have not viewed the code in "Validation.fs", here a quick look at the ava
|
|
|
|
|
// Code in Validation.fs. |
|
|
|
|
// This is for the System.Drawing colours. |
|
|
|
|
let colourList = |
|
|
|
|
["blue", Brushes.AliceBlue; |
|
|
|
|
"brown", Brushes.Brown; |
|
|
|
|
"black", Brushes.Black; |
|
|
|
|
"gray", Brushes.Gray; |
|
|
|
|
"green", Brushes.Green; |
|
|
|
|
"purple", Brushes.Purple; |
|
|
|
|
"red", Brushes.Red; |
|
|
|
|
"white", Brushes.White; |
|
|
|
|
"yellow", Brushes.Yellow;] |
|
|
|
|
["blue", Brushes.AliceBlue |
|
|
|
|
"brown", Brushes.Brown |
|
|
|
|
"black", Brushes.Black |
|
|
|
|
"gray", Brushes.Gray |
|
|
|
|
"green", Brushes.Green |
|
|
|
|
"purple", Brushes.Purple |
|
|
|
|
"red", Brushes.Red |
|
|
|
|
"white", Brushes.White |
|
|
|
|
"yellow", Brushes.Yellow ] |
|
|
|
|
|> Map.ofList |
|
|
|
|
|
|
|
|
|
// This is for the SkiaSharp colours. |
|
|
|
|
let skiaColourList = |
|
|
|
|
[ "blue", SKColors.AliceBlue |
|
|
|
|
"brown", SKColors.Brown |
|
|
|
|
"black", SKColors.Black |
|
|
|
|
"gray", SKColors.Gray |
|
|
|
|
"grey", SKColors.Gray |
|
|
|
|
"green", SKColors.Green |
|
|
|
|
"purple", SKColors.Purple |
|
|
|
|
"red", SKColors.Red |
|
|
|
|
"white", SKColors.White |
|
|
|
|
"yellow", SKColors.Yellow ] |
|
|
|
|
["blue", SKColors.AliceBlue |
|
|
|
|
"brown", SKColors.Brown |
|
|
|
|
"black", SKColors.Black |
|
|
|
|
"gray", SKColors.Gray |
|
|
|
|
"grey", SKColors.Gray |
|
|
|
|
"green", SKColors.Green |
|
|
|
|
"purple", SKColors.Purple |
|
|
|
|
"red", SKColors.Red |
|
|
|
|
"white", SKColors.White |
|
|
|
|
"yellow", SKColors.Yellow ] |
|
|
|
|
|> Map.ofList |
|
|
|
|
``` |
|
|
|
|