home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Bar_Image.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.2 KB  |  56 lines
  1. {$I TeeDefs.inc}
  2. unit Bar_Image;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   Base, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls
  9.   {$IFDEF D4}, ImgList{$ENDIF};
  10.  
  11. type
  12.   TBarImage = class(TBaseForm)
  13.     Series1: TBarSeries;
  14.     Series2: TBarSeries;
  15.     ImageList1: TImageList;
  16.     CheckBox1: TCheckBox;
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure CheckBox1Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TBarImage.FormCreate(Sender: TObject);
  30. begin
  31.   inherited;
  32.   Series1.FillSampleValues(3);
  33.   Series2.FillSampleValues(3);
  34.  
  35.   CheckBox1Click(Self);
  36. end;
  37.  
  38. procedure TBarImage.CheckBox1Click(Sender: TObject);
  39. begin
  40.   if CheckBox1.Checked then
  41.   begin
  42.     { the ImageList contains the patterns for this example }
  43.     ImageList1.GetBitmap(0,Series1.BarBrush.Image.Bitmap);
  44.     ImageList1.GetBitmap(1,Series2.BarBrush.Image.Bitmap);
  45.   end
  46.   else
  47.   begin
  48.     Series1.BarBrush.Image.Assign(nil);
  49.     Series2.BarBrush.Image.Assign(nil);
  50.   end;
  51. end;
  52.  
  53. initialization
  54.   RegisterClass(TBarImage);
  55. end.
  56.