home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / CUSTEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  3.7 KB  |  141 lines
  1. {**********************************************}
  2. {   TCustomSeries Component Editor Dialog      }
  3. {   Copyright (c) 1996-98 by David Berneda     }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit CustEdit;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, Series
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19. type
  20.   TCustomSeriesEditor = class(TForm)
  21.     GPLine: TGroupBox;
  22.     BLineBorder: TButton;
  23.     BLineColor: TBitBtn;
  24.     LPattern: TLabel;
  25.     CBLineBrush: TComboBox;
  26.     GBStair: TGroupBox;
  27.     CBStairs: TCheckBox;
  28.     CBInvStairs: TCheckBox;
  29.     CBColorEach: TCheckBox;
  30.     CBDark3D: TCheckBox;
  31.     ShColor: TShape;
  32.     procedure FormShow(Sender: TObject);
  33.     procedure BLineColorClick(Sender: TObject);
  34.     procedure BLineBorderClick(Sender: TObject);
  35.     procedure CBStairsClick(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure CBLineBrushChange(Sender: TObject);
  38.     procedure CBInvStairsClick(Sender: TObject);
  39.     procedure CBColorEachClick(Sender: TObject);
  40.     procedure CBDark3DClick(Sender: TObject);
  41.     procedure ShColorMouseUp(Sender: TObject; Button: TMouseButton;
  42.       Shift: TShiftState; X, Y: Integer);
  43.   private
  44.     { Private declarations }
  45.     CreatingForm:Boolean;
  46.   public
  47.     { Public declarations }
  48.     TheSeries:TCustomSeries;
  49.   end;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54. uses PenDlg, Teengine, TeePoEdi, TeeProcs;
  55.  
  56. procedure TCustomSeriesEditor.FormShow(Sender: TObject);
  57. begin
  58.   Screen.Cursor:=crDefault;
  59.   TheSeries:=TCustomSeries(Tag);
  60.   With TheSeries do
  61.   Begin
  62.     CBColorEach.Checked:=ColorEachPoint;
  63.     SHColor.Brush.Color:=SeriesColor;
  64.  
  65.     if TheSeries is TLineSeries then
  66.     begin
  67.       CBLineBrush.ItemIndex:=Ord(LineBrush);
  68.       CBStairs.Checked:=Stairs;
  69.       CBInvStairs.Checked:=InvertedStairs;
  70.       CBInvStairs.Enabled:=CBStairs.Checked;
  71.       CBDark3D.Checked:=Dark3D;
  72.     end
  73.     else
  74.     begin
  75.       GPLine.Caption:='';
  76.       ShowControls(False,[ BLineBorder,LPattern,CBLineBrush,
  77.                            GBStair,CBDark3D]);
  78.     end;
  79.   end;
  80.   SHColor.Cursor:=crTeeHand;
  81.   if Parent<>nil then
  82.      TeeInsertPointerForm(Parent,TheSeries.Pointer);
  83.   CreatingForm:=False;
  84. end;
  85.  
  86. procedure TCustomSeriesEditor.BLineColorClick(Sender: TObject);
  87. begin
  88.   With TheSeries do SeriesColor:=EditColor(Self,SeriesColor);
  89. end;
  90.  
  91. procedure TCustomSeriesEditor.BLineBorderClick(Sender: TObject);
  92. begin
  93.   EditChartPen(Self,TheSeries.LinePen);
  94. end;
  95.  
  96. procedure TCustomSeriesEditor.CBStairsClick(Sender: TObject);
  97. begin
  98.   TheSeries.Stairs:=CBStairs.Checked;
  99.   CBInvStairs.Enabled:=CBStairs.Checked;
  100. end;
  101.  
  102. procedure TCustomSeriesEditor.FormCreate(Sender: TObject);
  103. begin
  104.   CreatingForm:=True;
  105.   TheSeries:=nil;
  106. end;
  107.  
  108. procedure TCustomSeriesEditor.CBLineBrushChange(Sender: TObject);
  109. begin
  110.   TheSeries.LineBrush:=TBrushStyle(CBLineBrush.ItemIndex);
  111. end;
  112.  
  113. procedure TCustomSeriesEditor.CBInvStairsClick(Sender: TObject);
  114. begin
  115.   TheSeries.InvertedStairs:=CBInvStairs.Checked;
  116. end;
  117.  
  118. procedure TCustomSeriesEditor.CBColorEachClick(Sender: TObject);
  119. begin
  120.   TheSeries.ColorEachPoint:=CBColorEach.Checked;
  121. end;
  122.  
  123. procedure TCustomSeriesEditor.CBDark3DClick(Sender: TObject);
  124. begin
  125.   TheSeries.Dark3D:=CBDark3D.Checked;
  126. end;
  127.  
  128. procedure TCustomSeriesEditor.ShColorMouseUp(Sender: TObject;
  129.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  130. begin
  131.   With TheSeries do
  132.   begin
  133.     SeriesColor:=EditColor(Self,SeriesColor);
  134.     SHColor.Brush.Color:=SeriesColor;
  135.   end;
  136. end;
  137.  
  138. initialization
  139.   RegisterClass(TCustomSeriesEditor);
  140. end.
  141.