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