chartunit.dfm

生成PDF文档的控件

object Form1: TForm1
  Left = 195
  Top = 123
  Width = 696
  Height = 480
  Caption = 'Chart PDF demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    Caption = 'Bar &Position:'
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'Behind'
      'Side to Side'
      'Stacked'
      'Stacked 100%')
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object DemoChart: TChart
    Left = 0
    Top = 41
    Width = 536
    Height = 405
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = 8454016
    BottomWall.Color = 16512
    Foot.Font.Charset = DEFAULT_CHARSET
    Foot.Font.Color = clRed
    Foot.Font.Height = -12
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Frame.Color = clScrollBar
    Gradient.Direction = gdRightLeft
    Gradient.StartColor = 16744576
    LeftWall.Color = clBlue
    Title.Frame.Color = clScrollBar
    Title.Text.Strings = (
      'TChart Component')
    BackColor = 8454016
    BottomAxis.DateTimeFormat = 'M/d/yy'
    BottomAxis.Title.Caption = 'Sales Date'
    Chart3DPercent = 60
    LeftAxis.MinorTickCount = 1
    LeftAxis.MinorTickLength = 5
    LeftAxis.MinorTicks.Color = clBlue
    LeftAxis.TickLength = 8
    LeftAxis.Ticks.Color = clYellow
    LeftAxis.Title.Caption = 'Quantity'
    Legend.Font.Charset = DEFAULT_CHARSET
    Legend.Font.Color = clBlack
    Legend.Font.Height = -12
    Legend.Font.Name = 'Arial'
    Legend.Font.Style = []
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderWidth = 14
    TabOrder = 1
    object BarSeries1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      MultiBar = mbNone
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Left = 108
      Top = 4
    end
    object BarSeries2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGreen
      MultiBar = mbNone
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Left = 141
      Top = 4
    end
    object BarSeries3: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clAqua
      MultiBar = mbNone
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      Left = 172
      Top = 4
    end
  end
  object Panel1: TPanel
    Left = 536
    Top = 41
    Width = 152
    Height = 405
    Align = alRight
    TabOrder = 2
    object Label1: TLabel
      Left = 7
      Top = 5
      Width = 32
      Height = 13
      Caption = '&Series:'
      FocusControl = ComboBox1
    end
    object RadioGroup2: TRadioGroup
      Left = 13
      Top = 54
      Width = 132
      Height = 139
      Caption = '&Bar Style:'
      ItemIndex = 0
      Items.Strings = (
        'Rectangle'
        'Pyramid'
        'InvPyramid'
        'Cilinder'
        'Ellipse'
        'Arrow'
        'Gradient')
      TabOrder = 0
      OnClick = RadioGroup2Click
    end
    object ComboBox1: TComboBox
      Left = 9
      Top = 23
      Width = 136
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
    end
    object CheckBox2: TCheckBox
      Left = 11
      Top = 208
      Width = 50
      Height = 17
      Caption = '3D'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox2Click
    end
    object Button1: TButton
      Left = 4
      Top = 240
      Width = 145
      Height = 113
      Caption = 'Generate PDF File'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object VPDF: TVPDF
    AutoLaunch = True
    Author = 'VisPDF User'
    Keywords = 'VisPDF vcl pdf library document'
    Title = 'vispdf.com document'
    ShowInfo = True
    FileName = '.\ChartDemp.pdf'
    Version = pdf13
    ActivateProtection = False
    CryptKeyLength = k40
    ProtectOptions = []
    Resolution = 72
    PageLayout = plSinglePage
    StandardFontEmulation = True
    FontEmbedding = True
    ViewerPreferences = []
    JpegQuality = 100
    Compression = cmFlateDecode
    Left = 16
    Top = 56
  end
end