Unit Wbar

********************************************************************************* * WBar Component By Ken Friesen * * Creation Date Jan 9/97 * * * * This component is a 16 bit 3-d Graphical bar chart designed to set weighted * * averages. It supports optional wrapped labels and percentage labels. Weights * * can be selected and adjusted by either using the arrow keys or the mouse. * * Direct entry of weights can be done by right clicking the chart to display a * * dialog. The maximum number of series is 12. The CutToClipboard method * * copies a bitmap of the chart to the clipboard. The depth divisor adjusts the * * depth of the 3-d effect. Must compile with the resource file. * * * ***********************************************************************************

Classes

TWBar -
TWBarDialog -

Functions

Register - ********************** Constructor/Destructor Procedures

Types

PData
TData
TSelect
TSeries
TWeightChange

Constants

MaxArrayElements
SeriesColors

Variables


Functions


procedure Register;

********************** Constructor/Destructor Procedures

Types


PData = ^TData

TData = array[1..12] of TSeries;
The dynamic array for data storage
TSelect = procedure(Sender: TObject; Series: Integer) of Object

TSeries = record
Name : String;
Weight : Integer;
Color : TColor;
end;
Holds the data for the bars - will be used to create a dynamic array, sort of like a TList
TWeightChange = procedure(Sender: TObject; Series: Integer) of Object
Custom Event types

Constants

MaxArrayElements = 12

SeriesColors = (clRed, clLime, clAqua , clYellow, clFuchsia, $008000FF, clOlive, $00FF0080, $00C080FF, clTeal,$000080FF,$0080FF80)

Max No of series is 12

Variables