home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / OTHER / NEURAL / USURFAC.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.6 KB  |  103 lines
  1. {**********************************************}
  2. {   TeeChart                                   }
  3. {   Neural Net Example                         }
  4. {   Copyright (c) 1995-1996 by David Berneda   }
  5. {**********************************************}
  6. unit Usurfac;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, Teengine, TeeSurfa, ExtCtrls, Chart, StdCtrls, Buttons,
  13.   Series, TeeProcs, TeeComma;
  14.  
  15. type
  16.   TSurfaceWeights = class(TForm)
  17.     Chart1: TChart;
  18.     SurfaceSeries1: TSurfaceSeries;
  19.     Panel1: TPanel;
  20.     BitBtn1: TBitBtn;
  21.     CheckBox1: TCheckBox;
  22.     CheckBox2: TCheckBox;
  23.     BitBtn2: TBitBtn;
  24.     BitBtn3: TBitBtn;
  25.     ScrollBar1: TScrollBar;
  26.     CheckBox3: TCheckBox;
  27.     Label1: TLabel;
  28.     Timer1: TTimer;
  29.     TeeCommander1: TTeeCommander;
  30.     procedure CheckBox1Click(Sender: TObject);
  31.     procedure CheckBox2Click(Sender: TObject);
  32.     procedure BitBtn2Click(Sender: TObject);
  33.     procedure BitBtn3Click(Sender: TObject);
  34.     procedure ScrollBar1Change(Sender: TObject);
  35.     procedure CheckBox3Click(Sender: TObject);
  36.     procedure Timer1Timer(Sender: TObject);
  37.     procedure FormShow(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.     tmpDelta:Integer;
  43.   end;
  44.  
  45. var
  46.   SurfaceWeights: TSurfaceWeights;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51. Uses EditPro,EditChar;
  52.  
  53. procedure TSurfaceWeights.CheckBox1Click(Sender: TObject);
  54. begin
  55.   Chart1.View3D:=CheckBox1.Checked;
  56. end;
  57.  
  58. procedure TSurfaceWeights.CheckBox2Click(Sender: TObject);
  59. begin
  60.   Chart1.BufferedDisplay:=not CheckBox2.Checked;
  61. end;
  62.  
  63. procedure TSurfaceWeights.BitBtn2Click(Sender: TObject);
  64. begin
  65.   EditSeries(Self,SurfaceSeries1);
  66. end;
  67.  
  68. procedure TSurfaceWeights.BitBtn3Click(Sender: TObject);
  69. begin
  70.   EditChart(Self,Chart1);
  71. end;
  72.  
  73. procedure TSurfaceWeights.ScrollBar1Change(Sender: TObject);
  74. begin
  75.   Chart1.View3DOptions.Rotation:=ScrollBar1.Position;
  76. end;
  77.  
  78. procedure TSurfaceWeights.CheckBox3Click(Sender: TObject);
  79. begin
  80.   Timer1.Enabled:=CheckBox3.Checked;
  81.   if Timer1.Enabled then tmpDelta:=2;
  82. end;
  83.  
  84. procedure TSurfaceWeights.Timer1Timer(Sender: TObject);
  85. var tmp:Integer;
  86. begin
  87.   tmp:=ScrollBar1.Position;
  88.   if ((tmp+tmpDelta)>350) or ((tmp+tmpDelta<280)) then
  89.   begin
  90.     if (tmp+tmpDelta)>350 then tmp:=350 else tmp:=280;
  91.     tmpDelta:=-tmpDelta;
  92.   end
  93.   else tmp:=tmp+tmpDelta;
  94.   ScrollBar1.Position:=tmp;
  95. end;
  96.  
  97. procedure TSurfaceWeights.FormShow(Sender: TObject);
  98. begin
  99.   Chart1.Gradient.Visible:=Chart1.IsScreenHighColor;
  100. end;
  101.  
  102. end.
  103.