Описание программы стр. 4-45 описание компонент chart предназначен для отображения графиков

Вид материалаКурсовая

Содержание


Третья вкладка “3D”. Эта вкладка включает и выключает 3D компонента
Подобный материал:
Университетский центр компьютерного обучения «ТУРБО»


Курсовая работа


Исследование компонентов Delphi

Компонент CHART



Выполнил:

студент гр. ПП21




Калашников.Н.В

Преподаватель:

Муслимова.А.Г



г. Майкоп

2008г


Оглавление:

Оглавление стр.2

Описание компонента Chart стр.3

Описание программы стр.4-45


ОПИСАНИЕ


Компонент CHART предназначен для отображения графиков

Разного типа. В компонент MEMO вы вводите числа, и в

Зависимости от этих чисел строится график. Так же на FORME

Расположены 3 BUTTON(3 кнопки).




Форма CHART-Отображает Свойства Компонента Chart.

На ней находится 3 вкладки:


Первая вкладка “Panel” отображает свойства панели компонента Chart.

Bevelinner и BevelOuter изменяют рамку панели.Gradient-это заливка панели внутри компонента Chart. При включении и выключении компонента Visible включается и выключается заливка панель компонента Chart.




Вторая вкладка “Legend”. Отображает свойства рамки чисел и чисел взятых для построения графика компонента Chart. Кнопка Frame изменяют рамку чисел. Кнопка Font открывает меню, в котором можно изменять параметры чисел. Кнопка Dividing lines служит для включения и выключения строчек под числами и изменения их внешнего вида.





Третья вкладка “3D”. Эта вкладка включает и выключает 3D компонента Chart. При включении Компонента Checkbox включается и выключается 3D компонента Chart. Checkbox ‘Orthogonal’ включает и выключает прямой и боковой вид. Компонентами Scrollbar можно изменять внешний вид компонента Chart.




ПРОГРАММА

unit Unit1;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series, Menus,

Spin;


type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

memo: TMemo;

Bevel1: TBevel;

Button3: TButton;

Chart1: TChart;

Series1: TLineSeries;

FontDialog1: TFontDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);


private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation


uses Unit3, Unit2, Unit4, Unit5, Unit6, Unit7;


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

for n:=0 to memo.Lines.Count - 1 do

Chart1.Series[0].Add(StrToFloat(Memo.Lines[n]),inttostr(n),clred);

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

Chart1.Title.Text.Clear;

Chart1.Series[0].Clear;

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Show;

form1.Enabled:=false;

end;


end.

unit Unit3;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Spin;


type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

GroupBox2: TGroupBox;

RadioButton4: TRadioButton;

GroupBox3: TGroupBox;

RadioButton8: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

CheckBox1: TCheckBox;

Button1: TButton;

GroupBox4: TGroupBox;

CheckBox2: TCheckBox;

Label2: TLabel;

Label3: TLabel;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

TabSheet3: TTabSheet;

SpinEdit3: TSpinEdit;

Label4: TLabel;

CheckBox4: TCheckBox;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

ScrollBar1: TScrollBar;

ScrollBar2: TScrollBar;

ScrollBar3: TScrollBar;

ScrollBar4: TScrollBar;

ScrollBar5: TScrollBar;

ScrollBar6: TScrollBar;

Button2: TButton;

CheckBox3: TCheckBox;

Button3: TButton;

Button5: TButton;

Button6: TButton;


procedure RadioButton8Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

procedure SpinEdit2Change(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure SpinEdit3Change(Sender: TObject);

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

procedure Button5Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure ScrollBar3Change(Sender: TObject);

procedure ScrollBar4Change(Sender: TObject);

procedure ScrollBar5Change(Sender: TObject);

procedure ScrollBar6Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form3: TForm3;


implementation


uses Unit1, Unit2, Unit4, Unit5, Unit6;


{$R *.dfm}


procedure TForm3.RadioButton8Click(Sender: TObject);

begin

if radiobutton8.Checked then form1.Chart1.BevelInner:=bvnone;

end;


procedure TForm3.RadioButton5Click(Sender: TObject);

begin

if radiobutton5.Checked then form1.Chart1.BevelInner:=bvLowered;

end;


procedure TForm3.RadioButton6Click(Sender: TObject);

begin

if radiobutton6.Checked then form1.Chart1.BevelInner:=bvRaised;

end;


procedure TForm3.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.Checked then form1.Chart1.BevelOuter:=bvnone;

end;


procedure TForm3.RadioButton2Click(Sender: TObject);

begin

if radiobutton2.Checked then form1.Chart1.BevelOuter:=bvLowered;

end;


procedure TForm3.RadioButton3Click(Sender: TObject);

begin

if radiobutton3.Checked then form1.Chart1.BevelOuter:=bvRaised;

end;


procedure TForm3.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then form1.Chart1.borderwidth:=3 else form1.Chart1.borderwidth:=0;

end;


procedure TForm3.Button1Click(Sender: TObject);

begin

form2.Show;

form3.Enabled:=false;

end;


procedure TForm3.Button2Click(Sender: TObject);

begin

close;

end;


procedure TForm3.CheckBox2Click(Sender: TObject);

begin

if checkbox2.checked then

form1.Chart1.Gradient.Visible:=true

else form1.Chart1.Gradient.Visible:=false;


end;


procedure TForm3.SpinEdit1Change(Sender: TObject);

begin

form1.Chart1.BevelWidth:=spinedit1.value;

end;


procedure TForm3.SpinEdit2Change(Sender: TObject);

begin

form1.Chart1.BorderWidth:=spinedit2.Value;

end;


procedure TForm3.CheckBox3Click(Sender: TObject);

begin

if checkbox3.checked then form1.Chart1.view3d:=true else form1.Chart1.view3d:=false;

if checkbox3.checked then spinedit3.Enabled:=true else spinedit3.Enabled:=false;

if checkbox3.checked then checkbox4.Enabled:=true else spinedit3.Enabled:=false;

if checkbox4.checked then scrollbar1.enabled:=true else scrollbar1.enabled:=false;

if checkbox4.checked then scrollbar4.enabled:=true else scrollbar4.enabled:=false;

if checkbox4.checked then scrollbar5.enabled:=true else scrollbar5.enabled:=false;

end;


procedure TForm3.CheckBox4Click(Sender: TObject);

begin

if checkbox4.Checked then scrollbar2.enabled:=false else scrollbar2.enabled:=true;

if checkbox4.Checked then scrollbar3.enabled:=false else scrollbar3.enabled:=true;

if checkbox4.Checked then scrollbar6.enabled:=false else scrollbar6.enabled:=true;

if checkbox4.checked then form1.Chart1.view3dOptions.Orthogonal:=true else form1.Chart1.view3dOptions.Orthogonal:=false;

end;


procedure TForm3.SpinEdit3Change(Sender: TObject);

begin

form1.Chart1.Chart3dPercent:=spinedit3.Value;

end;


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

begin

Form1.Enabled:=true;

end;


procedure TForm3.Button5Click(Sender: TObject);

begin

form5.show;

form3.Enabled:=false;

end;


procedure TForm3.Button3Click(Sender: TObject);

begin

form6.show;

form3.Enabled:=false;

end;


procedure TForm3.ScrollBar1Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.zoom:=form3.scrollbar1.Position;

end;


procedure TForm3.Button6Click(Sender: TObject);

begin

if form1.FontDialog1.Execute then

form1.chart1.legend.font:=form1.Fontdialog1.Font;

end;


procedure TForm3.ComboBox3Change(Sender: TObject);

begin

//if combobox3.itemindex=0 then

//form1.chart1.Gradient.Direction:=gdTopBottom;

//if combobox3.itemindex=1 then

//form1.chart1.Gradient.Direction:=gdBottomTop;

//if combobox3.itemindex=2 then

//form1.chart1.Gradient.Direction:=gdLeftright;

//if combobox3.itemindex=0 then

//form1.chart1.Gradient.Direction:=gdrightleft;

//if combobox3.itemindex=0 then

//form1.chart1.Gradient.Direction:=Fromcenter;

//if combobox3.itemindex=0 then

//form1.chart1.Gradient.Direction:=gdFromTopLeft;

//if combobox3.itemindex=0 then

//form1.chart1.Gradient.Direction:=gdFromBottomleft;

end;


procedure TForm3.ScrollBar2Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.Rotation:=form3.scrollbar2.Position;

end;


procedure TForm3.ScrollBar3Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.Elevation:=form3.scrollbar3.Position;

end;


procedure TForm3.ScrollBar4Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.HorizOffset:=form3.scrollbar4.Position;

end;


procedure TForm3.ScrollBar5Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.VertOffset:=form3.scrollbar5.Position;

end;


procedure TForm3.ScrollBar6Change(Sender: TObject);

begin

form1.Chart1.view3dOptions.Perspective:=form3.scrollbar6.Position;

end;


end.

unit Unit2;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;


type

TForm2 = class(TForm)

Button1: TButton;

Bevel1: TBevel;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel13: TPanel;

Panel14: TPanel;

Panel15: TPanel;

Panel16: TPanel;

Panel17: TPanel;

Panel19: TPanel;

Panel20: TPanel;

Panel21: TPanel;

Panel22: TPanel;

Panel23: TPanel;

Panel25: TPanel;

Panel26: TPanel;

Panel27: TPanel;

Panel28: TPanel;

Panel29: TPanel;

Panel31: TPanel;

Panel32: TPanel;

Panel33: TPanel;

Panel34: TPanel;

Panel35: TPanel;

Panel37: TPanel;

Panel38: TPanel;

Panel39: TPanel;

Panel40: TPanel;

Panel41: TPanel;

Panel12: TPanel;

Panel18: TPanel;

Panel24: TPanel;

Panel30: TPanel;

Panel36: TPanel;

Panel42: TPanel;

procedure Button1Click(Sender: TObject);

procedure Shape1ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

procedure Shape2ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

procedure Shape3ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

procedure Panel1Click(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure Panel3Click(Sender: TObject);

procedure Panel5Click(Sender: TObject);

procedure Panel4Click(Sender: TObject);

procedure Panel6Click(Sender: TObject);

procedure Panel7Click(Sender: TObject);

procedure Panel8Click(Sender: TObject);

procedure Panel9Click(Sender: TObject);

procedure Panel11Click(Sender: TObject);

procedure Panel10Click(Sender: TObject);

procedure Panel12Click(Sender: TObject);

procedure Panel13Click(Sender: TObject);

procedure Panel14Click(Sender: TObject);

procedure Panel15Click(Sender: TObject);

procedure Panel17Click(Sender: TObject);

procedure Panel16Click(Sender: TObject);

procedure Panel18Click(Sender: TObject);

procedure Panel19Click(Sender: TObject);

procedure Panel20Click(Sender: TObject);

procedure Panel21Click(Sender: TObject);

procedure Panel23Click(Sender: TObject);

procedure Panel22Click(Sender: TObject);

procedure Panel24Click(Sender: TObject);

procedure Panel25Click(Sender: TObject);

procedure Panel26Click(Sender: TObject);

procedure Panel27Click(Sender: TObject);

procedure Panel29Click(Sender: TObject);

procedure Panel28Click(Sender: TObject);

procedure Panel30Click(Sender: TObject);

procedure Panel31Click(Sender: TObject);

procedure Panel32Click(Sender: TObject);

procedure Panel33Click(Sender: TObject);

procedure Panel35Click(Sender: TObject);

procedure Panel34Click(Sender: TObject);

procedure Panel36Click(Sender: TObject);

procedure Panel37Click(Sender: TObject);

procedure Panel38Click(Sender: TObject);

procedure Panel39Click(Sender: TObject);

procedure Panel41Click(Sender: TObject);

procedure Panel40Click(Sender: TObject);

procedure Panel42Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form2: TForm2;


implementation


uses Unit1, Unit3;


{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);

begin

close;

form3.Enabled:=true;

end;


procedure TForm2.Shape1ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

form1.chart1.color:=$008080FF;

end;


procedure TForm2.Shape2ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

form1.chart1.color:=$0080FFFF;

end;


procedure TForm2.Shape3ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

form1.chart1.color:=$0080FF80;

end;


procedure TForm2.Panel1Click(Sender: TObject);

begin

form1.Chart1.Color:=$008080FF;

end;


procedure TForm2.Panel2Click(Sender: TObject);

begin

form1.Chart1.Color:=$0080FFFF;

end;


procedure TForm2.Panel3Click(Sender: TObject);

begin

form1.Chart1.Color:=$0080FF80;

end;


procedure TForm2.Panel5Click(Sender: TObject);

begin

form1.Chart1.Color:=$0080FF00;

end;


procedure TForm2.Panel4Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FFFF80;

end;


procedure TForm2.Panel6Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FF8000;

end;


procedure TForm2.Panel7Click(Sender: TObject);

begin

form1.Chart1.Color:=$00C080FF;

end;


procedure TForm2.Panel8Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FF80FF;

end;


procedure TForm2.Panel9Click(Sender: TObject);

begin

form1.Chart1.Color:=clRed;

end;


procedure TForm2.Panel11Click(Sender: TObject);

begin

form1.Chart1.Color:=clYellow;

end;


procedure TForm2.Panel10Click(Sender: TObject);

begin

form1.Chart1.Color:=$0000FF80;

end;


procedure TForm2.Panel12Click(Sender: TObject);

begin

form1.Chart1.Color:=$0040FF00;

end;


procedure TForm2.Panel13Click(Sender: TObject);

begin

form1.Chart1.Color:=$00C08000;

end;


procedure TForm2.Panel14Click(Sender: TObject);

begin

form1.Chart1.Color:=$00C08080;

end;


procedure TForm2.Panel15Click(Sender: TObject);

begin

form1.Chart1.Color:=$00404080;

end;


procedure TForm2.Panel17Click(Sender: TObject);

begin

form1.Chart1.Color:=$004080FF;

end;


procedure TForm2.Panel16Click(Sender: TObject);

begin

form1.Chart1.Color:=clTeal;

end;


procedure TForm2.Panel18Click(Sender: TObject);

begin

form1.Chart1.Color:=$00400080;

end;


procedure TForm2.Panel19Click(Sender: TObject);

begin

form1.Chart1.Color:=clGreen;

end;


procedure TForm2.Panel20Click(Sender: TObject);

begin

form1.Chart1.Color:=clBlue;

end;


procedure TForm2.Panel21Click(Sender: TObject);

begin

form1.Chart1.Color:=$00804000;

end;


procedure TForm2.Panel23Click(Sender: TObject);

begin

form1.Chart1.Color:=clSilver;

end;


procedure TForm2.Panel22Click(Sender: TObject);

begin

form1.Chart1.Color:=$00808040;

end;


procedure TForm2.Panel24Click(Sender: TObject);

begin

form1.Chart1.Color:=clGray;

end;


procedure TForm2.Panel25Click(Sender: TObject);

begin

form1.Chart1.Color:=$00800040;

end;


procedure TForm2.Panel26Click(Sender: TObject);

begin

form1.Chart1.Color:=$00004080;

end;


procedure TForm2.Panel27Click(Sender: TObject);

begin

form1.Chart1.Color:=$0006BACE;

end;


procedure TForm2.Panel29Click(Sender: TObject);

begin

form1.Chart1.Color:=$00404000;

end;


procedure TForm2.Panel28Click(Sender: TObject);

begin

form1.Chart1.Color:=clBlack;

end;


procedure TForm2.Panel30Click(Sender: TObject);

begin

form1.Chart1.Color:=$00C9A38F;

end;


procedure TForm2.Panel31Click(Sender: TObject);

begin

form1.Chart1.Color:=$0093DBDD;

end;


procedure TForm2.Panel32Click(Sender: TObject);

begin

form1.Chart1.Color:=$002E03D6;

end;


procedure TForm2.Panel33Click(Sender: TObject);

begin

form1.Chart1.Color:=$000080FF;

end;


procedure TForm2.Panel35Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FF0080;

end;


procedure TForm2.Panel34Click(Sender: TObject);

begin

form1.Chart1.Color:=clPurple;

end;


procedure TForm2.Panel36Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FF116A;

end;


procedure TForm2.Panel37Click(Sender: TObject);

begin

form1.Chart1.Color:=$00C1CF41;

end;


procedure TForm2.Panel38Click(Sender: TObject);

begin

form1.Chart1.Color:=$005B84B5;

end;


procedure TForm2.Panel39Click(Sender: TObject);

begin

form1.Chart1.Color:=$0011EDFF;

end;


procedure TForm2.Panel41Click(Sender: TObject);

begin

form1.Chart1.Color:=$00FDFD44;

end;


procedure TForm2.Panel40Click(Sender: TObject);

begin

form1.Chart1.Color:=$00DAC7FE;

end;


procedure TForm2.Panel42Click(Sender: TObject);

begin

form1.Chart1.Color:=clWhite;

end;


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

begin

Form3.Enabled:=true;

end;


end.

unit Unit5;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin;


type

TForm5 = class(TForm)

GroupBox5: TGroupBox;

Label17: TLabel;

Button1: TButton;

CheckBox1: TCheckBox;

SpinEdit1: TSpinEdit;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

procedure Button1Click(Sender: TObject);

procedure SpinEdit4Change(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

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

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form5: TForm5;


implementation


uses Unit4, Unit3, Unit1;


{$R *.dfm}


procedure TForm5.Button1Click(Sender: TObject);

begin

form4.show;

form3.Enabled:=false;

end;


procedure TForm5.SpinEdit4Change(Sender: TObject);

begin

form1.Chart1.legend.Frame.width:=spinedit1.Value;

if spinedit1.Value>1 then radiobutton6.Enabled:=false else radiobutton6.Enabled:=true;

if spinedit1.Value>1 then radiobutton7.Enabled:=false else radiobutton7.Enabled:=true;

if spinedit1.Value>1 then radiobutton8.Enabled:=false else radiobutton8.Enabled:=true;

if spinedit1.Value>1 then radiobutton9.Enabled:=false else radiobutton9.Enabled:=true;

if spinedit1.Value>1 then radiobutton10.Enabled:=false else radiobutton10.Enabled:=true;

end;


procedure TForm5.RadioButton1Click(Sender: TObject);

begin

if radiobutton6.Checked then

form1.Chart1.Legend.frame.Style:=psSolid;

end;


procedure TForm5.RadioButton2Click(Sender: TObject);

begin

if radiobutton7.Checked then

form1.Chart1.Legend.frame.Style:=psDash;

end;


procedure TForm5.RadioButton4Click(Sender: TObject);

begin

if radiobutton8.Checked then

form1.Chart1.Legend.frame.Style:=psDashDot;

end;


procedure TForm5.RadioButton5Click(Sender: TObject);

begin

if radiobutton9.Checked then

form1.Chart1.Legend.frame.Style:=psDashDotDot;

end;


procedure TForm5.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then form1.chart1.Legend.Frame.Visible:=true

else form1.chart1.Legend.Frame.Visible:=false;


end;


procedure TForm5.RadioButton6Click(Sender: TObject);

begin

if radiobutton6.Checked then

form1.Chart1.Legend.frame.Style:=psDash;

end;


procedure TForm5.SpinEdit1Change(Sender: TObject);

begin

form1.Chart1.legend.Frame.width:=spinedit1.Value;

if spinedit1.Value>1 then radiobutton6.Enabled:=false else radiobutton6.Enabled:=true;

if spinedit1.Value>1 then radiobutton7.Enabled:=false else radiobutton7.Enabled:=true;

if spinedit1.Value>1 then radiobutton8.Enabled:=false else radiobutton8.Enabled:=true;

if spinedit1.Value>1 then radiobutton9.Enabled:=false else radiobutton9.Enabled:=true;

if spinedit1.Value>1 then radiobutton10.Enabled:=false else radiobutton10.Enabled:=true;

end;


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

begin

Form3.Enabled:=true;

end;


procedure TForm5.RadioButton3Click(Sender: TObject);

begin

if radiobutton7.Checked then

form1.Chart1.Legend.frame.Style:=psDot;

end;


procedure TForm5.RadioButton8Click(Sender: TObject);

begin

if radiobutton8.Checked then

form1.Chart1.Legend.frame.Style:=psSolid;

end;


procedure TForm5.RadioButton7Click(Sender: TObject);

begin

if radiobutton7.Checked then

form1.Chart1.Legend.frame.Style:=psDot;

end;


procedure TForm5.RadioButton9Click(Sender: TObject);

begin

if radiobutton9.Checked then

form1.Chart1.Legend.frame.Style:=psDashDot;

end;


procedure TForm5.RadioButton10Click(Sender: TObject);

begin

if radiobutton10.Checked then

form1.Chart1.Legend.frame.Style:=psDashDotDot;

end;


end.


unit Unit4;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;


type

TForm4 = class(TForm)

Button1: TButton;

Bevel1: TBevel;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel13: TPanel;

Panel14: TPanel;

Panel15: TPanel;

Panel16: TPanel;

Panel17: TPanel;

Panel19: TPanel;

Panel20: TPanel;

Panel21: TPanel;

Panel22: TPanel;

Panel23: TPanel;

Panel25: TPanel;

Panel26: TPanel;

Panel27: TPanel;

Panel28: TPanel;

Panel29: TPanel;

Panel31: TPanel;

Panel32: TPanel;

Panel33: TPanel;

Panel34: TPanel;

Panel35: TPanel;

Panel37: TPanel;

Panel38: TPanel;

Panel39: TPanel;

Panel40: TPanel;

Panel41: TPanel;

Panel12: TPanel;

Panel18: TPanel;

Panel24: TPanel;

Panel30: TPanel;

Panel36: TPanel;

Panel42: TPanel;

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

procedure Panel1Click(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure Panel3Click(Sender: TObject);

procedure Panel5Click(Sender: TObject);

procedure Panel4Click(Sender: TObject);

procedure Panel6Click(Sender: TObject);

procedure Panel7Click(Sender: TObject);

procedure Panel8Click(Sender: TObject);

procedure Panel9Click(Sender: TObject);

procedure Panel11Click(Sender: TObject);

procedure Panel10Click(Sender: TObject);

procedure Panel12Click(Sender: TObject);

procedure Panel13Click(Sender: TObject);

procedure Panel14Click(Sender: TObject);

procedure Panel15Click(Sender: TObject);

procedure Panel17Click(Sender: TObject);

procedure Panel16Click(Sender: TObject);

procedure Panel18Click(Sender: TObject);

procedure Panel19Click(Sender: TObject);

procedure Panel20Click(Sender: TObject);

procedure Panel21Click(Sender: TObject);

procedure Panel23Click(Sender: TObject);

procedure Panel22Click(Sender: TObject);

procedure Panel24Click(Sender: TObject);

procedure Panel25Click(Sender: TObject);

procedure Panel26Click(Sender: TObject);

procedure Panel29Click(Sender: TObject);

procedure Panel27Click(Sender: TObject);

procedure Panel28Click(Sender: TObject);

procedure Panel30Click(Sender: TObject);

procedure Panel31Click(Sender: TObject);

procedure Panel32Click(Sender: TObject);

procedure Panel33Click(Sender: TObject);

procedure Panel35Click(Sender: TObject);

procedure Panel34Click(Sender: TObject);

procedure Panel36Click(Sender: TObject);

procedure Panel37Click(Sender: TObject);

procedure Panel38Click(Sender: TObject);

procedure Panel39Click(Sender: TObject);

procedure Panel41Click(Sender: TObject);

procedure Panel40Click(Sender: TObject);

procedure Panel42Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form4: TForm4;


implementation


uses Unit3, Unit1;


{$R *.dfm}


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

begin

Form3.Enabled:=true;

end;


procedure TForm4.Panel1Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$008080FF;

end;


procedure TForm4.Panel2Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0080FFFF;

end;


procedure TForm4.Panel3Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0080FF80;

end;


procedure TForm4.Panel5Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0080FF00;

end;


procedure TForm4.Panel4Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FFFF80;

end;


procedure TForm4.Panel6Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FF8000;

end;


procedure TForm4.Panel7Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00C080FF;

end;


procedure TForm4.Panel8Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FF80FF;

end;


procedure TForm4.Panel9Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clRed;

end;


procedure TForm4.Panel11Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clYellow;

end;


procedure TForm4.Panel10Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0000FF80;

end;


procedure TForm4.Panel12Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0040FF00;

end;


procedure TForm4.Panel13Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00C08000;

end;


procedure TForm4.Panel14Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00C08080;

end;


procedure TForm4.Panel15Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00404080;

end;


procedure TForm4.Panel17Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$008080FF;

end;


procedure TForm4.Panel16Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$004080FF;

end;


procedure TForm4.Panel18Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00400080;

end;


procedure TForm4.Panel19Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clGreen;

end;


procedure TForm4.Panel20Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clBlue;

end;


procedure TForm4.Panel21Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00804000;

end;


procedure TForm4.Panel23Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clSilver;

end;


procedure TForm4.Panel22Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00808040;

end;


procedure TForm4.Panel24Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clGray;

end;


procedure TForm4.Panel25Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00800040;

end;


procedure TForm4.Panel26Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00004080;

end;


procedure TForm4.Panel29Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00404000;

end;


procedure TForm4.Panel27Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0006BACE;

end;


procedure TForm4.Panel28Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clblack;

end;


procedure TForm4.Panel30Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00C9A38F;

end;


procedure TForm4.Panel31Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0093DBDD;

end;


procedure TForm4.Panel32Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$002E03D6;

end;


procedure TForm4.Panel33Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$000080FF;

end;


procedure TForm4.Panel35Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FF0080;

end;


procedure TForm4.Panel34Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clPurple;

end;


procedure TForm4.Panel36Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FF116A;

end;


procedure TForm4.Panel37Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00C1CF41;

end;


procedure TForm4.Panel38Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$005B84B5;

end;


procedure TForm4.Panel39Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$0011EDFF;

end;


procedure TForm4.Panel41Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00FDFD44;

end;


procedure TForm4.Panel40Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=$00DAC7FE;

end;


procedure TForm4.Panel42Click(Sender: TObject);

begin

form1.Chart1.legend.frame.Color:=clwhite;

end;


procedure TForm4.Button1Click(Sender: TObject);

begin

close;

end;


end.

unit Unit6;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin;


type

TForm6 = class(TForm)

SpinEdit1: TSpinEdit;

Label17: TLabel;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

CheckBox1: TCheckBox;

RadioButton6: TRadioButton;

RadioButton4: TRadioButton;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form6: TForm6;


implementation


uses Unit7, Unit1, Unit3;


{$R *.dfm}


procedure TForm6.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psSolid;

end;


procedure TForm6.RadioButton2Click(Sender: TObject);

begin

if radiobutton2.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psDash;

end;


procedure TForm6.RadioButton3Click(Sender: TObject);

begin

if radiobutton3.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psDashDot;

end;


procedure TForm6.RadioButton5Click(Sender: TObject);

begin

if radiobutton4.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psDashDotDot;

end;


procedure TForm6.RadioButton6Click(Sender: TObject);

begin

if radiobutton6.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psDot;

end;


procedure TForm6.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then form1.chart1.Legend.Dividinglines.Visible:=true

else form1.chart1.Legend.Dividinglines.Visible:=false;

end;


procedure TForm6.RadioButton4Click(Sender: TObject);

begin

if radiobutton3.Checked then

form1.Chart1.Legend.Dividinglines.Style:=psDashDotDot;

end;


procedure TForm6.SpinEdit1Change(Sender: TObject);

begin

form1.Chart1.legend.Dividinglines.width:=spinedit1.Value;

if spinedit1.Value>1 then radiobutton6.Enabled:=false else radiobutton6.Enabled:=true;

if spinedit1.Value>1 then radiobutton1.Enabled:=false else radiobutton1.Enabled:=true;

if spinedit1.Value>1 then radiobutton2.Enabled:=false else radiobutton2.Enabled:=true;

if spinedit1.Value>1 then radiobutton3.Enabled:=false else radiobutton3.Enabled:=true;

if spinedit1.Value>1 then radiobutton4.Enabled:=false else radiobutton4.Enabled:=true;

end;


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

begin

Form3.Enabled:=true;

end;


end.