Class TAntiAliasForm (unit AAlias2) |
Inherits from
TForm
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.
BigBox : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OrigBox : TPaintBox;
OutBox : TPaintBox;
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.
BigBox : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OrigBox : TPaintBox;
OutBox : TPaintBox;