addnewfeed_frm.dfm

自己写的一个 RSS 阅读器

object FmAddNewFeed: TFmAddNewFeed
  Left = 229
  Top = 146
  BorderStyle = bsDialog
  Caption = 'FmAddNewFeed'
  ClientHeight = 366
  ClientWidth = 543
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Wizard: TJvWizard
    Left = 0
    Top = 0
    Width = 543
    Height = 366
    ActivePage = Page4
    ButtonBarHeight = 42
    ButtonStart.Caption = 'To &Start Page'
    ButtonStart.NumGlyphs = 1
    ButtonStart.Width = 85
    ButtonLast.Caption = 'To &Last Page'
    ButtonLast.NumGlyphs = 1
    ButtonLast.Width = 85
    ButtonBack.Caption = '< &Back'
    ButtonBack.NumGlyphs = 1
    ButtonBack.Width = 75
    ButtonNext.Caption = '&Next >'
    ButtonNext.NumGlyphs = 1
    ButtonNext.Width = 75
    ButtonFinish.Caption = '&Finish'
    ButtonFinish.NumGlyphs = 1
    ButtonFinish.Width = 75
    ButtonCancel.Caption = 'Cancel'
    ButtonCancel.NumGlyphs = 1
    ButtonCancel.ModalResult = 2
    ButtonCancel.Width = 75
    ButtonHelp.Caption = '&Help'
    ButtonHelp.NumGlyphs = 1
    ButtonHelp.Width = 75
    ShowRouteMap = False
    OnActivePageChanged = WizardActivePageChanged
    DesignSize = (
      543
      366)
    object Page1: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Text = 'Title'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = ANSI_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'Tahoma'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = ANSI_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'Tahoma'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      EnabledButtons = [bkStart, bkLast, bkNext, bkFinish, bkCancel, bkHelp]
      Caption = 'Page1'
      OnNextButtonClick = Page1NextButtonClick
      object RadioButton1: TRadioButton
        Left = 80
        Top = 200
        Width = 289
        Height = 17
        Caption = 'Add channel from an URL'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 80
        Top = 224
        Width = 305
        Height = 17
        Caption = 'Add channels from an OPML newsFeed .'
        TabOrder = 1
      end
    end
    object Page2: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Text = 'Title'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = ANSI_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'Tahoma'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = ANSI_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'Tahoma'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      Caption = 'Page2'
      OnNextButtonClick = Page2NextButtonClick
      OnBackButtonClick = Page2BackButtonClick
      object JvHTLabel1: TJvHTLabel
        Left = 8
        Top = 8
        Width = 144
        Height = 14
        Caption = '<B>Please input channel URL:<B>'
      end
      object EdtFeedUrl: TEdit
        Left = 8
        Top = 128
        Width = 409
        Height = 21
        TabOrder = 0
        Text = 'http://www.loveyuki.com/blogrss2.asp'
      end
    end
    object Page3: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Text = 'Title'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = ANSI_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'Tahoma'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = ANSI_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'Tahoma'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      VisibleButtons = [bkBack, bkFinish, bkCancel]
      Caption = 'Page3'
      OnFinishButtonClick = Page3FinishButtonClick
      object Label1: TLabel
        Left = 16
        Top = 80
        Width = 41
        Height = 13
        AutoSize = False
        Caption = 'Title:'
      end
      object EdtFeedTitle: TEdit
        Left = 72
        Top = 76
        Width = 193
        Height = 21
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 72
        Top = 168
        Width = 161
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 234
        Top = 168
        Width = 33
        Height = 21
        TabOrder = 2
        OnClick = BitBtn1Click
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FF0274AC
          0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274
          ACFF00FFFF00FFFF00FF0274AC138AC456B6E16ACBF84BBFF74ABFF74ABFF74A
          BFF74ABFF64ABFF74ABFF64BC0F72398CC0C81BAFF00FFFF00FF0274AC33AAE0
          2392C489D9FA54C7F854C7F753C7F854C7F754C7F854C7F854C7F853C7F7279D
          CEBAEBEF0274ACFF00FF0274AC57CAF80274AC99E2FB5ED1FA5ED1FA5ED1FA5E
          D1FA5ED1FA5FD1FA5ED1F85ED1F82CA1CEBAEBEF0274ACFF00FF0274AC5ED3FA
          0B81B782D5EF79E0FB6ADCFA69DCFB69DCFB6ADCFB69DCFB69DCFA6ADDFB2FA6
          CFBAEBEF097EB4FF00FF0274AC68DAFB2BA4D14AB1D796EBFB74E5FB74E5FB74
          E5FC74E5FC74E5FB74E5FC74E5FB33A9CFBAEBEFBAEBEF0274AC0274AC70E3FB
          5CD1EF1184B7FEFFFFB8F4FCBAF4FCBAF4FCBAF4FEB8F4FEBAF4FCB8F4FE83C9
          DEE3FEFEC5EFF60274AC0274AC7AEBFE7AEBFC0A7FB50274AC0274AC0274AC02
          74AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC83F2FE
          82F3FE82F3FE83F2FC83F3FE82F3FE83F2FE82F3FC83F2FE82F3FE82F3FE036F
          A7FF00FFFF00FFFF00FF0274ACFEFEFE89FAFF89FAFE89FAFE8AF8FE8AFAFE89
          F8FE8AFAFE8AFAFF89FAFF8AFAFF036FA7FF00FFFF00FFFF00FFFF00FF0274AC
          FEFEFE8FFEFF8FFEFF8FFEFF0274AC0274AC0274AC0274AC0274AC0274ACFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FF0274AC0274AC0274AC0274ACFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
        Layout = blGlyphTop
      end
    end
    object Page4: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Text = 'Title'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = ANSI_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'Tahoma'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = ANSI_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'Tahoma'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      Caption = 'Page4'
      OnNextButtonClick = Page4NextButtonClick
      OnBackButtonClick = Page4BackButtonClick
      object JvFilenameEdit1: TJvFilenameEdit
        Left = 16
        Top = 160
        Width = 401
        Height = 21
        DefaultExt = '.opml'
        Filter = 'Opml files (*.opml)|*.opml|All files (*.*)|*.*'
        TabOrder = 0
        Text = 'http://herald.seu.edu.cn/blog/Opml.aspx'
      end
    end
    object Page5: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Text = 'Title'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = ANSI_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'Tahoma'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = ANSI_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'Tahoma'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      VisibleButtons = [bkBack, bkFinish, bkCancel]
      Caption = 'Page5'
      OnFinishButtonClick = Page5FinishButtonClick
      object JvHTLabel2: TJvHTLabel
        Left = 8
        Top = 8
        Width = 55
        Height = 14
        Caption = 'JvHTLabel2'
      end
      object Label2: TLabel
        Left = 9
        Top = 40
        Width = 48
        Height = 13
        AutoSize = False
        Caption = '&Filter:'
        FocusControl = EdtFilter
      end
      object Label3: TLabel
        Left = 196
        Top = 40
        Width = 41
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&By:'
        FocusControl = FilterBox
      end
      object OpmlListView: TJvListView
        Left = 8
        Top = 64
        Width = 411
        Height = 225
        Checkboxes = True
        Columns = <
          item
            Caption = '#'
            MinWidth = 30
            Width = 30
          end
          item
            Caption = 'Title'
            Width = 150
          end
          item
            Caption = 'Feed URL'
            Width = 150
          end
          item
            Caption = 'Description'
            Width = 100
          end
          item
            Caption = 'HTML URL'
            Width = 150
          end>
        ReadOnly = True
        RowSelect = True
        ShowWorkAreas = True
        SortType = stBoth
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = OpmlListViewAdvancedCustomDrawItem
        ColumnsOrder = '0=30,1=150,2=150,3=100,4=150'
      end
      object Button1: TButton
        Tag = 2
        Left = 200
        Top = 296
        Width = 81
        Height = 24
        Caption = #21453#36873
        TabOrder = 1
        OnClick = OPMLSelBtnClick
      end
      object BtnOPMLSelNull: TButton
        Tag = 1
        Left = 104
        Top = 296
        Width = 89
        Height = 24
        Caption = '&UnSelect All'
        TabOrder = 2
        OnClick = OPMLSelBtnClick
      end
      object BtnOPMLSelAll: TButton
        Left = 8
        Top = 296
        Width = 89
        Height = 24
        Caption = 'Select &All'
        TabOrder = 3
        OnClick = OPMLSelBtnClick
      end
      object EdtFilter: TEdit
        Left = 56
        Top = 36
        Width = 137
        Height = 21
        TabOrder = 4
      end
      object FilterBox: TComboBox
        Left = 240
        Top = 36
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 5
        Text = 'All'
        Items.Strings = (
          'All'
          'Title'
          'Feed URL'
          'Description'
          'HTML URL')
      end
      object Button2: TButton
        Left = 344
        Top = 36
        Width = 75
        Height = 21
        Caption = '&Apply'
        TabOrder = 6
        OnClick = Button2Click
      end
    end
    object HtmLbSta: TJvHTLabel
      Left = 10
      Top = 340
      Width = 270
      Height = 16
      AutoSize = False
    end
    object ProgressBar1: TProgressBar
      Left = 10
      Top = 340
      Width = 270
      Height = 16
      TabOrder = 12
    end
    object ImgPnl: TPanel
      Left = 0
      Top = 0
      Width = 116
      Height = 324
      Align = alLeft
      BevelOuter = bvNone
      BorderWidth = 4
      Caption = 'ImgPnl'
      TabOrder = 13
      object Image1: TImage
        Left = 4
        Top = 4
        Width = 108
        Height = 316
        Align = alClient
        AutoSize = True
      end
    end
  end
  object WinHTTP: TWinHTTP
    Agent = 'acHTTP component (AppControls.com)'
    OnDone = WinHTTPDone
    OnProgress = Progress
    OnHTTPError = HTTPError
    Left = 32
    Top = 213
  end
  object WinHTTPOpml: TWinHTTP
    Agent = 'acHTTP component (AppControls.com)'
    OnDone = WinHTTPOpmlDone
    OnProgress = Progress
    OnHTTPError = HTTPError
    Left = 64
    Top = 216
  end
  object OpenDialog1: TOpenDialog
    Filter = 'OPML files (*.opml)|*.opml'
    Left = 32
    Top = 176
  end
end