home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / CONTEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.5 KB  |  101 lines
  1. {**********************************************}
  2. {   TSurfaceSeries Editor Dialog               }
  3. {   Copyright (c) 1996-98 by David Berneda     }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit ContEdit;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, TeeSurfa
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19. type
  20.   TContourSeriesEditor = class(TForm)
  21.     Button2: TButton;
  22.     Label4: TLabel;
  23.     SENumLevels: TEdit;
  24.     CBColorEach: TCheckBox;
  25.     Label2: TLabel;
  26.     SEYPos: TEdit;
  27.     CBYPosLevel: TCheckBox;
  28.     UDYPos: TUpDown;
  29.     UDNumLevels: TUpDown;
  30.     procedure FormShow(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure SENumLevelsChange(Sender: TObject);
  33.     procedure CBYPosLevelClick(Sender: TObject);
  34.     procedure SEYPosChange(Sender: TObject);
  35.     procedure CBColorEachClick(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.     CreatingForm : Boolean;
  40.     Contour      : TContourSeries;
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48. Uses PenDlg, TeeGriEd;
  49.  
  50.  
  51. procedure TContourSeriesEditor.FormShow(Sender: TObject);
  52. begin
  53.   Screen.Cursor:=crDefault;
  54.   Contour:=TContourSeries(Tag);
  55.   With Contour do
  56.   begin
  57.     CBColorEach.Checked :=ColorEachPoint;
  58.     CBYPosLevel.Checked :=YPositionLevel;
  59.     SEYPos.Enabled      :=not YPositionLevel;
  60.     UDYPos.Position     :=Round(YPosition);
  61.     UDNumLevels.Position:=NumLevels;
  62.   end;
  63.   TeeInsertGrid3DForm(Parent,Contour);
  64.   CreatingForm:=False;
  65. end;
  66.  
  67. procedure TContourSeriesEditor.Button2Click(Sender: TObject);
  68. begin
  69.   EditChartPen(Self,Contour.Pen);
  70. end;
  71.  
  72. procedure TContourSeriesEditor.SENumLevelsChange(Sender: TObject);
  73. begin
  74.   if not CreatingForm then Contour.NumLevels:=UDNumLevels.Position;
  75. end;
  76.  
  77. procedure TContourSeriesEditor.CBYPosLevelClick(Sender: TObject);
  78. begin
  79.   Contour.YPositionLevel:=CBYPosLevel.Checked;
  80.   SEYPos.Enabled:=not CBYPosLevel.Checked;
  81. end;
  82.  
  83. procedure TContourSeriesEditor.SEYPosChange(Sender: TObject);
  84. begin
  85.   if not CreatingForm then Contour.YPosition:=UDYPos.Position;
  86. end;
  87.  
  88. procedure TContourSeriesEditor.CBColorEachClick(Sender: TObject);
  89. begin
  90.   Contour.ColorEachPoint:=CBColorEach.Checked;
  91. end;
  92.  
  93. procedure TContourSeriesEditor.FormCreate(Sender: TObject);
  94. begin
  95.   CreatingForm:=True;
  96. end;
  97.  
  98. initialization
  99.   RegisterClass(TContourSeriesEditor);
  100. end.
  101.