home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UKEYBOA.DFM / UKEYBOA.txt
Text File  |  1998-06-16  |  4KB  |  141 lines
  1. object KeyboardForm: TKeyboardForm
  2.   Left = 64
  3.   Top = 79
  4.   Width = 649
  5.   Height = 418
  6.   ActiveControl = Chart1
  7.   Caption = 'TeeChart Keyboard Scrolling Example'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   KeyPreview = True
  15.   OldCreateOrder = True
  16.   Position = poDefault
  17.   WindowState = wsMaximized
  18.   OnCreate = FormCreate
  19.   OnKeyDown = FormKeyDown
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object Chart1: TChart
  23.     Left = 157
  24.     Top = 0
  25.     Width = 484
  26.     Height = 391
  27.     AnimatedZoom = True
  28.     AnimatedZoomSteps = 3
  29.     BackWall.Color = clWhite
  30.     BottomWall.Color = 8454016
  31.     BottomWall.Size = 16
  32.     Foot.Font.Charset = DEFAULT_CHARSET
  33.     Foot.Font.Color = clRed
  34.     Foot.Font.Height = -12
  35.     Foot.Font.Name = 'Arial'
  36.     Foot.Font.Style = [fsItalic]
  37.     Foot.Frame.Color = clScrollBar
  38.     Foot.Text.Strings = (
  39.       'The Form.OnKeyDown event does the job. See source code. ')
  40.     LeftWall.Size = 16
  41.     Title.Alignment = taLeftJustify
  42.     Title.Brush.Color = 8453888
  43.     Title.Font.Charset = DEFAULT_CHARSET
  44.     Title.Font.Color = clBlack
  45.     Title.Font.Height = -15
  46.     Title.Font.Name = 'Arial'
  47.     Title.Font.Style = [fsBold]
  48.     Title.Frame.Color = 8388863
  49.     Title.Frame.Width = 9
  50.     Title.Frame.Visible = True
  51.     Title.Text.Strings = (
  52.       
  53.         'This example shows how to handle keyboard events to scroll TChar' +
  54.         't contents.'
  55.       
  56.         'Use the keyboard arrow keys and  page up / page down keys to scr' +
  57.         'oll.'
  58.       'Press SPACE to reset. Press SHIFT and arrow keys to ZOOM.')
  59.     BackColor = clWhite
  60.     BottomAxis.Grid.Color = clScrollBar
  61.     Chart3DPercent = 20
  62.     LeftAxis.Grid.Color = clScrollBar
  63.     Legend.Visible = False
  64.     RightAxis.Grid.Color = clScrollBar
  65.     TopAxis.Grid.Color = clScrollBar
  66.     Align = alClient
  67.     Color = 16777088
  68.     TabOrder = 0
  69.     TabStop = True
  70.     object LineSeries1: TLineSeries
  71.       Marks.ArrowLength = 8
  72.       Marks.Visible = False
  73.       SeriesColor = clRed
  74.       Pointer.InflateMargins = True
  75.       Pointer.Style = psRectangle
  76.       Pointer.Visible = False
  77.       XValues.DateTime = True
  78.       XValues.Name = 'X'
  79.       XValues.Multiplier = 1.000000000000000000
  80.       XValues.Order = loAscending
  81.       YValues.DateTime = False
  82.       YValues.Name = 'Y'
  83.       YValues.Multiplier = 1.000000000000000000
  84.       YValues.Order = loNone
  85.       Left = 199
  86.       Top = 121
  87.     end
  88.   end
  89.   object Panel1: TPanel
  90.     Left = 0
  91.     Top = 0
  92.     Width = 157
  93.     Height = 391
  94.     Align = alLeft
  95.     TabOrder = 1
  96.     object BitBtn1: TBitBtn
  97.       Left = 37
  98.       Top = 284
  99.       Width = 89
  100.       Height = 33
  101.       TabOrder = 0
  102.       Kind = bkClose
  103.     end
  104.     object InvertScroll: TCheckBox
  105.       Left = 21
  106.       Top = 12
  107.       Width = 128
  108.       Height = 17
  109.       Caption = '&Inverted Scrolling'
  110.       TabOrder = 1
  111.       OnClick = InvertScrollClick
  112.     end
  113.     object CheckLimits: TCheckBox
  114.       Left = 21
  115.       Top = 32
  116.       Width = 97
  117.       Height = 17
  118.       Caption = 'Check &Limits'
  119.       TabOrder = 2
  120.       OnClick = CheckLimitsClick
  121.     end
  122.     object Memo1: TMemo
  123.       Left = 20
  124.       Top = 76
  125.       Width = 121
  126.       Height = 161
  127.       Lines.Strings = (
  128.         'Scrolling and zooming'
  129.         'can also be done using'
  130.         'the keyboard.'
  131.         ''
  132.         'This example shows '
  133.         'how to scroll and zoom'
  134.         'a Chart using the Form'
  135.         'OnKeyDown event.'
  136.         '')
  137.       TabOrder = 3
  138.     end
  139.   end
  140. end
  141.