DelphiCS/Uchart_Frame.pas at master · devgearedu/DelphiCS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Uchart_Frame;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus,
  Data.DB, Vcl.StdCtrls, VCLTee.TeEngine, VCLTee.Series, Vcl.ExtCtrls,
  VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart, Vcl.ColorGrd;

type
  TchartFrame = class(TFrame)
    DBChart1: TDBChart;
    Series1: TBarSeries;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ColorGrid1: TColorGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ColorGrid1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TchartFrame.Button1Click(Sender: TObject);
begin
  dbchart1.Page := 1;
end;

procedure TchartFrame.Button2Click(Sender: TObject);
begin
  dbchart1.PreviousPage;
end;

procedure TchartFrame.Button3Click(Sender: TObject);
begin
  dbchart1.NextPage;
end;

procedure TchartFrame.Button4Click(Sender: TObject);
begin
  dbchart1.Page := dbchart1.NumPages;
end;

procedure TchartFrame.CheckBox1Click(Sender: TObject);
begin
   DBchart1.View3D := checkBox1.Checked;
end;

procedure TchartFrame.ColorGrid1Change(Sender: TObject);
begin
  dbChart1.Series[0].color := ColorGrid1.ForegroundColor;
end;

procedure TchartFrame.ComboBox1Change(Sender: TObject);
begin
  dbchart1.ZoomPercent(strtoint(combobox1.Items[combobox1.ItemIndex]));
end;

end.