unit1.pas

suite component ace report

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, SctBtn, SctCtrl, SctVar, SctRep,
  ExtCtrls, DB, DBTables, AcePage;

type
  TForm1 = class(TForm)
    fontlist: TListBox;
    DataSource1: TDataSource;
    Table1: TTable;
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    table1LAST_NAME: TSctDBVar;
    table1FIRST_NAME: TSctDBVar;
    table1ACCT_NBR: TSctDBVar;
    table1ADDRESS_1: TSctDBVar;
    table1CITY: TSctDBVar;
    table1STATE: TSctDBVar;
    table1ZIP: TSctDBVar;
    table1TELEPHONE: TSctDBVar;
    table1DATE_OPEN: TSctDBVar;
    table1SS_NUMBER: TSctDBVar;
    table1PICTURE: TSctDBVar;
    table1BIRTH_DATE: TSctDBVar;
    table1RISK_LEVEL: TSctDBVar;
    table1OCCUPATION: TSctDBVar;
    table1OBJECTIVES: TSctDBVar;
    table1INTERESTS: TSctDBVar;
    table1IMAGE: TSctDBVar;
    varlabel: TSctvarlabel;
    TextLabel: TSctTextLabel;
    varlabel1: TSctvarlabel;
    TextLabel1: TSctTextLabel;
    varlabel2: TSctvarlabel;
    TextLabel2: TSctTextLabel;
    varlabel3: TSctvarlabel;
    TextLabel3: TSctTextLabel;
    varlabel4: TSctvarlabel;
    TextLabel4: TSctTextLabel;
    SctReportButton1: TSctReportButton;
    ScreenFonts: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    SctReportButton2: TSctReportButton;
    procedure FormCreate(Sender: TObject);
    procedure SctReportButton1BeforeRun(PageSetup: TObject);
    procedure SctReportButton2BeforeRun(PageSetup: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses printers;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FontList.Items.Assign(Printers.Printer.fonts);
  ScreenFonts.Items.Assign(Screen.fonts);
end;

procedure TForm1.SctReportButton1BeforeRun(PageSetup: TObject);
begin
  if FontList.ItemIndex <> -1 then
  begin
    { everything is currently set to parent font
      so they will all pick up the reports font }
    SctReport1.Font.Name := FontList.Items[FontList.ItemIndex];
  end;
end;

procedure TForm1.SctReportButton2BeforeRun(PageSetup: TObject);
begin
  if ScreenFonts.ItemIndex <> -1 then
  begin
    { everything is currently set to parent font
      so they will all pick up the reports font }
    SctReport1.Font.Name := ScreenFonts.Items[ScreenFonts.ItemIndex];
  end;

end;

end.