unit typeColor;

interface

type
  TColorFA = record
    Red: single;
    Green: single;
    Blue: single;
    Alpha: single;
    constructor Create(Red, Green, Blue: single; Alpha: single); overload;
    constructor Create(Red, Green, Blue: single); overload;    
  end;

implementation

{ TColorFA }

constructor TColorFA.Create(Red, Green, Blue, Alpha: single);
begin
  self.Red := Red;
  self.Green := Green;
  self.Blue := Blue;
  self.Alpha := Alpha;
end;

constructor TColorFA.Create(Red, Green, Blue: single);
begin
  self.Red := Red;
  self.Green := Green;
  self.Blue := Blue;
  self.Alpha := 1;
end;

end.