home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Chart_PrintPreview.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.7 KB  |  72 lines
  1. unit Chart_PrintPreview;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, TeeSurfa,
  8.   TeeMapSeries, TeeEdit;
  9.  
  10. type
  11.   TChartPrintPreviewForm = class(TBaseForm)
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Series1: TMapSeries;
  15.     Button3: TButton;
  16.     ChartPreviewer1: TChartPreviewer;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button2Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure Button3Click(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. Uses TeePrevi;  { <-- the "print preview" unit }
  32.  
  33. procedure TChartPrintPreviewForm.Button1Click(Sender: TObject);
  34. begin
  35.   { WAY 1: using a single method... }
  36.   ChartPreview( Self, Chart1 );  {  <--- the easy way... }
  37. end;
  38.  
  39. procedure TChartPrintPreviewForm.Button2Click(Sender: TObject);
  40. begin
  41.   { WAY 2, customizing the print preview dialog }
  42.  
  43.   { customize the preview dialog .... }
  44.   With TChartPreview.Create(Self) do
  45.   try
  46.     { important: set the chart to be previewed... }
  47.     PreviewPanel.Panel:=Self.Chart1;
  48.  
  49.     { example: change the "paper color" }
  50.     PreviewPanel.PaperColor:=clSilver;
  51.     ShowModal;
  52.   finally
  53.     Free;
  54.   end;
  55. end;
  56.  
  57. procedure TChartPrintPreviewForm.FormCreate(Sender: TObject);
  58. begin
  59.   inherited;
  60.   Series1.FillSampleValues(15);
  61. end;
  62.  
  63. procedure TChartPrintPreviewForm.Button3Click(Sender: TObject);
  64. begin
  65.   { WAY 3: Using the TChartPreviewer component }
  66.   ChartPreviewer1.Execute;
  67. end;
  68.  
  69. initialization
  70.   RegisterClass(TChartPrintPreviewForm);
  71. end.
  72.