viewfra.dfm

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

object fraView: TfraView
  Left = 0
  Top = 0
  Width = 320
  Height = 389
  Align = alLeft
  TabOrder = 0
  DesignSize = (
    320
    389)
  object pgcQuery: TPageControl
    Left = 0
    Top = 0
    Width = 273
    Height = 345
    ActivePage = tshConditionQuery
    Anchors = [akLeft, akTop, akRight]
    Style = tsButtons
    TabOrder = 0
    object tshIDQuery: TTabSheet
      Caption = #23450#21046#26597#35810' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      DesignSize = (
        265
        314)
      object lblIDInfo: TLabel
        Left = 0
        Top = 257
        Width = 265
        Height = 24
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = #35813#23450#21046#19987#39064#27809#26377#20445#23384#36807#23450#21046#20449#24687#65281
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object tvIdlist: TTreeView
        Left = 0
        Top = 0
        Width = 265
        Height = 201
        Align = alTop
        Indent = 19
        TabOrder = 0
        Items.Data = {
          01000000230000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          0AD3C3BBA7B6A8D6C64944}
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 201
        Width = 265
        Height = 168
        Align = alTop
        Caption = #26465#20214#36873#25321
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DesignSize = (
          265
          168)
        object edtKeyword1: TEdit
          Left = 2
          Top = 16
          Width = 196
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 0
        end
        object edtKeyword2: TEdit
          Left = 2
          Top = 46
          Width = 196
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 1
        end
        object edtKeyword3: TEdit
          Left = 2
          Top = 76
          Width = 196
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 2
        end
      end
    end
    object tshConditionQuery: TTabSheet
      Caption = #26465#20214#26597#35810' '
      ImageIndex = 1
      object gbWebTypeList: TGroupBox
        Left = 0
        Top = 145
        Width = 265
        Height = 168
        Align = alTop
        Caption = #26465#20214#36873#25321
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          265
          168)
        object cbIDCheck: TCheckBox
          Left = 8
          Top = 25
          Width = 137
          Height = 17
          Caption = #29992#25143#23450#21046'ID'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object cbTimeCheck: TCheckBox
          Left = 8
          Top = 89
          Width = 137
          Height = 17
          Caption = #26102#38388#26399#38480
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object cbbIDSelect: TComboBox
          Left = 4
          Top = 56
          Width = 257
          Height = 28
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Enabled = False
          ItemHeight = 20
          TabOrder = 2
        end
        object cbbTimeSelect: TComboBox
          Left = 4
          Top = 120
          Width = 257
          Height = 28
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          Enabled = False
          ItemHeight = 20
          TabOrder = 3
          Items.Strings = (
            #19968#20010#26376#20869#65288#19977#21313#22825#65289
            #19977#20010#26376#20869
            #21322#24180#20869
            #19968#24180#20869
            #19968#24180#20197#19978)
        end
      end
      object gbIViewMode: TGroupBox
        Left = 0
        Top = 0
        Width = 265
        Height = 145
        Align = alTop
        Caption = #20851#38190#23383#21305#37197#26041#24335
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DesignSize = (
          265
          145)
        object sbConditionSearch: TSpeedButton
          Left = 173
          Top = 88
          Width = 81
          Height = 21
          Anchors = [akTop, akRight]
          Caption = #24320#22987#25628#32034
        end
        object rbTitleOnly: TRadioButton
          Left = 36
          Top = 29
          Width = 145
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = #21482#19982#26631#39064#21305#37197
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object rbTAndContent: TRadioButton
          Left = 36
          Top = 60
          Width = 145
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          Caption = #20840#25991#21305#37197
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object leKeyword: TLabeledEdit
          Left = 12
          Top = 112
          Width = 241
          Height = 28
          Anchors = [akLeft, akTop, akRight]
          EditLabel.Width = 48
          EditLabel.Height = 20
          EditLabel.Caption = #20851#38190#23383
          EditLabel.Font.Charset = DEFAULT_CHARSET
          EditLabel.Font.Color = clWindowText
          EditLabel.Font.Height = -16
          EditLabel.Font.Name = 'MS Sans Serif'
          EditLabel.Font.Style = []
          EditLabel.ParentFont = False
          TabOrder = 2
        end
      end
    end
  end
end