home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Series_DataSet.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.9 KB  |  73 lines
  1. unit Series_DataSet;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, Grids, DBGrids, Db, TeeData, TeEngine, TeeSurfa, ExtCtrls,
  8.   TeeProcs, Chart, StdCtrls, TeeTools, DBCtrls;
  9.  
  10. type
  11.   TSeriesDataSetForm = class(TBaseForm)
  12.     Series1: TSurfaceSeries;
  13.     SeriesDataSet1: TSeriesDataSet;
  14.     DataSource1: TDataSource;
  15.     SeriesDataSet1Color: TIntegerField;
  16.     SeriesDataSet1X: TFloatField;
  17.     SeriesDataSet1Y: TFloatField;
  18.     SeriesDataSet1Label: TStringField;
  19.     SeriesDataSet1Z: TFloatField;
  20.     CheckBox1: TCheckBox;
  21.     ChartTool1: TRotateTool;
  22.     Panel2: TPanel;
  23.     DBGrid1: TDBGrid;
  24.     DBNavigator1: TDBNavigator;
  25.     procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  26.       DataCol: Integer; Column: TColumn; State: TGridDrawState);
  27.     procedure CheckBox1Click(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure DBGrid1EditButtonClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. Uses TeCanvas;
  41.  
  42. procedure TSeriesDataSetForm.DBGrid1DrawColumnCell(Sender: TObject;
  43.   const Rect: TRect; DataCol: Integer; Column: TColumn;
  44.   State: TGridDrawState);
  45. begin
  46.   if DataCol=0 then
  47.   With DBGrid1.Canvas do
  48.   begin
  49.     Brush.Color:=Column.Field.AsInteger;
  50.     FillRect(Rect);
  51.   end;
  52. end;
  53.  
  54. procedure TSeriesDataSetForm.CheckBox1Click(Sender: TObject);
  55. begin
  56.   SeriesDataSet1.Active:=CheckBox1.Checked;
  57. end;
  58.  
  59. procedure TSeriesDataSetForm.FormCreate(Sender: TObject);
  60. begin
  61.   inherited;
  62.   Series1.FillSampleValues(20);
  63. end;
  64.  
  65. procedure TSeriesDataSetForm.DBGrid1EditButtonClick(Sender: TObject);
  66. begin
  67.   SeriesDataSet1Color.AsInteger:=EditColor(Self,SeriesDataSet1Color.AsInteger);
  68. end;
  69.  
  70. initialization
  71.   RegisterClass(TSeriesDataSetForm);
  72. end.
  73.