PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/CYBERCON/_SETUP.1/Ccontact.exe/0/RCDATA/TFRMEMAILREP/TFRMEMAILREP.txt

Text File | 1997-08-26 | 6KB | 286 lines

object frmEmailRep: TfrmEmailRep
  Left = 7
  Top = 72
  Width = 625
  Height = 365
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  BorderIcons = [biSystemMenu, biMaximize]
  AutoScroll = False
  Caption = 'E-mail Report'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 14
  object PageHeader: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 47
    Align = alTop
    BandType = rbPageHeader
    Color = clWhite
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    ParentFont = False
    Ruler = qrrInchesHV
    object QRSysData: TQRSysData
      Left = 339
      Top = 12
      Width = 72
      Height = 19
      AlignToBand = False
      Data = qrsReportTitle
    end
    object QRSysData2: TQRSysData
      Left = 600
      Top = 4
      Width = 143
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      Data = qrsDateTime
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRSysData3: TQRSysData
      Left = 659
      Top = 24
      Width = 84
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      Data = qrsPageNumber
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Text = 'Page #'
    end
  end
  object QRBand: TQRBand
    Left = 0
    Top = 47
    Width = 1200
    Height = 26
    Align = alTop
    BandType = rbColumnHeader
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 2
    Frame.DrawTop = False
    Frame.DrawBottom = True
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRLabelFName: TQRLabel
      Left = 4
      Top = 1
      Width = 45
      Height = 17
      Caption = 'FName'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelLName: TQRLabel
      Left = 115
      Top = 1
      Width = 45
      Height = 17
      Caption = 'LName'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelSubject: TQRLabel
      Left = 234
      Top = 1
      Width = 48
      Height = 17
      Caption = 'Subject'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelDateCreated: TQRLabel
      Left = 404
      Top = 0
      Width = 29
      Height = 16
      Caption = 'Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelSenderName: TQRLabel
      Left = 479
      Top = 0
      Width = 83
      Height = 17
      Caption = 'SenderName'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelSenderEmail: TQRLabel
      Left = 604
      Top = 0
      Width = 82
      Height = 17
      Caption = 'SenderEmail'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelStatus: TQRLabel
      Left = 752
      Top = 2
      Width = 39
      Height = 17
      Caption = 'Status'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object QRBand2: TQRBand
    Left = 0
    Top = 73
    Width = 1200
    Height = 22
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDBTextFName: TQRDBText
      Left = 4
      Top = 1
      Width = 105
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsCon
      DataField = 'FName'
    end
    object QRDBTextLName: TQRDBText
      Left = 111
      Top = 1
      Width = 118
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsCon
      DataField = 'LName'
    end
    object QRDBTextSubject: TQRDBText
      Left = 234
      Top = 1
      Width = 167
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsEmail
      DataField = 'Subject'
    end
    object QRDBTextDateCreated: TQRDBText
      Left = 404
      Top = 0
      Width = 64
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsEmail
      DataField = 'DateCreated'
    end
    object QRDBTextSenderName: TQRDBText
      Left = 475
      Top = 0
      Width = 118
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsEmail
      DataField = 'SenderName'
    end
    object QRDBTextSenderEmail: TQRDBText
      Left = 600
      Top = 0
      Width = 141
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsEmail
      DataField = 'SenderEmail'
    end
    object QRDBTextStatus: TQRDBText
      Left = 752
      Top = 2
      Width = 50
      Height = 17
      AlignToBand = False
      DataSource = frmDataModule.dsEmail
      DataField = 'StatusField'
    end
  end
  object QRPTEmail: TQuickReport
    DataSource = frmDataModule.dsEmail
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'Email List'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 218
  end
end