Class TGrafWizForm (unit GrafWiz)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure ComboChange(Sender: TObject);


procedure CreateGraphButClick(Sender: TObject);

Timer1.

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GradientBoxClick(Sender: TObject);


procedure OptionChange(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure PrintButClick(Sender: TObject);

Chart1.

procedure RefreshButClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure View3DBoxClick(Sender: TObject);


procedure CalcGraphData;


procedure CalcGraphData_Data;


procedure CalcGraphData_Lookup;

Init the Point Labels

procedure DrawGraph;


procedure AddData(Series: integer; const TimePer: string; NumAdd: double);

Clear out the Old Data

function CalcPeriod(Date: TDateTime): TDateTime;


procedure ClearData;


function GetData(Series, X: integer): double;

TRACE('TimePer = %-15s Series = %3d Idx = %3d Data Count = %3d', [TimePer, Series, idx, Data.

procedure RemoveEmptySeries;

Init the Point Labels

procedure SetStat(s: string);


Properties

property Stat : string


Events

Variables

Button1 : TButton;


Chart1 : TChart;


CreateGraphBut : TButton;


CreateLab : TLabel;


FieldCombo : TComboBox;


FormSettings1 : TFormSettings;


GradientBox : TCheckBox;


GraphTypeCombo : TComboBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


PageControl1 : TPageControl;


PrintBut : TButton;


PrintDialog1 : TPrintDialog;


RefreshBut : TButton;


RefreshLab : TLabel;


RemEmptyBox : TCheckBox;


ShowMarksBox : TCheckBox;


StatusBar1 : TStatusBar;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TimeCombo : TComboBox;


TimePerCombo : TComboBox;


Timer1 : TTimer;


ToolPanel : TPanel;


View3DBox : TCheckBox;


CurTable : TTable;


DefaultDataField : string;


FilterDesc : string;


Data : TStringList;


NumPoints : integer;


NumSeries : integer;


PointLab : TStringList;


SeriesLab : TStringList;


ShowSeries : TBits;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure ComboChange(Sender: TObject);


procedure CreateGraphButClick(Sender: TObject);

Timer1.Enabled := True;


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GradientBoxClick(Sender: TObject);


procedure OptionChange(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure PrintButClick(Sender: TObject);

Chart1.Series[j].AddXY(i, GetData(j, i), PointLab[i], clTeeColor);


procedure RefreshButClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure View3DBoxClick(Sender: TObject);


procedure CalcGraphData;


procedure CalcGraphData_Data;


procedure CalcGraphData_Lookup;

Init the Point Labels


procedure DrawGraph;


procedure AddData(Series: integer; const TimePer: string; NumAdd: double);

Clear out the Old Data


function CalcPeriod(Date: TDateTime): TDateTime;


procedure ClearData;


function GetData(Series, X: integer): double;

TRACE('TimePer = %-15s Series = %3d Idx = %3d Data Count = %3d', [TimePer, Series, idx, Data.Count]);


procedure RemoveEmptySeries;

Init the Point Labels


procedure SetStat(s: string);


Properties


property Stat : string


Events


Variables


Button1 : TButton;


Chart1 : TChart;


CreateGraphBut : TButton;


CreateLab : TLabel;


FieldCombo : TComboBox;


FormSettings1 : TFormSettings;


GradientBox : TCheckBox;


GraphTypeCombo : TComboBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


PageControl1 : TPageControl;


PrintBut : TButton;


PrintDialog1 : TPrintDialog;


RefreshBut : TButton;


RefreshLab : TLabel;


RemEmptyBox : TCheckBox;


ShowMarksBox : TCheckBox;


StatusBar1 : TStatusBar;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TimeCombo : TComboBox;


TimePerCombo : TComboBox;


Timer1 : TTimer;


ToolPanel : TPanel;


View3DBox : TCheckBox;


CurTable : TTable;


DefaultDataField : string;


FilterDesc : string;


Data : TStringList;


NumPoints : integer;


NumSeries : integer;


PointLab : TStringList;


SeriesLab : TStringList;


ShowSeries : TBits;