home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / TEECLOCK / CLOCK2.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  3.3 KB  |  138 lines
  1. unit Clock2;
  2. {$I teedefs.inc}
  3.  
  4. interface
  5.  
  6. uses
  7.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   ExtCtrls, TeeProcs, TeEngine, Chart, TeeComma, StdCtrls, TeeRose, TeeEdit;
  9.  
  10. type
  11.   TFormTeeClockEditor = class(TForm)
  12.     Chart1: TChart;
  13.     TeeCommander1: TTeeCommander;
  14.     RadioGroup1: TRadioGroup;
  15.     Button1: TButton;
  16.     Button2: TButton;
  17.     CheckBox1: TCheckBox;
  18.     Button3: TButton;
  19.     Button4: TButton;
  20.     Button5: TButton;
  21.     Button6: TButton;
  22.     Button7: TButton;
  23.     ChartEditor1: TChartEditor;
  24.     CheckBox2: TCheckBox;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure CheckBox1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure RadioGroup1Click(Sender: TObject);
  30.     procedure Button4Click(Sender: TObject);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure FormShow(Sender: TObject);
  33.     procedure Button5Click(Sender: TObject);
  34.     procedure Button6Click(Sender: TObject);
  35.     procedure Button7Click(Sender: TObject);
  36.     procedure CheckBox2Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.     Function Clock:TClockSeries;
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   FormTeeClockEditor: TFormTeeClockEditor;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50. Uses PenDlg, BrushDlg
  51.      {$IFNDEF D1}
  52.      , IEditCha, IEdiGene
  53.      {$ENDIF};
  54.  
  55. Function TFormTeeClockEditor.Clock:TClockSeries;
  56. begin
  57.   result:=(Chart1[0] as TClockSeries)
  58. end;
  59.  
  60. procedure TFormTeeClockEditor.FormCreate(Sender: TObject);
  61. begin
  62.   With TeeCommander1 do
  63.   begin
  64.     ButtonNormal.Visible:=False;
  65.     ButtonDepth.Visible:=False;
  66.     ButtonRotate.Down:=True;
  67.     ShowValues;
  68.     ChartEditor:=ChartEditor1;
  69.   end;
  70. end;
  71.  
  72. procedure TFormTeeClockEditor.CheckBox1Click(Sender: TObject);
  73. begin
  74.   Clock.CircleLabels:=CheckBox1.Checked;
  75.   RadioGroup1.Enabled:=Clock.CircleLabels;
  76.   Button1.Enabled:=Clock.CircleLabels;
  77. end;
  78.  
  79. procedure TFormTeeClockEditor.Button2Click(Sender: TObject);
  80. begin
  81.   With Clock do CircleBackColor:=EditColor(Self,CircleBackColor);
  82. end;
  83.  
  84. procedure TFormTeeClockEditor.Button3Click(Sender: TObject);
  85. begin
  86.   EditChartPen(Self,Clock.CirclePen);
  87. end;
  88.  
  89. procedure TFormTeeClockEditor.RadioGroup1Click(Sender: TObject);
  90. begin
  91.   if RadioGroup1.ItemIndex=0 then
  92.      Clock.Style:=cssRoman
  93.   else
  94.      Clock.Style:=cssDecimal
  95. end;
  96.  
  97. procedure TFormTeeClockEditor.Button4Click(Sender: TObject);
  98. begin
  99.   EditChartPen(Self,Chart1.BottomAxis.Grid);
  100. end;
  101.  
  102. procedure TFormTeeClockEditor.Button1Click(Sender: TObject);
  103. begin
  104.   InternalEditFont(Self,Clock.CircleLabelsFont);
  105. end;
  106.  
  107. procedure TFormTeeClockEditor.FormShow(Sender: TObject);
  108. begin
  109.   CheckBox1.Checked:=Clock.CircleLabels;
  110.   CheckBox1Click(Self);
  111.   if Clock.Style=cssRoman then
  112.      RadioGroup1.ItemIndex:=0
  113.   else
  114.      RadioGroup1.ItemIndex:=1;
  115. end;
  116.  
  117. procedure TFormTeeClockEditor.Button5Click(Sender: TObject);
  118. begin
  119.   EditChartPen(Self,Clock.PenSeconds);
  120. end;
  121.  
  122. procedure TFormTeeClockEditor.Button6Click(Sender: TObject);
  123. begin
  124.   EditChartBrush(Self,Clock.Brush);
  125. end;
  126.  
  127. procedure TFormTeeClockEditor.Button7Click(Sender: TObject);
  128. begin
  129.   ChartEditor1.Execute;
  130. end;
  131.  
  132. procedure TFormTeeClockEditor.CheckBox2Click(Sender: TObject);
  133. begin
  134.   Clock.Circled:=not CheckBox2.Checked;
  135. end;
  136.  
  137. end.
  138.