rollingnewsfrm.dfm

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

object frmRollingNews: TfrmRollingNews
  Left = 90
  Top = 380
  Width = 377
  Height = 321
  BorderIcons = []
  BorderStyle = bsSizeToolWin
  Caption = #28378#21160#26032#38395#35774#32622
  Color = clMedGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sbCancel: TSpeedButton
    Left = 210
    Top = 240
    Width = 65
    Height = 24
    Caption = #21462#28040
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333FFFFF333333000033333388888833333333333F888888FFF333
      000033338811111188333333338833FFF388FF33000033381119999111833333
      38F338888F338FF30000339119933331111833338F388333383338F300003391
      13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
      33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
      33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
      000039183811193333918338F8F833F83333838F000039118111933339118338
      F3833F83333833830000339111193333391833338F33F8333FF838F300003391
      11833338111833338F338FFFF883F83300003339111888811183333338FF3888
      83FF83330000333399111111993333333388FFFFFF8833330000333333999999
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    ParentFont = False
    OnClick = sbCancelClick
  end
  object sbOK: TSpeedButton
    Left = 130
    Top = 240
    Width = 65
    Height = 24
    Caption = #30830#23450
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    ParentFont = False
    OnClick = sbOKClick
  end
  object sbClose: TSpeedButton
    Left = 290
    Top = 240
    Width = 65
    Height = 24
    Caption = #20851#38381
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C30E0000C30E00000000000000000000CED3D6CED3D6
      CED3D6CED3D6CED3D60101FE0101FE0101FE0101FE0101FE0101FECED3D6CED3
      D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D60101FE0101FE0101FE0101FE01
      01FE0101FE0101FE0101FE0101FE0101FECED3D6CED3D6CED3D6CED3D6CED3D6
      0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101
      FE0101FECED3D6CED3D6CED3D60101FE0101FE0505FE8686FF1C1CFE0101FE01
      01FE0101FE0101FE0303FE9595FF1919FE0101FE0101FECED3D6CED3D60101FE
      0101FEA4A4FFFFFFFFD1D1FF1616FE0101FE0101FE0909FE9999FFFFFFFFD3D3
      FF0101FE0101FECED3D60101FE0101FE0101FE4E4EFEF5F5FFFFFFFFD2D2FF16
      16FE0404FE9494FFFFFFFFFFFFFF7B7BFE0101FE0101FE0101FE0101FE0101FE
      0101FE0101FE4848FEF5F5FFFFFFFFCCCCFFA4A4FFFFFFFFFFFFFF7070FE0202
      FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE4545FEE7E7FFFF
      FFFFFFFFFFF1F1FF7878FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE
      0101FE0101FE0101FE0404FEC1C1FFFFFFFFFFFFFFE2E2FF1313FE0101FE0101
      FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0B0BFE9595FFFFFFFFFF
      FFFFF9F9FFFFFFFFCFCFFF1515FE0101FE0101FE0101FE0101FE0101FE0101FE
      0101FE0505FEA1A1FFFFFFFFFFFFFF6B6BFE4545FEF5F5FFFFFFFFD2D2FF1919
      FE0101FE0101FE0101FECED3D60101FE0101FEA4A4FFFFFFFFFAFAFF7B7BFE01
      01FE0101FE4747FEF4F4FFFFFFFFD5D5FF0101FE0101FECED3D6CED3D60101FE
      0101FE5656FEF5F5FF8282FF0101FE0101FE0101FE0101FE4A4AFEF4F4FF8484
      FF0101FE0101FECED3D6CED3D6CED3D60101FE0101FE4848FE0A0AFE0101FE01
      01FE0101FE0101FE0101FE5A5AFE1111FE0101FECED3D6CED3D6CED3D6CED3D6
      CED3D60101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101FE0101
      FECED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D60101FE0101FE01
      01FE0101FE0101FE0101FECED3D6CED3D6CED3D6CED3D6CED3D6}
    ParentFont = False
    OnClick = sbCancelClick
  end
  object lblHint: TLabel
    Left = 125
    Top = 205
    Width = 234
    Height = 16
    AutoSize = False
    Caption = #65290' '#27880#65306#26032#38395#22343#26469#33258#26032#28010#32593
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 124
    Top = 150
    Width = 242
    Height = 41
    Caption = #26032#38395#28378#21160#36895#24230
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 10
      Top = 18
      Width = 23
      Height = 16
      AutoSize = False
      Caption = #24555
    end
    object Label4: TLabel
      Left = 210
      Top = 18
      Width = 23
      Height = 16
      AutoSize = False
      Caption = #24930
    end
    object tbRollPace: TTrackBar
      Left = 30
      Top = 16
      Width = 177
      Height = 20
      LineSize = 2
      Min = 1
      PageSize = 1
      Position = 1
      TabOrder = 0
      ThumbLength = 11
    end
  end
  object GroupBox2: TGroupBox
    Left = 124
    Top = 15
    Width = 113
    Height = 49
    Caption = #28378#21160#26032#38395#26465#25968
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 79
      Top = 19
      Width = 26
      Height = 16
      AutoSize = False
      Caption = ' '#26465
    end
    object cbbNewsNum: TComboBox
      Left = 14
      Top = 19
      Width = 59
      Height = 22
      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 = '3'
      Items.Strings = (
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10')
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 0
    Width = 105
    Height = 281
    Caption = #26032#38395#31867#22411
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object clbNewsType: TCheckListBox
      Left = 8
      Top = 24
      Width = 89
      Height = 249
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ItemHeight = 16
      Items.Strings = (
        #32508#21512
        #22269#38469
        #22269#20869
        #36130#32463
        #31185#25216
        #23089#20048
        #31038#20250
        #20307#32946
        #20891#20107
        #24433#38899
        #37117#24066
        #25991#23398
        #25991#21270
        #25991#25945
        #25151#20135)
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 125
    Top = 82
    Width = 113
    Height = 49
    Caption = #28378#21160#26032#38395#21047#26032#36895#24230
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object Label5: TLabel
      Left = 79
      Top = 19
      Width = 26
      Height = 16
      AutoSize = False
      Caption = #20998
    end
    object cbbNewsRefresh: TComboBox
      Left = 14
      Top = 19
      Width = 59
      Height = 22
      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 = '2'
      Items.Strings = (
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10')
    end
  end
  object tmNewsSearch: TTimer
    Interval = 300000
    OnTimer = tmNewsSearchTimer
    Left = 304
    Top = 136
  end
  object IdhttpRollNews: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 296
    Top = 80
  end
  object tmRollNews: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmRollNewsTimer
    Left = 152
    Top = 168
  end
end