Class TGrafWizForm (unit GrafWiz) |
Inherits from
TForm
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);
property Stat : string
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;
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);
property Stat : string
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;