home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / DELPHI4.EXE / %MAINDIR% / Examples / Extended / Uform1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-17  |  1.8 KB  |  79 lines
  1. {*********************************************}
  2. {  TeeChart Pro 4 example                     }
  3. {  Copyright (c) 1995-1998 by David Berneda   }
  4. {  All rights reserved                        }
  5. {*********************************************}
  6. unit Uform1;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, TeEngine, Series, StdCtrls, Buttons, ExtCtrls, TeeProcs,
  13.   Chart;
  14.  
  15. type
  16.   TFormFirst = class(TForm)
  17.     Chart1: TChart;
  18.     BitBtn1: TBitBtn;
  19.     Series1: THorizBarSeries;
  20.     Series2: THorizBarSeries;
  21.     BitBtn2: TBitBtn;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure BitBtn1Click(Sender: TObject);
  24.     procedure BitBtn2Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34. Uses UForm2;
  35.  
  36. procedure TFormFirst.FormCreate(Sender: TObject);
  37. begin
  38.  { sample values... }
  39.   With Series1 do
  40.   begin
  41.     Clear;
  42.     Add( 123, 'Apples', clRed );
  43.     Add( 234, 'Pears', clGreen );
  44.     Add( 189, 'Banana', clYellow );
  45.   end;
  46.   With Series2 do
  47.   begin
  48.     Clear;
  49.     Add( 63, '', clWhite );
  50.     Add( 104, '', clGreen );
  51.     Add( 88, '', clYellow );
  52.   end;
  53. end;
  54.  
  55. procedure TFormFirst.BitBtn1Click(Sender: TObject);
  56. var tmp:TForm;
  57. begin
  58.   tmp:=TFormSecond.Create(Self);  { create second form... }
  59.   try
  60.     Chart1.Parent:=tmp;   { change chart parent... }
  61.     try
  62.       Chart1.SetBounds(10,10,300,310);  { resize chart }
  63.       tmp.ShowModal;                    { show second form }
  64.     finally
  65.       Chart1.SetBounds(16,8,400,250);   { reset chart size back }
  66.       Chart1.Parent:=Self;              { reset chart parent }
  67.     end;
  68.   finally
  69.     tmp.Free;  { free second form }
  70.   end;
  71. end;
  72.  
  73. procedure TFormFirst.BitBtn2Click(Sender: TObject);
  74. begin
  75.   Close;
  76. end;
  77.  
  78. end.
  79.