home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Factory / FReportAddressLabel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-16  |  1.6 KB  |  63 lines
  1. {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2.   TechInsite Pty. Ltd.
  3.   PO Box 429, Abbotsford, Melbourne. 3067 Australia
  4.   Phone: +61 3 9419 6456
  5.   Fax:   +61 3 9419 1682
  6.   Web:   www.techinsite.com.au
  7.   EMail: peter_hinrichsen@techinsite.com.au
  8.  
  9.   Created: 01/06/1999
  10.  
  11.   Notes: Concrete report for factory demo
  12.  
  13. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
  14.  
  15. unit FReportAddressLabel;
  16.  
  17. interface
  18.  
  19. uses
  20.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  21.   FReportAbstract, StdCtrls, Buttons;
  22.  
  23. type
  24.   TFormReportMailingLabels = class(TFormReportAbstract)
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.     procedure Execute ; override ;
  30.   end;
  31.  
  32. implementation
  33. uses
  34.    FactoryReport
  35.   ,FactoryConcreteReport 
  36.   ,Constants
  37.   ;
  38.  
  39. {$R *.DFM}
  40.  
  41. { TFormReportMailingLabels }
  42.  
  43. //----------------------------------------------------------
  44. procedure TFormReportMailingLabels.Execute;
  45. begin
  46.   Caption := cgStrReportNameMailingLabels ;
  47.   MemoReport.Lines.Add( 'A demonstration of the ' +
  48.                         cgStrReportNameMailingLabels + ' report.' ) ;
  49.   inherited ;
  50. end;
  51.  
  52. initialization
  53.   // Register report with the simple factory
  54.   gFactoryReport.RegisterReport( cgStrReportNameMailingLabels,
  55.                                  TFormReportMailingLabels ) ;
  56.  
  57.   // Register report with the abstract / concrete factory
  58.   gFactoryConcreteReport.RegisterClass( cgStrReportNameMailingLabels,
  59.                                  TFormReportMailingLabels ) ;
  60.  
  61. end.
  62.  
  63.