Delphi Anthology/aDELPHI.iso/Runimage/Delphi50/Demos/Quickrpt/Qr2/menu.dfm/menu.txt

Text File | 1999-08-11 | 5KB | 211 lines

object MainForm: TMainForm
  Left = 190
  Top = 108
  BorderStyle = bsDialog
  Caption = 'QuickReport 2.0 Example reports'
  ClientHeight = 331
  ClientWidth = 552
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 56
    Top = 4
    Width = 174
    Height = 34
    Caption = 'QuickReport'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -29
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 236
    Top = 18
    Width = 70
    Height = 16
    Caption = 'Version 2.0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 56
    Top = 36
    Width = 329
    Height = 16
    Caption = 'Copyright 1995 - 1997 QuSoft AS    http://www.qusoft.com'
    Transparent = True
  end
  object Image2: TImage
    Left = 6
    Top = 6
    Width = 47
    Height = 47
    Picture.Data = {<image000.bmp>}
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 58
    Width = 541
    Height = 225
    Caption = 'Select report'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 0
    object SimpleList: TRadioButton
      Left = 12
      Top = 20
      Width = 193
      Height = 17
      Caption = 'Simple list'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = SimpleListClick
    end
    object GroupedList: TRadioButton
      Left = 12
      Top = 44
      Width = 189
      Height = 17
      Caption = 'Simple list with group'
      TabOrder = 1
      OnClick = GroupedListClick
    end
    object MasterDetail: TRadioButton
      Left = 12
      Top = 67
      Width = 193
      Height = 17
      Caption = 'Master/detail'
      TabOrder = 2
      OnClick = MasterDetailClick
    end
    object SQLMasterDetail: TRadioButton
      Left = 12
      Top = 91
      Width = 201
      Height = 17
      Caption = 'Several grouping levels'
      TabOrder = 3
      OnClick = SQLMasterDetailClick
    end
    object Description: TMemo
      Left = 220
      Top = 16
      Width = 313
      Height = 201
      TabStop = False
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object RadioButton1: TRadioButton
      Left = 12
      Top = 114
      Width = 179
      Height = 17
      Caption = 'Composite report'
      TabOrder = 5
      OnClick = RadioButton1Click
    end
  end
  object Preview: TButton
    Left = 4
    Top = 292
    Width = 89
    Height = 29
    Caption = 'P&review'
    TabOrder = 1
    OnClick = PreviewClick
  end
  object Print: TButton
    Left = 100
    Top = 292
    Width = 89
    Height = 29
    Caption = '&Print'
    TabOrder = 2
    OnClick = PrintClick
  end
  object Exit: TButton
    Left = 456
    Top = 292
    Width = 89
    Height = 29
    Caption = 'E&xit'
    TabOrder = 3
    OnClick = ExitClick
  end
  object CompositeReport: TQuickRep
    Left = 6
    Top = 340
    Width = 816
    Height = 1056
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Description.Strings = (

        'This example shows how to use the TQRCompositeReport component t' +
        'o create a report combining several other reports. It will combi' +
        'ne all the above reports into one.')
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = Letter
    Page.Values = (
      100.000000000000000000
      2794.000000000000000000
      100.000000000000000000
      2159.000000000000000000
      100.000000000000000000
      100.000000000000000000
      0.000000000000000000)
    PrintIfEmpty = False
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.OutputBin = First
    SnapToGrid = True
    Units = MM
    Zoom = 100
  end
  object QRCompositeReport1: TQRCompositeReport
    OnAddReports = QRCompositeReport1AddReports
    Options = []
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.OutputBin = First
    Left = 76
    Top = 340
  end
end