home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Series_BigCandle.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.1 KB  |  50 lines
  1. unit Series_BigCandle;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, BigCandl, TeEngine, Series, OHLChart, CandleCh, ExtCtrls, TeeProcs,
  8.   Chart, StdCtrls;
  9.  
  10. type
  11.   TBigCandleForm = class(TBaseForm)
  12.     Series1: TCandleSeries;
  13.     Chart2: TChart;
  14.     Series2: TBigCandleSeries;
  15.     Label1: TLabel;
  16.     procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  17.       Y: Integer);
  18.     procedure FormCreate(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TBigCandleForm.Chart1MouseMove(Sender: TObject;
  30.   Shift: TShiftState; X, Y: Integer);
  31. var tmp : Integer;
  32. begin
  33.   Series2.Clear;
  34.   tmp:=Series1.Clicked(x,y);
  35.   if tmp<>-1 then
  36.      With Series1 do
  37.        Series2.AddCandle( DateValues[tmp],OpenValues[tmp],HighValues[tmp],
  38.                           LowValues[tmp],CloseValues[tmp] );
  39. end;
  40.  
  41. procedure TBigCandleForm.FormCreate(Sender: TObject);
  42. begin
  43.   inherited;
  44.   Series1.FillSampleValues(20);
  45. end;
  46.  
  47. initialization
  48.   RegisterClass(TBigCandleForm);
  49. end.
  50.