mainfrm.dfm

最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！

object frmMain: TfrmMain
  Left = 377
  Top = 198
  ClientWidth = 642
  ClientHeight = 344
  BorderWidth = 1
  Caption = 'JEDI Survey Reporter'
  Color = clBtnFace
  Constraints.MinHeight = 400
  Constraints.MinWidth = 650
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 147
    Top = 0
    Width = 5
    Height = 333
    Cursor = crSizeWE
    AutoSnap = False
    MinSize = 120
  end
  object Panel2: TPanel
    Left = 152
    Top = 0
    Width = 488
    Height = 333
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 2
    object nbDetails: TNotebook
      Left = 0
      Top = 0
      Width = 488
      Height = 333
      Align = alClient
      PageIndex = 2
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'GlobalStats'
        object lvGlobalStats: TListView
          Left = 0
          Top = 0
          Width = 488
          Height = 333
          Align = alClient
          Columns = <
            item
              Caption = 'Name'
              Width = -2
              WidthType = (
                -2)
            end
            item
              AutoSize = True
              Caption = 'Value'
            end>
          ColumnClick = False
          Items.Data = {
            B20000000500000000000000FFFFFFFFFFFFFFFF010000000000000005546974
            6C650000000000FFFFFFFFFFFFFFFF01000000000000000C52656C6561736520
            446174650000000000FFFFFFFFFFFFFFFF01000000000000000F457870697261
            74696F6E20446174650000000000FFFFFFFFFFFFFFFF01000000000000000952
            6573706F6E7365730000000000FFFFFFFFFFFFFFFF0100000000000000095175
            657374696F6E7300FFFFFFFFFFFFFFFFFFFF}
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ItemStats'
        object lvItemStats: TJvListView
          Left = 0
          Top = 0
          Width = 488
          Height = 333
          Align = alClient
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'Name'
              Width = -2
              WidthType = (
                -2)
            end
            item
              AutoSize = True
              Caption = 'Sum'
            end>
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          ColumnsOrder = '0=-2,1=490'
          AutoClipboardCopy = False
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ItemStatsFreeForm'
        object reFreeForm: TRichEdit
          Left = 0
          Top = 0
          Width = 488
          Height = 333
          Align = alClient
          PlainText = True
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 147
    Height = 333
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object tvItems: TJvTreeView
      Left = 0
      Top = 0
      Width = 147
      Height = 333
      Align = alClient
      HideSelection = False
      Images = il16
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = tvItemsChange
      OnCollapsing = tvItemsCollapsing
      Items.Data = {
        010000001F0000001500000015000000FFFFFFFFFFFFFFFF0000000000000000
        06537572766579}
      LineColor = 13160660
    end
  end
  object sbStatus: TJvStatusBar
    Left = 0
    Top = 333
    Width = 640
    Height = 19
    Panels = <
      item
        Width = 250
      end
      item
        Width = 110
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object mmMain: TMainMenu
    Images = il16
    Left = 90
    Top = 78
    object File1: TMenuItem
      Caption = 'File'
      ShortCut = 16462
      object acOpen1: TMenuItem
        Action = acOpen
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object LoadReport1: TMenuItem
        Action = acLoadReport
      end
      object acSaveAs1: TMenuItem
        Action = acSaveReport
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Add2: TMenuItem
        Action = acAddResponse
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Action = acPrintPreview
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object acExit1: TMenuItem
        Action = acExit
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object Comments1: TMenuItem
        Action = acComments
      end
      object acDupeWarning1: TMenuItem
        Action = acDupeWarning
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Action = acAbout
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Help2: TMenuItem
        Action = acHelp
      end
    end
  end
  object alMain: TActionList
    Images = il16
    OnUpdate = alMainUpdate
    Left = 36
    Top = 78
    object acOpen: TAction
      Category = 'File'
      Caption = 'Open Survey...'
      ImageIndex = 2
      ShortCut = 16463
      OnExecute = acOpenExecute
    end
    object acSaveReport: TAction
      Category = 'File'
      Caption = 'Save Report...'
      ShortCut = 16467
      OnExecute = acSaveReportExecute
    end
    object acExit: TAction
      Category = 'File'
      Caption = 'Exit'
      ShortCut = 32883
      OnExecute = acExitExecute
    end
    object acAddResponse: TAction
      Category = 'Items'
      Caption = 'Add User Response...'
      ShortCut = 24655
      OnExecute = acAddResponseExecute
    end