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 = {} 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