Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EBRepDesigner.exe/0/RCDATA/TFRMSRWMAIN/TFRMSRWMAIN.txt

Text File | 1999-06-21 | 58KB | 1,745 lines

object frmSrwMain: TfrmSrwMain
  Left = 116
  Top = 130
  AutoScroll = False
  ClientHeight = 346
  ClientWidth = 684
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = mnuMain
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  TextHeight = 16
  object memWrap: TMemo
    Left = 168
    Top = 376
    Width = 353
    Height = 105
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    Visible = False
  end
  object panToolbar: TPanel
    Left = 0
    Top = 0
    Width = 684
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 684
      Height = 2
      Align = alTop
    end
    object Bevel3: TBevel
      Left = 0
      Top = 31
      Width = 684
      Height = 2
      Align = alBottom
    end
    object labZoom: TLabel
      Left = 504
      Top = 10
      Width = 32
      Height = 13
      Caption = '&Zoom'
      FocusControl = cmbZoom
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object labPage: TLabel
      Left = 280
      Top = 10
      Width = 161
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Ready'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object cmdPage: TSpeedButton
      Left = 200
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Page Designer'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
        887777777777777777777000000000000877733333333333377770FFFFFFFFFF
        087773FFFFFFFFFF377770FF00000000000773FF33333333333770FF0EEEEEEE
        E07773FF3FFFFFFFF37770FF0E0000EE087773FF3F3333FF377770FF0E0F0EE0
        087773FF3F3F3FF3377770FF0E00EE0F087773FF3F33FF3F377770FF0E0EE0FF
        087773FF3F3FF3FF377770FF0EEE0FFF087773FF3FFF3FFF377770FF0EE0FFFF
        087773FF3FF3FFFF377770FF0E0FFFFF087773FF3F3FFFFF377770FF00FFFF00
        077773FF33FFFF33377770FF0FFFF0F0777773FF3FFFF3F3777770FFFFFFF007
        777773FFFFFFF337777770000000007777777333333333777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdPageClick
    end
    object cmdBold: TSpeedButton
      Tag = 2
      Left = 451
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Bold'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777770000000077777777888888887777777770007700
        0777777778887788877777777000770007777777788877888777777770007700
        0777777778887788877777777000000077777777788888887777777770007700
        0777777778887788877777777000770007777777788877888777777770007700
        0777777778887788877777770000000077777777888888887777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmbFontNameChange
    end
    object cmdItalic: TSpeedButton
      Tag = 3
      Left = 475
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Italic'
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777700000077777777778888887777777777770087777
        7777777778837777777777777800777777777777738877777777777777008777
        7777777777883777777777777780077777777777773887777777777777700877
        7777777777788377777777777778007777777777777388777777777777770087
        7777777777778837777777777770000077777777777888887777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmbFontNameChange
    end
    object cmdUnderline: TSpeedButton
      Tag = 4
      Left = 499
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Underline'
      AllowAllUp = True
      GroupIndex = 3
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777000000000007777788888888888777777777777777
        7777777777777777777777777000000777777777788888877777777700777007
        7777777788777887777777770077700777777777887778877777777700777007
        7777777788777887777777770077700777777777887778877777777700777007
        7777777788777887777777770077700777777777887778877777777700777007
        7777777788777887777777700077000777777778887788877777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmbFontNameChange
    end
    object cmdLeft: TSpeedButton
      Tag = 5
      Left = 531
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Align Left'
      GroupIndex = 4
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777770000000007777777888888888777777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777770000000007777777888888888777777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777770000000007777777888888888777777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdLeftClick
    end
    object cmdCenter: TSpeedButton
      Tag = 6
      Left = 555
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Align Center'
      GroupIndex = 4
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777700000000077777778888888887777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777700000000077777778888888887777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777700000000077777778888888887777777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdCenterClick
    end
    object cmdNext: TSpeedButton
      Left = 440
      Top = 4
      Width = 25
      Height = 25
      Hint = 'View Next Page'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777877777
        777777777088777777777777700887777777777770C088777777777770CC0887
        7777777770CCC0887777777770CCCC088777777770CCCCC08877777770CCCCCC
        0777777770CCCCC07777777770CCCC077777777770CCC0777777777770CC0777
        7777777770C07777777777777007777777777777707777777777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdNextClick
    end
    object cmdNew: TSpeedButton
      Left = 8
      Top = 4
      Width = 25
      Height = 25
      Hint = 'New Report'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33338F3333F83BB3888BB8888BB3388FFFF88FFFF88333B000000000
        0B3333888888888888333330FFFFFFFF08333338F33333338F333330FFFFFFFF
        08333338F33333338F333330FFFFFFFF08333338F33333338F333330FFFFFFFF
        08333FF8F33333338FFFBBB0FFFFFFFF0BB38888F3333333888F3BB0FFFFFFFF
        0BBB3888F3333FFF88883330FFFF000003333338F333888883333330FFFF0FF0
        33333338F3338F38F3333330FFFF0F0B33333338F3338F88FF333330FFFF003B
        B3333338FFFF88388FF333B000000333BB33338888888F3388FF3BB3333BB333
        3BB33883333883333883B333333B3333333B8333333833333338000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdNewClick
    end
    object cmdOpen: TSpeedButton
      Left = 32
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Open Report'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777778888888888777777888888888877777000000000008
        77773333333333387777003333333330877733777777777387770B0330033333
        08773F377337777738770BB03333333330873FF37777777773870BBB03333333
        33083FFF3777777777380BBBB000000000003FFFF333333333330BBBBBBBBB07
        77773FFFFFFFFF3777770BBBBBBBBB0777773FFFFFFFFF3777770BBB00000007
        77773FFF33333337777770007777777700077333777777773337777777777777
        7007777777777777733777777777077707077777777737773737777777777000
        7777777777777333777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdOpenClick
    end
    object cmdSave: TSpeedButton
      Left = 56
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Save Report'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777000000000
        0000777333333333333377000000000000007700000000000003703300000077
        030070FF000000770F03703300000077030070FF000000770F03703300000077
        030070FF000000770F03703300000000030070FF000000000F03703333333333
        330070FFFFFFFFFFFF03703300000000330070FF00000000FF037030FFFFFFFF
        030070F0777777770F037030FFFFFFFF030070F0777777770F037030FFFFFFFF
        030070F0777777770F037030FFFFFFFF030070F0777777770F037030FFFFFFFF
        000070F07777777700037030FFFFFFFF070770F0777777770707700000000000
        0007700000000000000777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdSaveClick
    end
    object cmdPrint: TSpeedButton
      Left = 112
      Top = 4
      Width = 25
      Height = 25
      Cursor = crArrow
      Hint = 'Print Report'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777888888888
        87777700000000000877707777777770708700000000000007080777777BBB77
        0008077777788877070800000000000007700777777777707070700000000007
        0700770FFFFFFFF070707770F00000F000077770FFFFFFFF077777770F00000F
        077777770FFFFFFFF07777777000000000777777777777777777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdPrintClick
    end
    object cmdLast: TSpeedButton
      Left = 464
      Top = 4
      Width = 25
      Height = 25
      Hint = 'View Last Page'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777877777777
        788777088777777700877700887777770087770C088777770087770CC0887777
        0087770CCC0887770087770CCCC088770087770CCCCC08870087770CCCCCC077
        0087770CCCCC07770087770CCCC077770087770CCC0777770087770CC0777777
        0087770C07777777008777007777777700777707777777777777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdLastClick
    end
    object cmdCut: TSpeedButton
      Left = 120
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Cut'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777774477777777777777887777777777777477487447
        7777777877877887777777747748477487777778778787787777777477484774
        8777777877878778777777774448477487777777888787787777777777484448
        7777777777878887777777777740488777777777778887777777777777708777
        7777777777787777777777777700087777777777778887777777777777070877
        7777777777878777777777777007008777777777788788777777777770777087
        7777777778777877777777777077708777777777787778777777777770777077
        7777777778777877777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = mnuEditCutClick
    end
    object cmdCopy: TSpeedButton
      Left = 144
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Copy'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777778888888887777777333333333777777444444
        444877777788888888837777774FFFFFFF4877777787777777837888884F0000
        0F4873333387FFFFF7830000004FFFFFFF4888888887777777830FFFFF4F0000
        0F4887777787FFFFF7830F00004FFFFFFF4887FFFF87777777830FFFFF4F00F4
        444787777787FF7888870F00004FFFF4F47787FFFF87777878770FFFFF4FFFF4
        477787777787777887770F00F0444444777787FF7888888877770FFFF0F07777
        777787777878777777770FFFF007777777778777788777777777000000777777
        7777888888777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = mnuEditCopyClick
    end
    object cmdPaste: TSpeedButton
      Left = 168
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Paste'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777788888
        88887777777333333333778888444444444477333388888888887000004FFFFF
        FFF478888887777777780838384F444444F487777787FFFFFF780383834FFFFF
        FFF487777787777777780838384F444F444487777787FFF788880383834FFFFF
        4F478777778777778F870838384FFFFF44878777778777778837038383444444
        4087877777888888883708383838383830878777777777777837038000000008
        8087877888888887783708807777770830878778FFFFFF87783703830B00B083
        807788778F88F8777877700000BB00000777788888FF88888777777770000777
        7777777778888777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = mnuEditPasteClick
    end
    object cmdAddTable: TSpeedButton
      Left = 120
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Add Table'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777788877
        77777777777888777777777777000087777777777733338777777777770AA088
        77777777773FF38877777777000AA00087777777333FF333877777880AAAAAA0
        888877883FFFFFF3888870000AAAAAA0000873333FFFFFF3333870FF000AA000
        FF087377333FF333773870FFFF0AA0FFFF087377773FF377773870FFFF0000FF
        FF08737777333377773870FFFFFFFFFFFF08737777777777773870FFFFFFFFFF
        FF087377777777777738704444444444440873FFFFFFFFFFFF38704444444444
        440873FFFFFFFFFFFF38704444444444440873FFFFFFFFFFFF38700000000000
        0007733333333333333777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdAddTableClick
    end
    object cmdDropTable: TSpeedButton
      Left = 144
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Remove Table'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777778888888
        877777777888888887777777000000008777777733333333877777880AAAAAA0
        888877883FFFFFF3888870000AAAAAA0000873333FFFFFF3333870FF00000000
        FF08737733333333773870FFFFFFFFFFFF08737777777777773870FFFFFFFFFF
        FF08737777777777773870FFFFFFFFFFFF08737777777777773870FFFFFFFFFF
        FF087377777777777738704444444444440873FFFFFFFFFFFF38704444444444
        440873FFFFFFFFFFFF38704444444444440873FFFFFFFFFFFF38700000000000
        0007733333333333333777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdDropTableClick
    end
    object cmdUnlink: TSpeedButton
      Left = 168
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Remove Link'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077770AA08777
        708777773FF387777387777770AA08770A08777773FF38773F387777770AA000
        AA087777773FF333FF3877000000AAAAA08777333333FFFFF387770777770AA0
        0877773777773FF3387778088880AAA0877778388883FFF387770000000AAAAA
        08773333333FFFFF38770FFFF0AA000AA087377773FF333FF3870FFFF0A0FFF0
        AA08377773F37773FF380FFFFF0FFFFF0AA03777773777773FF30FFFFFFFFFFF
        F00737777777777773370FFFFFFFFFFFF0873777777777777387044444444444
        40873FFFFFFFFFFFF38704444444444440873FFFFFFFFFFFF387044444444444
        40873FFFFFFFFFFFF38700000000000000773333333333333377000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdUnlinkClick
    end
    object cmdEditCol: TSpeedButton
      Left = 200
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Field Settings'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
        87777733333333333777000000000000877788888888888837770FFFFFFFFFF0
        877787777777777837770FFFFFFFFFF0877787777777777837770FFFFFFFFFF0
        877787777777777837770FFFFFFFFFF0877787777777777837770FFF00FFFFF0
        877787778877777837770FFF0000FFF0877787778888777837770FFFF0070000
        877787777887888837770FFFF073370087778777787F77883777044444033370
        07778FFFFF87F778877704444407337030778FFFFF877778387704444440770B
        63078FFFFFF8778373870000000000FBB6308888888888F73738777777770BFF
        BB6377777777877F73737777777770BFFBB6777777777877F737000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdEditColClick
    end
    object cmdInsertCol: TSpeedButton
      Left = 224
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Insert Blank Field'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
        87777788888888888777000000000000877733333333333387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFF00
        007737777777773333770FFFFFFFFF0BB07737777777773FF37704444444000B
        B0003FFFFFFF333FF333044444440BBBBBB03FFFFFFF3FFFFFF3044444440BBB
        BBB03FFFFFFF3FFFFFF300000000000BB00033333333333FF33377777777770B
        B07777777777773FF37777777777770000777777777777333377000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdInsertColClick
    end
    object cmdDeleteCol: TSpeedButton
      Left = 248
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Remove Field'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
        87777788888888888777000000000000877733333333333387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF0877737777777777387770FFFFFFFFFF0
        877737777777777387770FFFFFFFFFF087773777777777738777044444444440
        87773FFFFFFFFFF3877704444444000000003FFFFFFF33333333044444440BBB
        BBB03FFFFFFF3FFFFFF3000000000BBBBBB0333333333FFFFFF3777777770000
        0000777777773333333377777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdDeleteColClick
    end
    object cmdHelp: TSpeedButton
      Left = 620
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Display Help'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777700887
        77777777770BB08777777777770BB087777777777770088777777777770BB087
        77777777770BB08877777777770BB08877777777770BB08877777777770BBB08
        877777700870BBB08877770BB0870BBB0877770BB08870BB0877770BBB000BBB
        08777770BBBBBBB0877777770BBBBB0777777777700000777777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdHelpClick
    end
    object cmdFirst: TSpeedButton
      Left = 232
      Top = 4
      Width = 25
      Height = 25
      Hint = 'View First Page'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778877777777
        888870087777777880887008777777880088700877777880C08870087777880C
        C0887008777880CCC088700877880CCCC08870087880CCCCC0887008770CCCCC
        C08870087770CCCCC088700877770CCCC0887008777770CCC08870087777770C
        C088700877777770C08870077777777700887777777777777077000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdFirstClick
    end
    object cmdPrev: TSpeedButton
      Left = 256
      Top = 4
      Width = 25
      Height = 25
      Hint = 'View Previous Page'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777778
        88877777777777880887777777777880088777777777880C08877777777880CC
        0887777777880CCC088777777880CCCC08877777880CCCCC0887777770CCCCCC
        08877777770CCCCC088777777770CCCC0887777777770CCC08877777777770CC
        088777777777770C088777777777777008877777777777770777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdPrevClick
    end
    object cmdSetup: TSpeedButton
      Left = 88
      Top = 4
      Width = 25
      Height = 25
      Cursor = crArrow
      Hint = 'Report Setup'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777888888888
        88877700000000000087770FFFFFFFFFF087770FFFFFFFFFF087000000000000
        00000BB0B0B0B0B0B0B00BB0BBB0BBB0BBB00BBBBBBBBBBBBBB0000000000000
        0000770FFFFFFFFFF087770FFFFFFFFFF087770FFFFFFFFFF087770FFFFFFFF0
        0077770FFFFFFF0F0777770FFFFFFF0077777700000000077777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdSetupClick
    end
    object cmdRight: TSpeedButton
      Tag = 7
      Left = 579
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Align Right'
      GroupIndex = 4
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777000000000777777788888888877777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777000000000777777788888888877777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777000000000777777788888888877777777777777
        7777777777777777777770000000000000777888888888888877777777777777
        7777777777777777777777777777777777777777777777777777000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdRightClick
    end
    object cmdViewReport: TSpeedButton
      Tag = 5
      Left = 168
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Preview Report'
      GroupIndex = 5
      Glyph.Data = {
        50010000424D5001000000000000760000002800000011000000100000000100
        040000000000C000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
        88770000000070000000000008700000000070FFFFFFFFFF08000000000070FF
        FFFFF00008007000000070FFFFFF08EE80877000000070FFFFF08EEEE8087000
        000070FFFFF0EEEEEE087000000070FFFFF0EEEEEE087000000070FFFFF08EEE
        E8077000000070FFFFFF08EE80777000000070FFFFFFF00008777000000070FF
        FFFFFFFF08777000000070FFFFFFFF0007777000000070FFFFFFF0F077777000
        000070FFFFFFF007777770000000700000000077777770000000000000000000
        0000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdViewReportClick
    end
    object cmdViewGrid: TSpeedButton
      Tag = 5
      Left = 144
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Preview Records'
      GroupIndex = 5
      Down = True
      Glyph.Data = {
        50010000424D5001000000000000760000002800000011000000100000000100
        040000000000C000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007888888888888888800000000000000000000000800000000FFF
        FFFFFFFFFFF0800000000F00F00F00F000F0800000000FFFFFFFFFFFFFF08000
        00000F00F00F00F000F0800000000FFFFFFFFFFFFFF0800000000F00F00F00F0
        00F0800000000FFFFFFFFFFFFFF0800000000F00F00F00F000F0800000000FFF
        FFFFFFFFFFF0800000000CCCCCCCCCCCCCC080000000077CCCCCCCCCC7708000
        0000000000000000000070000000777777777777777770000000000000000000
        0000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdViewGridClick
    end
    object cmdCancel: TSpeedButton
      Tag = 7
      Left = 440
      Top = 4
      Width = 73
      Height = 25
      Hint = 'Cancel current process'
      AllowAllUp = True
      GroupIndex = 6
      Caption = '&Cancel'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778877777777
        7777791187777798777779111877791187777911118791111877779111181111
        1877777911111111877777779111111877777777711111877777777779111187
        7777777791111187777777791118111877777791118791118777779118777911
        1877777917777791117777777777777919777777777777777777000000000000
        0000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Visible = False
    end
    object cmdRefreshReport: TSpeedButton
      Tag = 5
      Left = 200
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Refresh Report'
      AllowAllUp = True
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770887777
        77777777700887777777777770B088777777777770BB088777777770000BB088
        77777770BBFBFB08877777770BBF00007777777770FBF08877777700000FBF08
        8777770BFBFBFBF088777770BFB0000007777770FBFB0887777777770FBFB088
        777777770BFBFB088777777770BFBFB088777777700000000877000000000000
        0000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdRefreshReportClick
    end
    object cmdRefreshCode: TSpeedButton
      Tag = 5
      Left = 200
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Refresh SQL'
      AllowAllUp = True
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7800777777777777800077777777777800077777777777800077777788887800
        07777770000080007777770FFFFF0007777770FFCCCFF08777770FFCFFFCFF08
        77770FFFFFFCFF0877770FFFCCCFFF0877770FFCFFFFFF0877770FFCFFFCFF07
        777770FFCCCFF0777777770FFFFF077777777770000077777777000000000000
        0000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = cmdRefreshReportClick
    end
    object cmbFontSize: TComboBox
      Tag = 1
      Left = 393
      Top = 6
      Width = 48
      Height = 21
      Hint = 'Font Size'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        '8'
        '9'
        '10'
        '11'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26'
        '28'
        '30'
        '36'
        '40'
        '48'
        '60'
        '72')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = False
      OnChange = cmbFontNameChange
    end
    object cmbFontName: TComboBox
      Left = 233
      Top = 6
      Width = 152
      Height = 21
      Hint = 'Font Name'
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 1
      Visible = False
      OnChange = cmbFontNameChange
    end
    object cmbZoom: TComboBox
      Tag = 1
      Left = 545
      Top = 6
      Width = 64
      Height = 21
      Hint = 'Zoom Report'
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        '25%'
        '50%'
        '75%'
        '100%'
        '125%'
        '150%'
        '175%'
        '200%')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = False
      OnChange = cmbZoomChange
    end
  end
  object panTabs: TPanel
    Left = 0
    Top = 33
    Width = 684
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object tabMain: TTabbedNotebook
      Left = 0
      Top = 0
      Width = 602
      Height = 89
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TabsPerRow = 5
      TabFont.Color = clBlack
      TabFont.Height = -11
      TabFont.Name = 'MS Sans Serif'
      TabFont.Style = []
      TabOrder = 0
      OnClick = tabMainClick
      OnChange = tabMainChange
      object TTabPage
        Left = 5
        Top = 26
        Caption = '{Query}'
      end
      object TTabPage
        Left = 5
        Top = 26
        Caption = '{Link}'
      end
      object TTabPage
        Left = 5
        Top = 26
        Caption = '{Layout}'
      end
      object TTabPage
        Left = 5
        Top = 26
        Caption = '{Code}'
      end
      object TTabPage
        Left = 5
        Top = 26
        Caption = '{Preview}'
      end
    end
  end
  object panPages: TPanel
    Left = 0
    Top = 65
    Width = 684
    Height = 281
    Align = alClient
    BevelOuter = bvNone
    Caption = 'panPages'
    TabOrder = 3
    object pntPages: TPaintBox
      Left = 0
      Top = 0
      Width = 684
      Height = 281
      Align = alClient
      OnPaint = pntPagesPaint
    end
    object nbkPages: TNotebook
      Left = 8
      Top = 2
      Width = 553
      Height = 239
      PageIndex = 4
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = '{Query}'
        object panQuery: TPanel
          Left = 104
          Top = 48
          Width = 289
          Height = 137
          TabOrder = 1
          object outTables: TOutline
            Left = 1
            Top = 1
            Width = 128
            Height = 135
            Options = [ooDrawTreeRoot, ooDrawFocusRect, ooStretchBitmaps]
            ItemHeight = 13
            Align = alLeft
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            Ctl3D = True
            TabOrder = 0
            OnDragOver = outTablesDragOver
            OnMouseDown = outTablesMouseDown
            ItemSeparator = ':'
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
            ScrollBars = ssVertical
          end
          object grdQuery: TStringGrid
            Left = 138
            Top = 1
            Width = 150
            Height = 135
            Align = alClient
            BorderStyle = bsNone
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goColMoving]
            ParentFont = False
            TabOrder = 2
            OnDblClick = cmdEditColClick
            OnDragDrop = grdQueryDragDrop
            OnDragOver = grdQueryDragOver
            RowHeights = (
              24
              24
              22
              24
              24)
          end
          object panSplitVert: TPanel
            Left = 129
            Top = 1
            Width = 9
            Height = 135
            Cursor = crHSplit
            Align = alLeft
            BevelWidth = 2
            DragCursor = crHSplit
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnMouseDown = panSplitVertMouseDown
            OnMouseMove = panSplitVertMouseMove
            OnMouseUp = panSplitVertMouseUp
          end
        end
        object panSplitHorz: TPanel
          Left = 0
          Top = 200
          Width = 617
          Height = 9
          Cursor = crVSplit
          BevelWidth = 2
          DragCursor = crVSplit
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnMouseDown = panSplitHorzMouseDown
          OnMouseMove = panSplitHorzMouseMove
          OnMouseUp = panSplitHorzMouseUp
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '{Link}'
        object panTablesBase: TPanel
          Left = 168
          Top = 40
          Width = 233
          Height = 137
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnResize = panTablesBaseResize
          object barTablesVert: TScrollBar
            Left = 216
            Top = 0
            Width = 17
            Height = 97
            Kind = sbVertical
            LargeChange = 24
            Max = 500
            SmallChange = 16
            TabOrder = 0
            OnScroll = barTablesVertScroll
          end
          object barTablesHorz: TScrollBar
            Left = 0
            Top = 96
            Width = 217
            Height = 17
            LargeChange = 24
            Max = 1000
            SmallChange = 16
            TabOrder = 1
            OnScroll = barTablesHorzScroll
          end
          object panTables: TPanel
            Left = 0
            Top = 0
            Width = 217
            Height = 97
            BevelOuter = bvNone
            TabOrder = 2
            object pntTables: TPaintBox
              Left = 0
              Top = 0
              Width = 217
              Height = 97
              Align = alClient
              OnDblClick = pntTablesDblClick
              OnDragOver = TablesDragOver
              OnMouseDown = TablesMouseDown
              OnMouseMove = TablesMouseMove
              OnMouseUp = TablesMouseUp
              OnPaint = TablesPaint
            end
          end
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '{Layout}'
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '{Code}'
        object memViewCode: TMemo
          Left = 88
          Top = 16
          Width = 233
          Height = 105
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          Lines.Strings = (
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            '')
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 0
          Visible = False
          OnMouseDown = memViewCodeMouseDown
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '{Report}'
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '{Records}'
        object grdResults: TDBGrid
          Left = 48
          Top = 32
          Width = 249
          Height = 73
          DataSource = srcQuery
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Color = clNavy
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = grdResultsDblClick
          OnKeyDown = grdResultsKeyDown
        end
      end
    end
  end
  object dlgOpen: TOpenDialog
    Options = [ofShowHelp, ofPathMustExist, ofFileMustExist]
    Left = 104
    Top = 312
  end
  object dlgSave: TSaveDialog
    Options = [ofOverwritePrompt, ofShowHelp, ofPathMustExist]
    Left = 72
    Top = 312
  end
  object mnuMain: TMainMenu
    Left = 8
    Top = 312
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuFileNew: TMenuItem
        Caption = '&New'
        OnClick = cmdNewClick
      end
      object mnuFileOpen: TMenuItem
        Caption = '&Open Report'
        OnClick = cmdOpenClick
      end
      object mnuFileSave: TMenuItem
        Caption = '&Save'
        OnClick = mnuFileSaveClick
      end
      object mnuFileSaveAs: TMenuItem
        Caption = 'Save &As'
        OnClick = mnuFileSaveAsClick
      end
      object mnuFileDelete: TMenuItem
        Caption = '&Delete'
        Visible = False
      end
      object mnuFileLine1: TMenuItem
        Caption = '-'
      end
      object mnuFileExportTable: TMenuItem
        Caption = '&Export...'
        Enabled = False
        OnClick = mnuFileExportTableClick
      end
      object mnuFileLine2: TMenuItem
        Caption = '-'
      end
      object mnuFileReportSetup: TMenuItem
        Caption = '&Report Setup'
        OnClick = cmdSetupClick
      end
      object mnuFilePrinterSetup: TMenuItem
        Caption = '&Printer Setup'
        OnClick = mnuFilePrinterSetupClick
      end
      object mnuFilePrintReport: TMenuItem
        Caption = 'Print &Report'
        Enabled = False
        OnClick = cmdPrintClick
      end
      object mnuFilePreview: TMenuItem
        Caption = 'Pre&view Report'
      end
      object mnuFileLine3: TMenuItem
        Caption = '-'
      end
      object mnuFileClose: TMenuItem
        Caption = '&Close Report'
        OnClick = mnuFileCloseClick
      end
      object mnuFileExit: TMenuItem
        Caption = 'E&xit'
        Visible = False
        OnClick = mnuFileExitClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      object mnuEditCut: TMenuItem
        Caption = 'Cu&t'
        OnClick = mnuEditCutClick
        ShortCutText = 'Ctrl+X'
      end
      object mnuEditCopy: TMenuItem
        Caption = '&Copy'
        OnClick = mnuEditCopyClick
        ShortCutText = 'Ctrl+C'
      end
      object mnuEditPaste: TMenuItem
        Caption = '&Paste'
        OnClick = mnuEditPasteClick
        ShortCutText = 'Ctrl+V'
      end
      object mnuEditClear: TMenuItem
        Caption = 'C&lear'
        OnClick = mnuEditClearClick
        ShortCutText = 'Del'
      end
      object mnuEditSelectAll: TMenuItem
        Caption = 'Select &All'
        OnClick = mnuEditSelectAllClick
        ShortCutText = 'Ctrl+A'
      end
      object mnuEditLine1: TMenuItem
        Caption = '-'
      end
      object mnuEditSetup: TMenuItem
        Caption = 'Edit &Report Settings'
        OnClick = cmdSetupClick
      end
      object mnuEditProperties: TMenuItem
        Caption = 'Edit &Query Fields'
        OnClick = cmdEditColClick
      end
      object mnuEditPageFormat: TMenuItem
        Caption = 'Edit &Page Format'
        OnClick = cmdPageClick
      end
      object mnuEditLine2: TMenuItem
        Caption = '-'
      end
      object mnuEditAddTable: TMenuItem
        Caption = '&Add Table'
        OnClick = cmdAddTableClick
      end
      object mnuEditDropTable: TMenuItem
        Caption = 'Remove &Table'
        OnClick = cmdDropTableClick
      end
      object mnuEditUnlinkTables: TMenuItem
        Caption = '&Unlink Tables'
        OnClick = cmdUnlinkClick
      end
      object mnuEditLine3: TMenuItem
        Caption = '-'
      end
      object mnuEditInsertCol: TMenuItem
        Caption = '&Insert Field'
        OnClick = cmdInsertColClick
      end
      object mnuEditDeleteCol: TMenuItem
        Caption = '&Delete Field'
        OnClick = cmdDeleteColClick
      end
    end
    object mnuView: TMenuItem
      Caption = '&View'
      object mnuViewSearch: TMenuItem
        Caption = '&Define Search'
        OnClick = mnuViewSearchClick
      end
      object mnuViewLinks: TMenuItem
        Caption = 'Link &Tables'
        OnClick = mnuViewLinksClick
      end
      object mnuViewLayoutPage: TMenuItem
        Caption = '&Layout Page'
        OnClick = mnuViewLayoutPageClick
      end
      object mnuViewSQL: TMenuItem
        Caption = 'View &SQL'
        OnClick = mnuViewSQLClick
      end
      object mnuViewReport: TMenuItem
        Caption = 'Preview &Report'
        OnClick = cmdViewReportClick
      end
      object mnuViewGrid: TMenuItem
        Caption = 'Preview &Records'
        OnClick = cmdViewGridClick
      end
      object mnuViewLine1: TMenuItem
        Caption = '-'
      end
      object mnuViewFirst: TMenuItem
        Caption = '&First Page'
        Enabled = False
        OnClick = cmdFirstClick
      end
      object mnuViewNext: TMenuItem
        Caption = '&Next Page'
        Enabled = False
        OnClick = cmdNextClick
      end
      object mnuViewPrevious: TMenuItem
        Caption = '&Previous Page'
        Enabled = False
        OnClick = cmdPrevClick
      end
      object mnuViewLast: TMenuItem
        Caption = '&Last Page'
        Enabled = False
        OnClick = cmdLastClick
      end
      object mnuViewLine2: TMenuItem
        Caption = '-'
      end
      object mnuViewZoomPlus: TMenuItem
        Caption = 'Zoom + 25%'
        OnClick = mnuViewZoomPlusClick
      end
      object mnuViewZoomMinus: TMenuItem
        Caption = 'Zoom - 25%'
        OnClick = mnuViewZoomMinusClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuHelpContents: TMenuItem
        Caption = '&Contents'
        OnClick = mnuHelpContentsClick
      end
      object mnuHelpSearch: TMenuItem
        Caption = '&Search Help'
        OnClick = mnuHelpSearchClick
      end
      object mnuHelpLine1: TMenuItem
        Caption = '-'
      end
      object mnuHelpAbout: TMenuItem
        Caption = '&About'
        OnClick = mnuHelpAboutClick
      end
    end
  end
  object dlgSetup: TPrinterSetupDialog
    Left = 200
    Top = 312
  end
  object dlgPrint: TPrintDialog
    FromPage = 1
    MinPage = 1
    MaxPage = -1
    Options = [poPageNums, poSelection, poWarning]
    ToPage = 1
    Left = 168
    Top = 312
  end
  object popLayout: TPopupMenu
    AutoPopup = False
    Left = 40
    Top = 312
    object popLayoutDesign: TMenuItem
      Caption = 'Page &Designer'
      OnClick = cmdPageClick
    end
    object popLayoutCaption: TMenuItem
      Caption = '&Edit Caption'
      Enabled = False
      OnClick = popLayoutCaptionClick
    end
    object popLayoutLine1: TMenuItem
      Caption = '-'
    end
    object popLayoutCut: TMenuItem
      Caption = 'Cu&t'
      Enabled = False
      OnClick = mnuEditCutClick
      ShortCutText = 'Ctrl+X'
    end
    object popLayoutCopy: TMenuItem
      Caption = '&Copy'
      Enabled = False
      OnClick = mnuEditCopyClick
      ShortCutText = 'Ctrl+C'
    end
    object popLayoutPaste: TMenuItem
      Caption = '&Paste'
      Enabled = False
      OnClick = mnuEditPasteClick
      ShortCutText = 'Ctrl+V'
    end
    object popLayoutClear: TMenuItem
      Caption = 'C&lear'
      OnClick = mnuEditClearClick
      ShortCutText = 'Del'
    end
    object popLayoutLine2: TMenuItem
      Caption = '-'
    end
    object popLayoutSelectAll: TMenuItem
      Caption = 'Select &All'
      OnClick = mnuEditSelectAllClick
    end
  end
  object dlgOpenImage: TOpenDialog
    Options = [ofShowHelp, ofPathMustExist, ofFileMustExist]
    Left = 136
    Top = 312
  end
  object srcQuery: TDataSource
    OnDataChange = srcQueryDataChange
    Left = 232
    Top = 312
  end
  object tmrTimer: TTimer
    Enabled = False
    Interval = 150
    OnTimer = tmrTimerTimer
    Left = 264
    Top = 312
  end
end