Class TAntiAliasForm (unit AAlias2)

Inherits from

TForm

Constructors



Functions

procedure AAliasPicture;


procedure BigBoxPaint(Sender: TObject);

Create the anti-aliased version.

procedure DrawFace(bm : TBitmap; pen_width : Integer);

Draw a smiley face for OrigBox.

procedure FormCreate(Sender: TObject);

Create the color entry.

procedure FormDestroy(Sender: TObject);


procedure OrigBoxPaint(Sender: TObject);

Draw a crooked smile.

procedure OutBoxPaint(Sender: TObject);


function RGB(r, g, b : Integer) : TColor;


procedure SeparateColor(color : TColor; var r, g, b : Integer);


procedure SetPalette(bm : TBitmap);

Create a color palette including various combinations of yellow, white, black, and aqua.

Properties

Events

Variables

BigBox : TPaintBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OrigBox : TPaintBox;


OutBox : TPaintBox;



Constructors


Functions


procedure AAliasPicture;


procedure BigBoxPaint(Sender: TObject);

Create the anti-aliased version.


procedure DrawFace(bm : TBitmap; pen_width : Integer);

Draw a smiley face for OrigBox.


procedure FormCreate(Sender: TObject);

Create the color entry.


procedure FormDestroy(Sender: TObject);


procedure OrigBoxPaint(Sender: TObject);

Draw a crooked smile.


procedure OutBoxPaint(Sender: TObject);


function RGB(r, g, b : Integer) : TColor;


procedure SeparateColor(color : TColor; var r, g, b : Integer);


procedure SetPalette(bm : TBitmap);

Create a color palette including various combinations of yellow, white, black, and aqua.


Properties


Events


Variables


BigBox : TPaintBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OrigBox : TPaintBox;


OutBox : TPaintBox;