home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Teechart / udraw.dfm / udraw.txt
Encoding:
Text File  |  1999-08-11  |  3.8 KB  |  147 lines
  1. object DrawForm: TDrawForm
  2.   Left = 129
  3.   Top = 121
  4.   Width = 521
  5.   Height = 391
  6.   Caption = 'TeeChart Customized Drawing Example'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poDefault
  13.   WindowState = wsMaximized
  14.   OnCreate = FormCreate
  15.   TextHeight = 13
  16.   object Chart1: TChart
  17.     Left = 145
  18.     Top = 0
  19.     Width = 368
  20.     Height = 364
  21.     BottomWall.Color = 16777088
  22.     BottomWall.Size = 4
  23.     Foot.Font.Color = clRed
  24.     Foot.Font.Height = -12
  25.     Foot.Font.Name = 'Arial'
  26.     Foot.Font.Style = [fsItalic]
  27.     Foot.Frame.Color = clScrollBar
  28.     LeftWall.Color = 8454016
  29.     LeftWall.Size = 4
  30.     Title.Frame.Color = clScrollBar
  31.     Title.Text.Strings = (
  32.       'TChart Component')
  33.     BackColor = clSilver
  34.     Chart3DPercent = 65
  35.     Legend.ColorWidth = 32
  36.     Align = alClient
  37.     Color = clWhite
  38.     TabOrder = 0
  39.     object LineSeries1: TLineSeries
  40.       Marks.ArrowLength = 8
  41.       Marks.Visible = False
  42.       AfterDrawValues = LineSeries1AfterDrawValues
  43.       BeforeDrawValues = LineSeries1BeforeDrawValues
  44.       SeriesColor = clBlue
  45.       LinePen.Width = 3
  46.       Pointer.InflateMargins = True
  47.       Pointer.Style = psRectangle
  48.       Pointer.Visible = False
  49.       XValues.DateTime = True
  50.       XValues.Name = 'X'
  51.       XValues.Multiplier = 1.000000000000000000
  52.       XValues.Order = loAscending
  53.       YValues.DateTime = False
  54.       YValues.Name = 'Y'
  55.       YValues.Multiplier = 1.000000000000000000
  56.       YValues.Order = loNone
  57.       Left = 199
  58.       Top = 122
  59.     end
  60.   end
  61.   object Panel1: TPanel
  62.     Left = 0
  63.     Top = 0
  64.     Width = 145
  65.     Height = 364
  66.     Align = alLeft
  67.     TabOrder = 1
  68.     object BitBtn3: TBitBtn
  69.       Left = 24
  70.       Top = 312
  71.       Width = 89
  72.       Height = 33
  73.       TabOrder = 0
  74.       Kind = bkClose
  75.     end
  76.     object CheckBox1: TCheckBox
  77.       Left = 16
  78.       Top = 12
  79.       Width = 117
  80.       Height = 17
  81.       Caption = '&Animate !!!'
  82.       Font.Color = clBlack
  83.       Font.Height = -19
  84.       Font.Name = 'Arial'
  85.       Font.Style = [fsBold]
  86.       ParentFont = False
  87.       TabOrder = 1
  88.       OnClick = CheckBox1Click
  89.     end
  90.     object BitBtn1: TBitBtn
  91.       Left = 16
  92.       Top = 40
  93.       Width = 89
  94.       Height = 33
  95.       Caption = '&Print !'
  96.       TabOrder = 2
  97.       OnClick = BitBtn1Click
  98.       Glyph.Data = {
  99.         76010000424D7601000000000000760000002800000020000000100000000100
  100.         04000000000000010000130B0000130B00000000000000000000000000000000
  101.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  102.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  103.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  104.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  105.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  106.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  107.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  108.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  109.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  110.         33333337FFFF7733333333300000033333333337777773333333}
  111.       NumGlyphs = 2
  112.     end
  113.     object CheckBox2: TCheckBox
  114.       Left = 16
  115.       Top = 84
  116.       Width = 57
  117.       Height = 17
  118.       Caption = '3D'
  119.       State = cbChecked
  120.       TabOrder = 3
  121.       OnClick = CheckBox2Click
  122.     end
  123.     object Memo1: TMemo
  124.       Left = 12
  125.       Top = 116
  126.       Width = 121
  127.       Height = 169
  128.       Lines.Strings = (
  129.         'Custom drawing using '
  130.         'the Chart Canvas '
  131.         'property is easy !'
  132.         ''
  133.         'This demo shows how '
  134.         'custom drawings can be '
  135.         'printed too.')
  136.       TabOrder = 4
  137.     end
  138.   end
  139.   object Timer1: TTimer
  140.     Enabled = False
  141.     Interval = 1
  142.     OnTimer = Timer1Timer
  143.     Left = 642
  144.     Top = 37
  145.   end
  146. end
  147.