home *** CD-ROM | disk | FTP | other *** search
- unit Series_ImagePoint;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Base, ExtCtrls, StdCtrls, TeEngine, Series, ImaPoint, TeeProcs, Chart,
- ExtDlgs, ComCtrls;
-
- type
- TImagePointForm = class(TBaseForm)
- Series1: TImagePointSeries;
- Label1: TLabel;
- Image1: TImage;
- OpenPictureDialog1: TOpenPictureDialog;
- Label2: TLabel;
- Edit1: TEdit;
- UpDown1: TUpDown;
- Label3: TLabel;
- Edit2: TEdit;
- UpDown2: TUpDown;
- procedure Image1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure Edit1Change(Sender: TObject);
- procedure Edit2Change(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- implementation
-
- {$R *.DFM}
-
- procedure TImagePointForm.Image1Click(Sender: TObject);
- begin
- if OpenPictureDialog1.Execute then
- begin
- Series1.ImagePoint.LoadFromFile(OpenPictureDialog1.FileName);
- Image1.Picture.Assign(Series1.ImagePoint);
- end;
- end;
-
- procedure TImagePointForm.FormCreate(Sender: TObject);
- begin
- inherited;
- Series1.FillSampleValues(10);
- Image1.Picture.Assign(Series1.ImagePoint);
- UpDown1.Position:=Series1.Pointer.HorizSize;
- UpDown2.Position:=Series1.Pointer.VertSize;
- end;
-
- procedure TImagePointForm.Edit1Change(Sender: TObject);
- begin
- if Showing then Series1.Pointer.HorizSize:=UpDown1.Position
- end;
-
- procedure TImagePointForm.Edit2Change(Sender: TObject);
- begin
- if Showing then Series1.Pointer.VertSize:=UpDown2.Position
- end;
-
- initialization
- RegisterClass(TImagePointForm);
- end.
-