home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Series_ImagePoint.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.6 KB  |  67 lines

  1. unit Series_ImagePoint;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ExtCtrls, StdCtrls, TeEngine, Series, ImaPoint, TeeProcs, Chart,
  8.   ExtDlgs, ComCtrls;
  9.  
  10. type
  11.   TImagePointForm = class(TBaseForm)
  12.     Series1: TImagePointSeries;
  13.     Label1: TLabel;
  14.     Image1: TImage;
  15.     OpenPictureDialog1: TOpenPictureDialog;
  16.     Label2: TLabel;
  17.     Edit1: TEdit;
  18.     UpDown1: TUpDown;
  19.     Label3: TLabel;
  20.     Edit2: TEdit;
  21.     UpDown2: TUpDown;
  22.     procedure Image1Click(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure Edit1Change(Sender: TObject);
  25.     procedure Edit2Change(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TImagePointForm.Image1Click(Sender: TObject);
  37. begin
  38.   if OpenPictureDialog1.Execute then
  39.   begin
  40.     Series1.ImagePoint.LoadFromFile(OpenPictureDialog1.FileName);
  41.     Image1.Picture.Assign(Series1.ImagePoint);
  42.   end;
  43. end;
  44.  
  45. procedure TImagePointForm.FormCreate(Sender: TObject);
  46. begin
  47.   inherited;
  48.   Series1.FillSampleValues(10);
  49.   Image1.Picture.Assign(Series1.ImagePoint);
  50.   UpDown1.Position:=Series1.Pointer.HorizSize;
  51.   UpDown2.Position:=Series1.Pointer.VertSize;
  52. end;
  53.  
  54. procedure TImagePointForm.Edit1Change(Sender: TObject);
  55. begin
  56.   if Showing then Series1.Pointer.HorizSize:=UpDown1.Position
  57. end;
  58.  
  59. procedure TImagePointForm.Edit2Change(Sender: TObject);
  60. begin
  61.   if Showing then Series1.Pointer.VertSize:=UpDown2.Position
  62. end;
  63.  
  64. initialization
  65.   RegisterClass(TImagePointForm);
  66. end.
  67.