Chip 2002 October/Chip_2002-10_cd1.bin/zkuste/delphi/kolekce/d56/FLEXCEL.ZIP/Demo/UFlDemo.dfm

Text File | 2002-07-03 | 30KB | 1,090 lines

object Main: TMain
  Left = 75
  Top = 106
  Width = 837
  Height = 545
  Caption = 'Flexcel Component Suite Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 829
    Height = 499
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 233
      Top = 38
      Width = 3
      Height = 461
      Cursor = crHSplit
    end
    object ListDemos: TTreeView
      Left = 0
      Top = 38
      Width = 233
      Height = 461
      Align = alLeft
      HideSelection = False
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = ListDemosChange
      Items.Data = {
        010000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
        0544656D6F731F0000000100000001000000FFFFFFFFFFFFFFFF000000000B00
        0000065265706F7274310000000300000003000000FFFFFFFFFFFFFFFF000000
        000000000018566572792073696D706C652064656D6F20284E6F204442293300
        00000300000003000000FFFFFFFFFFFFFFFF00000000000000001A4172726179
        206F662076617269616E74732020284E6F204442292B00000003000000030000
        00FFFFFFFFFFFFFFFF000000000000000012496D6167652044656D6F20284E6F
        20444229220000000300000000000000FFFFFFFFFFFFFFFF0000000000000000
        094462207265706F72742F0000000300000003000000FFFFFFFFFFFFFFFF0000
        000000000000164D756C7469706C65204D61737465722D44657461696C280000
        000300000003000000FFFFFFFFFFFFFFFF00000000000000000F4D756C746970
        6C6520736865657473240000000300000003000000FFFFFFFFFFFFFFFF000000
        00000000000B5069766F74205461626C651F0000000300000003000000FFFFFF
        FFFFFFFFFF0000000000000000064368617274732C0000000300000003000000
        FFFFFFFFFFFFFFFF000000000000000013496D6167657320616E6420636F6D6D
        656E7473330000000300000003000000FFFFFFFFFFFFFFFF0000000000000000
        1A496D6167657320616E64206D756C7469706C65207368656574732400000003
        00000003000000FFFFFFFFFFFFFFFF00000000000000000B437573746F6D2064
        6174611F0000000200000002000000FFFFFFFFFFFFFFFF000000000100000006
        496D706F7274220000000400000004000000FFFFFFFFFFFFFFFF000000000000
        000009526561642066696C65}
    end
    object Tabs: TPageControl
      Left = 236
      Top = 38
      Width = 593
      Height = 461
      ActivePage = TabSheet11
      Align = alClient
      TabOrder = 1
      TabPosition = tpBottom
      object TabSheet1: TTabSheet
        Caption = '1'
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TxtWelcome: TRichEdit
            Left = 1
            Top = 1
            Width = 583
            Height = 431
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = '2'
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label3: TLabel
              Left = 9
              Top = 8
              Width = 41
              Height = 16
              Caption = 'Report'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtReport: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet3: TTabSheet
        Tag = 1
        Caption = '3'
        ImageIndex = 2
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label2: TLabel
              Left = 9
              Top = 8
              Width = 162
              Height = 16
              Caption = 'Very simple demo (no DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtSimpleDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet4: TTabSheet
        Tag = 2
        Caption = '4'
        ImageIndex = 3
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label1: TLabel
              Left = 9
              Top = 8
              Width = 153
              Height = 16
              Caption = 'Array of variants (No DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtVarArr: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 231
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel6: TPanel
            Left = 1
            Top = 264
            Width = 583
            Height = 168
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 2
            object Label4: TLabel
              Left = 16
              Top = 8
              Width = 203
              Height = 13
              Caption = 'Fill in the values you want to send to Excel:'
            end
            object PageControl1: TPageControl
              Left = 16
              Top = 24
              Width = 553
              Height = 137
              ActivePage = TabSheet15
              Anchors = [akLeft, akTop, akRight]
              TabOrder = 0
              TabPosition = tpBottom
              object TabSheet15: TTabSheet
                Caption = 'Sheet 1'
                object GridVarArray1: TStringGrid
                  Left = 8
                  Top = 0
                  Width = 329
                  Height = 105
                  DefaultRowHeight = 18
                  Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
                  ScrollBars = ssNone
                  TabOrder = 0
                end
              end
              object TabSheet16: TTabSheet
                Caption = 'Sheet2'
                ImageIndex = 1
                object GridVarArray2: TStringGrid
                  Left = 8
                  Top = 0
                  Width = 329
                  Height = 105
                  DefaultRowHeight = 18
                  Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
                  ScrollBars = ssNone
                  TabOrder = 0
                end
              end
            end
          end
        end
      end
      object TabSheet14: TTabSheet
        Tag = 3
        Caption = '5'
        ImageIndex = 5
        object Panel18: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label17: TLabel
              Left = 9
              Top = 8
              Width = 127
              Height = 16
              Caption = 'Image demo (No DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtImgDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 343
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel19: TPanel
            Left = 1
            Top = 376
            Width = 583
            Height = 56
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 2
            object Label18: TLabel
              Left = 16
              Top = 8
              Width = 98
              Height = 13
              Caption = 'File to send to Excel:'
            end
            object edMyImage: TEdit
              Left = 16
              Top = 24
              Width = 529
              Height = 21
              Anchors = [akLeft, akTop, akRight]
              TabOrder = 0
            end
            object btnOpenMyImage: TButton
              Left = 552
              Top = 23
              Width = 25
              Height = 25
              Caption = '...'
              TabOrder = 1
              OnClick = btnOpenMyImageClick
            end
          end
        end
      end
      object TabSheet5: TTabSheet
        Tag = 4
        Caption = '6'
        ImageIndex = 4
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label5: TLabel
              Left = 9
              Top = 8
              Width = 58
              Height = 16
              Caption = 'Db report'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtDbDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 340
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel8: TPanel
            Left = 1
            Top = 373
            Width = 583
            Height = 59
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 2
            object Label6: TLabel
              Left = 16
              Top = 8
              Width = 79
              Height = 13
              Caption = 'Select customer:'
            end
            object DBLookupComboBox1: TDBLookupComboBox
              Left = 16
              Top = 24
              Width = 281
              Height = 21
              KeyField = 'CustNo'
              ListField = 'Company'
              ListSource = DemoData.DsCust
              TabOrder = 0
            end
          end
        end
      end
      object TabSheet6: TTabSheet
        Tag = 5
        Caption = '7'
        ImageIndex = 5
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label7: TLabel
              Left = 9
              Top = 8
              Width = 139
              Height = 16
              Caption = 'Multiple Master- Detail'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtMultMast: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet7: TTabSheet
        Tag = 6
        Caption = '8'
        ImageIndex = 6
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label8: TLabel
              Left = 9
              Top = 8
              Width = 93
              Height = 16
              Caption = 'Multiple sheets'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtSheets: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet8: TTabSheet
        Tag = 7
        Caption = '9'
        ImageIndex = 7
        object Panel12: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label10: TLabel
              Left = 9
              Top = 8
              Width = 69
              Height = 16
              Caption = 'Pivot Table'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtPivot: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet17: TTabSheet
        Tag = 8
        Caption = '10'
        ImageIndex = 14
        object Panel16: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label15: TLabel
              Left = 9
              Top = 8
              Width = 39
              Height = 16
              Caption = 'Charts'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtCharts: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet9: TTabSheet
        Tag = 9
        Caption = '11'
        ImageIndex = 8
        object Panel11: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label9: TLabel
              Left = 9
              Top = 8
              Width = 138
              Height = 16
              Caption = 'Images and comments'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtFishFacts: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet10: TTabSheet
        Tag = 10
        Caption = '12'
        ImageIndex = 9
        object Panel13: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label11: TLabel
              Left = 9
              Top = 8
              Width = 167
              Height = 16
              Caption = 'Images and multiple sheets'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtEvents: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet11: TTabSheet
        Tag = 11
        Caption = '13'
        ImageIndex = 10
        object Panel14: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label12: TLabel
              Left = 9
              Top = 8
              Width = 77
              Height = 16
              Caption = 'Custom data'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtCustom: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 223
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object TPanel
            Left = 1
            Top = 256
            Width = 583
            Height = 176
            Align = alBottom
            TabOrder = 2
            object Label13: TLabel
              Left = 16
              Top = 16
              Width = 49
              Height = 13
              Caption = 'Enter SQL'
            end
            object edSQL: TMemo
              Left = 16
              Top = 40
              Width = 553
              Height = 105
              Lines.Strings = (
                'select * from customer')
              ScrollBars = ssVertical
              TabOrder = 0
            end
          end
        end
      end
      object TabSheet12: TTabSheet
        Caption = '13'
        ImageIndex = 11
        object Panel17: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label16: TLabel
              Left = 9
              Top = 8
              Width = 40
              Height = 16
              Caption = 'Import'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtImport: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet13: TTabSheet
        Tag = 100
        Caption = '14'
        ImageIndex = 12
        object Panel15: TPanel
          Left = 0
          Top = 0
          Width = 585
          Height = 433
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 583
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label14: TLabel
              Left = 9
              Top = 8
              Width = 54
              Height = 16
              Caption = 'Read file'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtReadFile: TRichEdit
            Left = 1
            Top = 33
            Width = 583
            Height = 399
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
    end
    object ToolBar: TToolBar
      Left = 0
      Top = 0
      Width = 829
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 82
      Caption = 'ToolBar'
      DisabledImages = DemoData.ImageList2
      Flat = True
      HotImages = DemoData.ImageList3
      Images = DemoData.ImageList1
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 2
      object BtnUseNative: TToolButton
        Left = 0
        Top = 0
        Action = ActionUseNative
        Down = True
        Grouped = True
        Style = tbsCheck
      end
      object BtnUseOle: TToolButton
        Left = 82
        Top = 0
        Action = ActionUseOle
        Grouped = True
        Style = tbsCheck
      end
      object ToolButton5: TToolButton
        Left = 164
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object BtnHTML: TToolButton
        Left = 172
        Top = 0
        Action = ActionHtml
        Style = tbsCheck
      end
      object BtnProtect: TToolButton
        Left = 254
        Top = 0
        Action = ActionProtect
        Style = tbsCheck
      end
      object BtnUseTStore: TToolButton
        Left = 336
        Top = 0
        Action = ActionUseTStore
        Style = tbsCheck
      end
      object ToolButton2: TToolButton
        Left = 418
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object BtnReport: TToolButton
        Left = 426
        Top = 0
        Action = ActionReport
      end
      object BtnPreview: TToolButton
        Left = 508
        Top = 0
        Action = ActionPreview
      end
      object BtnViewTemplate: TToolButton
        Left = 590
        Top = 0
        Action = ActionViewTemplate
      end
      object ToolButton1: TToolButton
        Left = 672
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object BtnClose: TToolButton
        Left = 680
        Top = 0
        Action = ActionClose
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 499
    Width = 829
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object ActionList: TActionList
    Images = DemoData.ImageList1
    Left = 792
    Top = 8
    object ActionUseNative: TAction
      Category = 'Adapter'
      Caption = 'Native Adapter'
      ImageIndex = 6
      OnExecute = ActionUseNativeExecute
    end
    object ActionClose: TAction
      Category = 'File'
      Caption = 'Close'
      Hint = 'Quits the Application'
      ImageIndex = 12
      OnExecute = ActionCloseExecute
    end
    object ActionReport: TAction
      Category = 'File'
      Caption = 'Report !'
      Hint = 'Runs the selected report'
      ImageIndex = 13
      ShortCut = 120
      OnExecute = ActionReportExecute
      OnUpdate = ActionReportUpdate
    end
    object ActionUseOle: TAction
      Category = 'Adapter'
      Caption = 'Ole Adapter'
      ImageIndex = 5
      OnExecute = ActionUseOleExecute
    end
    object ActionHtml: TAction
      Category = 'Options'
      Caption = 'Export to HTML'
      ImageIndex = 9
      OnUpdate = ActionHtmlUpdate
    end
    object ActionProtect: TAction
      Category = 'Options'
      Caption = 'Protect'
      ImageIndex = 4
      OnUpdate = ActionHtmlUpdate
    end
    object ActionViewTemplate: TAction
      Category = 'File'
      Caption = 'View Template'
      ImageIndex = 3
      OnExecute = ActionViewTemplateExecute
      OnUpdate = ActionViewTemplateUpdate
    end
    object ActionUseTStore: TAction
      Category = 'Options'
      Caption = 'Template Store'
      ImageIndex = 7
      OnExecute = ActionUseTStoreExecute
    end
    object ActionPreview: TAction
      Category = 'Options'
      Caption = 'Preview'
      ImageIndex = 14
      OnExecute = ActionPreviewExecute
      OnUpdate = ActionPreviewUpdate
    end
  end
end