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 |
Variables |
Functions |
Types |
PData = ^TData
TData = array[1..12] of TSeries;The dynamic array for data storage
TSelect = procedure(Sender: TObject; Series: Integer) of Object
TSeries = recordHolds the data for the bars - will be used to create a dynamic array, sort of like a TList
Name : String;
Weight : Integer;
Color : TColor;
end;
TWeightChange = procedure(Sender: TObject; Series: Integer) of ObjectCustom Event types
Constants |
Variables |