| Class TBWGraph (unit BWGraphs) |
TGraphicControl
TGraphType = (gtMoveCurrent, gtMoveAll);
| Constructors |
constructor Create( AOwner : TComponent ) ;Destroy
| Functions |
function AddEntry : TDataEntry ;CreateEntry } { Adds the entry to the list
procedure DeleteEntry( index:integer ) ;
destructor Destroy;
function InsertEntry( index: integer ) : TDataEntry ;
procedure Print ;SetShowGrid } (* procedure TBWGraph.
procedure Refresh ;DeleteEntry } { Refreshes the graph
function CreateEntry : TDataEntry ;
procedure DoDrawGraph( Surface : TCanvas ) ;Refresh } { Performs actual drawing
function GetLegendRect : TRect ;Paint } { Returns the rectangle for legend
function GetMainRect : TRect ;SetLegendWidth } { Returns the rectangle for the graph
function GetMinMaxRect : TRect ;GetLegendRect } { Returns rectangle for MinMaxInfo
procedure Paint ;
procedure TriggerResizeEvent ;
function GetColumnEntry : TDataEntry ;
function GetDataList( index :integer ) : TDataEntry ;
function GetEntriesCount : Integer ;
procedure SetColumnEntry( newValue : TDataEntry ) ;
procedure SetHGridLines( newValue : Integer ) ;
procedure SetLegendAtRight( newValue : Boolean ) ;GetMinMaxRect
procedure SetLegendBkColor( newValue : TColor ) ;
procedure SetLegendWidth( newValue : Integer ) ;
procedure SetMinMaxEntry( newValue : TDataEntry ) ;
procedure SetShowGrid( newValue : Boolean ) ;
procedure SetShowLegend( newValue : Boolean ) ;
procedure SetShowMinMax( newValue : Boolean ) ;
procedure SetVGridLines( newValue : Integer ) ;
procedure WMSize( var Msg : TWMSize ) ;SetLegendBkColor
| Properties |
property Align :
property Canvas :
property Color :
property Enabled :
property Font :
property HGridLines : Integer
property LegendAtRight : Boolean
property LegendBkColor : TColor
property LegendWidth : Integer
property ParentColor :
property ParentFont :
property ParentShowHint :
property ShowGrid : Boolean
property ShowHint :
property ShowLegend : Boolean
property ShowMinMax : Boolean
property VGridLines : Integer
property Visible :
property ColumnEntry : TDataEntry
property DataList : TDataEntry
property EntriesCount : Integer
property MinMaxEntry : TDataEntry| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : TNotifyEvent| Variables |
FColumnEntry : TDataEntry ;
FEntryList : TList ;
FHGridLines : Integer ;
FLegendAtRight : Boolean ;
FLegendBkColor : TColor ;
FLegendWidth : Integer ;
FMinMaxEntry : TDataEntry;
FOnResize : TNotifyEvent ;
FShowGrid : Boolean ;
FShowLegend : Boolean ;
FShowMinMax : Boolean ;
FVGridLines : Integer ;| Constructors |
constructor Create( AOwner : TComponent ) ;Public declarations
Destroy
| Functions |
function AddEntry : TDataEntry ;Adds the entry to the list
CreateEntry } { Adds the entry to the list
procedure DeleteEntry( index:integer ) ;InsertEntry
destructor Destroy;SetColumnEntry
function InsertEntry( index: integer ) : TDataEntry ;AddEntry
procedure Print ;Prints the graph
SetShowGrid } (* procedure TBWGraph.SetGraphType( newValue : TGraphType ) ; { Sets data member FGraphType to newValue. } begin if FGraphType <> newValue then begin FGraphType := newValue ; Repaint; end ; { if } end ; { SetGraphType } *) { Prints the graph
procedure Refresh ;Refreshes the graph
DeleteEntry } { Refreshes the graph
function CreateEntry : TDataEntry ;Protected declarations
procedure DoDrawGraph( Surface : TCanvas ) ;Performs actual drawing
Refresh } { Performs actual drawing
function GetLegendRect : TRect ;Returns the rectangle for legend
Paint } { Returns the rectangle for legend
function GetMainRect : TRect ;Returns the rectangle for the graph
SetLegendWidth } { Returns the rectangle for the graph
function GetMinMaxRect : TRect ;Returns rectangle for MinMaxInfo
GetLegendRect } { Returns rectangle for MinMaxInfo
procedure Paint ;DoDrawGraph
procedure TriggerResizeEvent ;WMSize
function GetColumnEntry : TDataEntry ;SetVGridLines
function GetDataList( index :integer ) : TDataEntry ;SetLimit
function GetEntriesCount : Integer ;SetShowMinMax
procedure SetColumnEntry( newValue : TDataEntry ) ;GetColumnEntry
procedure SetHGridLines( newValue : Integer ) ;SetMinMaxEntry
procedure SetLegendAtRight( newValue : Boolean ) ;procedure SetGraphType( newValue : TGraphType ) ;
GetMinMaxRect
procedure SetLegendBkColor( newValue : TColor ) ;GetMainRect
procedure SetLegendWidth( newValue : Integer ) ;SetLegendAtRight
procedure SetMinMaxEntry( newValue : TDataEntry ) ;TriggerResizeEvent
procedure SetShowGrid( newValue : Boolean ) ;GetEntriesCount
procedure SetShowLegend( newValue : Boolean ) ;GetDataList
procedure SetShowMinMax( newValue : Boolean ) ;SetShowLegend
procedure SetVGridLines( newValue : Integer ) ;SetHGridLines
procedure WMSize( var Msg : TWMSize ) ;Calls OnResize handler
SetLegendBkColor
| Properties |
property Align : Published } // property GraphType : TGraphType read FGraphType write SetGraphType ; { Published } { Inherited properties:
property Canvas :
property Color :
property Enabled :
property Font :
property HGridLines : IntegerAmmount of horizontal lines of the grid
property LegendAtRight : BooleanLegend is positioned at the right side of the graph
property LegendBkColor : TColorPublished } { Background color for legend and MinMax Info
property LegendWidth : IntegerPublished } { Legend panel width
property ParentColor :
property ParentFont :
property ParentShowHint :
property ShowGrid : BooleanPublished } { Show grid lines?
property ShowHint :
property ShowLegend : BooleanPublished properties and events } { Does the graph show the legend?
property ShowMinMax : BooleanPublished } { Show min, max and average values of the selected entry?
property VGridLines : IntegerPublished } { Ammount of vertical lines of the grid
property Visible :
property ColumnEntry : TDataEntryPublic } { Entry, that has attribute "Column"
property DataList : TDataEntryArrays of integer values for graph entry
property EntriesCount : IntegerPublic } { Ammount of entries
property MinMaxEntry : TDataEntryPublic
| Events |
event OnClick : Inherited events:
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : TNotifyEventPublished } { Occurs when the graph is resized
| Variables |
FColumnEntry : TDataEntry ;
FEntryList : TList ;List of all graph entries
FHGridLines : Integer ;
FLegendAtRight : Boolean ;
FLegendBkColor : TColor ;Defined in Classes unit.
FLegendWidth : Integer ;
FMinMaxEntry : TDataEntry;FGraphType : TGraphType ;
FOnResize : TNotifyEvent ;
FShowGrid : Boolean ;
FShowLegend : Boolean ;- Initialized to nil.
FShowMinMax : Boolean ;
FVGridLines : Integer ;