custom.pas

suite component ace report

unit Custom;

interface

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

type
  TCustomSample = class(TForm)
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    biolifeTable: TTable;
    biolifeSource: TDataSource;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    biolifetableSpecies_No: TSctDBVar;
    biolifetableCategory: TSctDBVar;
    biolifetableCommon_Name: TSctDBVar;
    biolifetableSpecies_Name: TSctDBVar;
    biolifetableLength__cm_: TSctDBVar;
    biolifetableLength_In: TSctDBVar;
    biolifetableNotes: TSctDBVar;
    biolifetableGraphic: TSctDBVar;
    SctCustomLabel1: TSctCustomLabel;
    SctReportButton1: TSctReportButton;
    biolifeTableSpeciesNo: TFloatField;
    biolifeTableCategory2: TStringField;
    biolifeTableCommon_Name2: TStringField;
    biolifeTableSpeciesName: TStringField;
    biolifeTableLengthcm: TFloatField;
    biolifeTableLength_In2: TFloatField;
    biolifeTableNotes2: TMemoField;
    biolifeTableGraphic2: TGraphicField;
    Sctvarlabel1: TSctvarlabel;
    procedure SctCustomLabel1Draw(lb: TSctLabel; AceCanvas: TObject;
      Rect: TRect);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustomSample: TCustomSample;

implementation

uses aceout, custace;

{$R *.DFM}

procedure TCustomSample.SctCustomLabel1Draw(lb: TSctLabel;
  AceCanvas: TObject; Rect: TRect);
var
  MyFont: TFont;
begin
  MyFont := TFont.Create;
  MyFont.Size := 12;
  MyFont.Name := 'Arial';
  with AceCanvas as TAceCanvas do
  begin
    SetTextAlign(TA_TOP);
    Font := MyFont;
  end;
  AceCustomTextOut(TAceCanvas(AceCanvas),Rect, Rect.Left + 2, Rect.Top + 2,
    biolifeTable.FieldByName('category').AsString);
  MyFont.Free;  
end;

end.