Unit Antialiased

Classes

TAntialiasedLine -

Functions

AntialiasedLineTo -
Gradiate - easy access to antialiasing via simple function works like LineTo but Draws an antialiased line from the current pen position to X,Y in the current pen color with the current brush color as the background color

x-major
Register - bonus function: create a color gradient in Rainbo starting with the color at Begindex and to the color at Endex

Types

TSlope

Constants

Variables


Functions


procedure AntialiasedLineTo(Canvas: TCanvas; X, Y: Integer);


procedure Gradiate(Begindex, Endex: Integer; var Rainbo: array of TColor);

easy access to antialiasing via simple function works like LineTo but Draws an antialiased line from the current pen position to X,Y in the current pen color with the current brush color as the background color

x-major


procedure Register;

bonus function: create a color gradient in Rainbo starting with the color at Begindex and to the color at Endex

Types


TSlope = (slUp, slDown);
Displays an antialiased digonal line. Specify the color of the line in the forecolor property. The line will be antialiased to the value of Color property. // The module also makes 2 functions available: AntialiasedLineTo, which draws an antialiased line procedurally and: Gradiate, which creates a color gradient in an array // (c) 1997-8 by Eric Fredricksen, all rights reserved efred@lanminds.com (tell me if you like it) // Feel free to use this as you will, modify the source, whatever, even if you happen to be a large corporation with a bent towards heavy-handed anti-competitive practices. //

Constants


Variables