chartdemo.dfm

一个后成PDF文件的控件

object MainForm: TMainForm
  Left = 211
  Top = 211
  AutoScroll = False
  AutoSize = True
  Caption = 'QuickPDF Chart Demo'
  ClientHeight = 421
  ClientWidth = 678
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 678
    Height = 421
    Align = alClient
    TabOrder = 0
    object Image1: TImage
      Left = 128
      Top = 384
      Width = 25
      Height = 25
      Visible = False
    end
    object GroupBox1: TGroupBox
      Left = 5
      Top = 0
      Width = 308
      Height = 369
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 5
        Top = 10
        Width = 297
        Height = 350
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Name'
            Width = 128
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Area'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Population'
            Width = 66
            Visible = True
          end>
      end
    end
    object Button2: TButton
      Left = 287
      Top = 384
      Width = 105
      Height = 25
      Caption = 'Generate PDF'
      TabOrder = 1
      OnClick = Button2Click
    end
    object GroupBox2: TGroupBox
      Left = 320
      Top = 0
      Width = 353
      Height = 369
      TabOrder = 2
      object DBChart1: TDBChart
        Left = 8
        Top = 8
        Width = 337
        Height = 353
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Color = clWhite
        Gradient.Direction = gdFromBottomLeft
        MarginBottom = 0
        MarginLeft = 0
        MarginRight = 5
        MarginTop = 0
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlack
        Title.Font.Height = -11
        Title.Font.Name = 'Arial'
        Title.Font.Style = []
        Title.Text.Strings = (
          'Bar Chart')
        BackColor = clWhite
        BottomAxis.LabelsMultiLine = True
        Chart3DPercent = 25
        LeftAxis.Automatic = False
        LeftAxis.AutomaticMinimum = False
        Legend.Alignment = laBottom
        Legend.ColorWidth = 15
        Legend.LegendStyle = lsValues
        Legend.ShadowColor = clGray
        Legend.ShadowSize = 2
        Legend.TextStyle = ltsPlain
        Legend.TopPos = 20
        View3DOptions.Elevation = 270
        View3DOptions.Perspective = 26
        View3DOptions.ZoomText = False
        BevelOuter = bvNone
        BevelWidth = 0
        Color = clWhite
        TabOrder = 0
        object Series1: TBarSeries
          ColorEachPoint = True
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = Table1
          SeriesColor = clRed
          XLabelsSource = 'Name'
          Dark3D = False
          SideMargins = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'Area'
          object TeeFunction1: TLowTeeFunction
          end
        end
      end
    end
  end
  object QuickPdf1: TQuickPdf
    FileName = 'test.pdf'
    PageInfo.Size = psA4
    PageInfo.Width = 210
    PageInfo.Height = 297
    PageInfo.MarginLeft = 5
    PageInfo.MarginRight = 5
    PageInfo.MarginTop = 5
    PageInfo.MarginBottom = 5
    Left = 41
    Top = 384
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 70
    Top = 384
  end
  object Table1: TTable
    Active = True
    AutoCalcFields = False
    FieldDefs = <
      item
        Name = 'Name'
        DataType = ftString
        Size = 24
      end
      item
        Name = 'Capital'
        DataType = ftString
        Size = 24
      end
      item
        Name = 'Continent'
        DataType = ftString
        Size = 24
      end
      item
        Name = 'Area'
        DataType = ftFloat
      end
      item
        Name = 'Population'
        DataType = ftFloat
      end>
    StoreDefs = True
    TableName = 'country.db'
    Left = 99
    Top = 384
    object Table1Name: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object Table1Capital: TStringField
      FieldName = 'Capital'
      Size = 24
    end
    object Table1Continent: TStringField
      FieldName = 'Continent'
      Size = 24
    end
    object Table1Area: TFloatField
      FieldName = 'Area'
      DisplayFormat = '### ### ###'
    end
    object Table1Population: TFloatField
      FieldName = 'Population'
      DisplayFormat = '### ### ###'
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.pdf'
    FileName = 'QuickPDF Chart Demo'
    Filter = 'PDF Documents|*.pdf|All Files|*.*'
    Left = 13
    Top = 384
  end
end