acetypes.pas

suite component ace report

unit AceTypes;

{ ----------------------------------------------------------------
  Ace Reporter
  Copyright 1995-1998 SCT Associates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface
{$I ace.inc}
uses
  {$IFDEF WIN32}
    windows,
  {$ELSE}
    winprocs,wintypes,
  {$ENDIF}
    graphics;

type
  TAceMetaFileComment = Integer;

const
AcePlaceHeadKey: LongInt = LongInt($9ac6cdd7);

AceMC_NewPage: TAceMetaFileComment             = 3500;
AceMC_DrawMetaFile: TAceMetaFileComment        = 3501;
AceMC_StretchDrawMetaFile: TAceMetaFileComment = 3502;

type
  TAceMetaRecord = record
    rdSize: Longint;
    rdFunction: Word;
    rdParm: array[0..0] of Word;
  end;

  TAceMetaHeader = packed record
    mtType : Word;
    mtHeaderSize : Word;
    mtVersion : Word;
    mtSize : Longint;
    mtNoObjects : Word;
    mtMaxRecord : Longint;
    mtNoParameters : Word;
  end;

  TAcePlaceMetaHeader = packed record
    Key: LongInt;
    Hmf: SmallInt;
    {$ifdef WIN32}
    BBox: TSmallRect;
    {$else}
    BBox: TRect;
    {$endif}
    Inch: Word;
    Reserved: LongInt;
    CheckSum: Word;
  end;

const
  AceRT_Font   = 1;
  AceRT_Pen    = 2;
  AceRT_Brush  = 3;
  AceRT_SelectObject = 4;
  AceRT_StartPage    = 5;
  AceRT_EndPage      = 6;

  AceRT_SetTextAlign  = 20;
  AceRT_TextOut       = 21;
  AceRT_MoveTo        = 23;
  AceRT_LineTo        = 24;
  AceRT_PTextOut      = 25;
  AceRT_ExtTextOut    = 26;
  AceRT_TextRect      = 27;
  AceRT_FillRect      = 28;
  AceRT_Rectangle     = 29;
  AceRT_RoundRect     = 30;
  AceRT_Ellipse       = 31;

  AceRT_Draw          = 32;
  AceRT_StretchDraw   = 33;

    AceRT_DrawIcon     = 0;
    AceRT_DrawBitmap   = 1;
    AceRT_DrawMetaFile = 2;
    AceRT_DrawJPeg     = 3;

  AceRT_ShadeRect      = 34;
  AceRT_SetBkColor     = 35;
  { no longer suported, never worked good anyway }
{  AceRT_SetTextJustification = 36; }
  AceRT_TextJustify     = 37;

  AceRT_AceDrawBitmap   = 38;
  AceRT_AceStretchDrawBitmap   = 39;
  AceRT_RtfDraw = 40;
  AceRT_DrawCheckBox = 41;
  AceRT_DrawShapeType = 42;
  AceRT_PolyDrawType = 43;
  AceRT_3of9BarCode = 44;
  AceRT_2of5BarCode = 45;


  AceRT_PrinterInfo    = 100;
  AceRT_NewPrinterInfo = 101;
    AceRT_Orientation      = 0;
    AceRT_PaperSize        = 1;
    AceRT_Length           = 2;
    AceRT_Width            = 3;
    AceRT_Scale            = 4;
    AceRT_Copies           = 5;
    AceRT_Source           = 6;
    AceRT_PrintQuality     = 7;
    AceRT_Color            = 8;
    AceRT_Duplex           = 9;
    AceRT_YResolution      = 10;
    AceRT_TTOption         = 11;
    AceRT_CollatedCopies   = 12;
    AceRT_FormName         = 13;

type

TAceFileHeader = packed record
  Name: array[0..2] of Char;
  Key: LongInt;
  Version: Single;
  HeaderLen: LongInt;
  Description: array[0..100] of Char;
end;

TAceFileInfo = packed record
  Pages: LongInt;
  Objects: Word;
  PixelsPerInchX: Word;
  PixelsPerInchY: Word;
end;

TAceFilePrinterInfo = packed record
  Orientation: Word;
  PaperSize: Word;
  Length: Double;
  Width: Double;
  Scale: Word;
  Copies: Word;
  Source: Word;
  PrintQuality: SmallInt;
  Color: Word;
  Duplex: Word;
  YResolution: Word;
  TTOption: Word;
  CollatedCopies: Boolean;
end;

TAceLogBrush = packed record
  Color: TColor;
  Style: TBrushStyle;
end;

TAceLogPen = packed record
  Color: TColor;
  Style: TPenStyle;
  Width: Word;
  Mode: TPenMode;
end;

TAceLogFont = packed record
  Color: TColor;
  Size: Word;
  Italic: Byte;
  Underline: Byte;
  StrikeOut: Byte;
  Escapement: Word;
  Weight: Word;
  CharSet: Byte;
  OutPrecision: Byte;
  ClipPrecision: Byte;
  Quality: Byte;
  PitchAndFamily: Byte;
  Name: array[0..lf_FaceSize - 1] of Char;
end;

implementation

end.