viewinfofrm.dfm

《Delphi实例开发教程》源代码包说明

object frmViewInfo: TfrmViewInfo
  Left = 186
  Top = 96
  Width = 650
  Height = 500
  Caption = #20010#20154#20449#24687#20013#24515
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object spView: TSplitter
    Left = 209
    Top = 0
    Width = 8
    Height = 466
    AutoSnap = False
    Beveled = True
    Color = clMedGray
    MinSize = 220
    ParentColor = False
  end
  object pnlView: TPanel
    Left = 217
    Top = 0
    Width = 425
    Height = 466
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object pnlBar: TPanel
      Left = 1
      Top = 1
      Width = 423
      Height = 41
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 0
      object lbOrder: TLabel
        Left = 11
        Top = 15
        Width = 77
        Height = 14
        Caption = #25490#24207#65306'    '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object cbbOrder: TComboBox
        Left = 53
        Top = 10
        Width = 145
        Height = 22
        BevelInner = bvNone
        BevelKind = bkFlat
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 14
        ItemIndex = 0
        ParentFont = False
        TabOrder = 0
        Text = #26631#39064
        OnChange = cbbOrderChange
        Items.Strings = (
          #26631#39064
          #26102#38388
          #31867#22411
          #26469#28304)
      end
      object rbAscend: TRadioButton
        Left = 217
        Top = 12
        Width = 56
        Height = 17
        Caption = #21319#24207
        Checked = True
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        TabStop = True
        OnClick = cbbOrderChange
      end
      object rbDesent: TRadioButton
        Left = 281
        Top = 12
        Width = 64
        Height = 17
        Caption = #38477#24207
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = cbbOrderChange
      end
    end
    object pnlTable: TPanel
      Left = 1
      Top = 42
      Width = 423
      Height = 423
      Align = alClient
      Caption = 'pnlTable'
      Color = clSilver
      TabOrder = 1
    end
  end
  inline fraView1: TfraView
    Left = 0
    Top = 0
    Width = 209
    Height = 466
    Align = alLeft
    Color = clSilver
    ParentColor = False
    TabOrder = 1
    DesignSize = (
      209
      466)
    inherited pgcQuery: TPageControl
      Left = 8
      Width = 177
      Height = 353
      Font.Charset = ANSI_CHARSET
      Font.Height = -14
      Font.Name = #23435#20307
      ParentFont = False
      inherited tshIDQuery: TTabSheet
        OnShow = tshIDQueryShow
        inherited lblIDInfo: TLabel
          Top = 302
          Width = 144
          Height = 14
          AutoSize = True
          Caption = #23450#21046#20445#23384#20449#24687#24635#25968'...'
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
        end
        inherited tvIdlist: TTreeView
          Width = 169
          Height = 177
          Color = clScrollBar
          Font.Height = -14
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          OnChange = tvIDListChange
        end
        inherited GroupBox1: TGroupBox
          Top = 177
          Width = 169
          Height = 112
          Caption = #20851#38190#23383
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
          inherited edtKeyword1: TEdit
            Left = 9
            Top = 19
            Width = 152
            Height = 22
            BevelKind = bkFlat
            BevelOuter = bvNone
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
          end
          inherited edtKeyword2: TEdit
            Left = 9
            Top = 49
            Width = 152
            Height = 22
            BevelKind = bkFlat
            BevelOuter = bvNone
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
          end
          inherited edtKeyword3: TEdit
            Left = 9
            Top = 79
            Width = 152
            Height = 22
            BevelKind = bkFlat
            BevelOuter = bvNone
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
          end
        end
      end
      inherited tshConditionQuery: TTabSheet
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        OnShow = tshConditionQueryShow
        inherited gbWebTypeList: TGroupBox
          Width = 169
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
          DesignSize = (
            169
            168)
          inherited cbIDCheck: TCheckBox
            Left = 11
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            OnClick = cbIDCheckClick
          end
          inherited cbTimeCheck: TCheckBox
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            OnClick = fraView1cbTimeCheckClick
          end
          inherited cbbIDSelect: TComboBox
            Left = 11
            Width = 134
            Height = 22
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ItemHeight = 14
            ParentFont = False
            OnChange = cbbIDSelectChange
          end
          inherited cbbTimeSelect: TComboBox
            Left = 9
            Width = 135
            Height = 22
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ItemHeight = 14
            ParentFont = False
            OnChange = cbbTimeSelectChange
          end
        end
        inherited gbIViewMode: TGroupBox
          Width = 169
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
          DesignSize = (
            169
            145)
          inherited sbConditionSearch: TSpeedButton
            Left = 88
            Width = 54
            Caption = #25628#32034
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Glyph.Data = {
              26040000424D2604000000000000360000002800000012000000120000000100
              180000000000F0030000120B0000120B00000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000001212FF1212FF0000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000001212FF1212FF1212FF1212FF00000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000001212FF1212FF1212FF1212FF1212FF000000000000000000000000
              00000000000000000000000000000000000000000000000000000000001212FF
              1212FF1212FF1212FF1212FF1212FF1212FF0000000000000000000000000000
              0000000000000000000000000000000000000000001212FF1212FF1212FF1212
              FF1212FF1212FF1212FF1212FF1212FF00000000000000000000000000000000
              000000000000000000000000001212FF1212FF1212FF1212FF1212FF1212FF12
              12FF1212FF1212FF1212FF1212FF000000000000000000000000000000000000
              00000000001212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF
              1212FF1212FF1212FF00000000000000000000000000000000000000001212FF
              1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212
              FF1212FF00000000000000000000000000000000001212FF1212FF1212FF1212
              FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF00000000
              000000000000000000000000001212FF1212FF1212FF1212FF1212FF1212FF12
              12FF1212FF1212FF1212FF1212FF1212FF000000000000000000000000000000
              00000000001212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF
              1212FF1212FF00000000000000000000000000000000000000000000001212FF
              1212FF1212FF1212FF1212FF1212FF1212FF1212FF1212FF0000000000000000
              0000000000000000000000000000000000000000001212FF1212FF1212FF1212
              FF1212FF1212FF1212FF00000000000000000000000000000000000000000000
              000000000000000000000000001212FF1212FF1212FF1212FF1212FF00000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000001212FF1212FF1212FF1212FF000000000000000000000000000000
              00000000000000000000000000000000000000000000000000000000001212FF
              1212FF0000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000}
            ParentFont = False
            OnClick = View
          end
          inherited rbTitleOnly: TRadioButton
            Left = 13
            Width = 136
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
          end
          inherited rbTAndContent: TRadioButton
            Left = 13
            Top = 68
            Width = 128
            Font.Charset = ANSI_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
          end
          inherited leKeyword: TLabeledEdit
            Width = 129
            Height = 22
            EditLabel.Width = 45
            EditLabel.Height = 14
            EditLabel.Font.Charset = ANSI_CHARSET
            EditLabel.Font.Color = clWhite
            EditLabel.Font.Height = -14
            EditLabel.Font.Name = #26032#23435#20307
            EditLabel.Font.Style = [fsBold]
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            OnKeyPress = fraView1leKeywordKeyPress
          end
        end
      end
    end
  end
end