Craig Oates
6 years ago
4 changed files with 32 additions and 9 deletions
@ -1,14 +1,19 @@
|
||||
module ColourServices |
||||
module internal ColourServices |
||||
|
||||
open System.Drawing |
||||
open DeathSocket.Domain |
||||
open System.Drawing |
||||
open DeathSocket.Domain |
||||
|
||||
// not tested |
||||
let convertRGBAToBrush (spec: RGBASpec) = |
||||
let makeBrushFromRGBASpec (spec: RGBASpec) = |
||||
let a = int spec.alpha |
||||
let r = int spec.red |
||||
let g = int spec.green |
||||
let b = int spec.blue |
||||
let colour = Color.FromArgb (a, r, g, b) |
||||
new SolidBrush(colour) |
||||
new SolidBrush (colour) |
||||
|
||||
// not tested |
||||
let makeBrushFromRGBA r g b a = |
||||
let colour = Color.FromArgb (a, r, g, b) |
||||
new SolidBrush (colour) |
||||
|
||||
|
Loading…
Reference in new issue