Fonts & Colors

type
  TColor = class
  private
    _Green: Integer;
    _Red: Integer;
    _Blue: Integer;
    procedure SetBlue(const Value: Integer);
    procedure SetGreen(const Value: Integer);
    procedure SetRed(const Value: Integer);
  public
    property Red: Integer read _Red write SetRed;
    property Green: Integer read _Green write SetGreen;
    property Blue: Integer read _Blue write SetBlue;
    constructor Create(r, g, b: Integer); overload;
    constructor Create(hexValue: String); overload;
  end;

type
  TFont = class
  private
    _Name: String;
    _Size: Integer;
    _Style: String;
    procedure SetName(const Value: String);
    procedure SetSize(const Value: Integer);
    procedure SetStyle(const Value: String);
  public
    property Name: String read _Name write SetName;
    property Size: Integer read _Size write SetSize;
    property Style: String read _Style write SetStyle;
    constructor Create; overload;
    constructor Create(fontName: String); overload;
  end;