unit Bluescr;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, CommCtrl;

type
  TBlueScreen = class(TGraphicControl)
  private
    FMaskColor: TColor;
    FBackgroundBitmap: TBitmap;
    FForegroundBitmap: TBitmap;
    procedure SetBackgroundBitmap(InBitmap: TBitmap);
    procedure SetForegroundBitmap(InBitmap: TBitmap);
    procedure SetMaskColor(InColor: TColor);
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    property BackgroundBitmap: TBitmap read FBackgroundBitmap
                                       write SetBackgroundBitmap;
    property ForegroundBitmap: TBitmap read FForegroundBitmap
                                       write SetForegroundBitmap;
  published
    property Height default 50;
    property Width default 50;
    property MaskColor: TColor read FMaskColor write SetMaskColor;
  end;

procedure Register;