unit_frmdict.dfm

影院售票系统完整源码

inherited frmdict: Tfrmdict
  Left = 312
  Top = 172
  Width = 585
  Height = 389
  Caption = #21442#25968#35774#32622
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Width = 577
  end
  inherited Bevel3: TBevel
    Top = 322
    Width = 577
  end
  inherited Panel1: TPanel
    Width = 577
    Alignment = taLeftJustify
    Caption = ' '#21442#25968#35774#32622
    Font.Height = -16
    Font.Style = [fsBold]
    ParentFont = False
  end
  inherited Panel2: TPanel
    Width = 577
    Height = 276
    object CyberSizePanel1: TCyberSizePanel
      Left = 0
      Top = 0
      Width = 185
      Height = 276
      SizeBarWidth = 7
      HotSpotVisible = True
      HotSpotSizePercent = 30
      TabOrder = 0
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 177
        Height = 276
        Align = alClient
        AutoExpand = True
        Indent = 19
        ReadOnly = True
        RightClickSelect = True
        RowSelect = True
        TabOrder = 0
        OnClick = TreeView1Click
        Items.Data = {
          01000000290000000000000000000000FFFFFFFFFFFFFFFF0000000003000000
          10CBF9D3D0B2CECAFDC0E0B1F0C1D0B1ED210000000000000000000000FFFFFF
          FFFFFFFFFF000000000000000008D3B0C6B1C0E0B1F021000000000000000000
          0000FFFFFFFFFFFFFFFF000000000000000008D3B0C6ACC0E0B1F02500000000
          00000000000000FFFFFFFFFFFFFFFF00000000000000000CD1DDB3F6CFEEC4BF
          C0E0B1F0}
      end
    end
    object Panel4: TPanel
      Left = 185
      Top = 0
      Width = 392
      Height = 276
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object ListView1: TCyberListView
        Left = 0
        Top = 0
        Width = 392
        Height = 276
        Align = alClient
        Columns = <
          item
            Caption = #32534#30721
            Width = 80
          end
          item
            Caption = #21517#31216
            Width = 150
          end
          item
            Caption = #22791#27880
            Width = 142
          end>
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
        OnKeyDown = ListView1KeyDown
        OnCustomDrawItem = ListView1CustomDrawItem
      end
    end
  end
  inherited Panel3: TPanel
    Top = 327
    Width = 577
    Height = 35
    object BtnAdd: TBitBtn
      Left = 242
      Top = 8
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BtnAddClick
    end
    object BtnEdit: TBitBtn
      Left = 323
      Top = 8
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 1
      OnClick = BtnEditClick
    end
    object BtnDel: TBitBtn
      Left = 402
      Top = 7
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BtnDelClick
    end
    object BtnExit: TBitBtn
      Left = 490
      Top = 7
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 3
      OnClick = BtnExitClick
    end
  end
  object CyberXPMenu1: TCyberXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    XPControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcEdit, xcMaskEdit, xcMemo, xcRichEdit, xcCheckBox, xcRadioButton, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcCybermenuBtn]
    Active = True
    Left = 328
    Top = 32
  end
end