exportopml_frm.dfm

自己写的一个 RSS 阅读器

object fmExportOPML: TfmExportOPML
  Left = 265
  Top = 232
  ActiveControl = JvFilenameEdit1
  BorderStyle = bsDialog
  Caption = 'fmExportOPML'
  ClientHeight = 366
  ClientWidth = 526
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object JvWizard1: TJvWizard
    Left = 0
    Top = 0
    Width = 526
    Height = 366
    ActivePage = JvWizardInteriorPage3
    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
    DesignSize = (
      526
      366)
    object JvWizardInteriorPage1: TJvWizardInteriorPage
      Header.Visible = False
      Header.Title.Color = clNone
      Header.Title.Visible = False
      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.Visible = False
      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 = [bkNext, bkCancel]
      Caption = 'JvWizardInteriorPage1'
      OnNextButtonClick = JvWizardInteriorPage1NextButtonClick
      object JvHTLabel1: TJvHTLabel
        Left = 8
        Top = 32
        Width = 393
        Height = 169
        AutoSize = False
        Caption = 'JvHTLabel1'
      end
    end
    object JvWizardInteriorPage2: 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 = 'JvWizardInteriorPage2'
      OnNextButtonClick = JvWizardInteriorPage2NextButtonClick
      object JvHTLabel2: TJvHTLabel
        Left = 8
        Top = 8
        Width = 393
        Height = 41
        AutoSize = False
        Caption = 
          '<b>Please</b> select channels you want to export , and then cilc' +
          'k next button.'
      end
      object OpmlListView: TJvListView
        Left = 8
        Top = 56
        Width = 393
        Height = 265
        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
    end
    object JvWizardInteriorPage3: 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 = 'JvWizardInteriorPage3'
      OnFinishButtonClick = JvWizardInteriorPage3FinishButtonClick
      object JvHTLabel3: TJvHTLabel
        Left = 8
        Top = 24
        Width = 393
        Height = 129
        Caption = 'JvHTLabel3'
      end
      object JvFilenameEdit1: TJvFilenameEdit
        Left = 16
        Top = 160
        Width = 377
        Height = 21
        DialogKind = dkSave
        DefaultExt = '.opml'
        AutoCompleteOptions = [acoAutoSuggest, acoFilterPrefixes]
        Filter = 'Opml files (*.opml)|*.opml|All files (*.*)|*.*'
        DialogOptions = [ofOverwritePrompt, ofHideReadOnly]
        TabOrder = 0
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 116
      Height = 324
      Align = alLeft
      BevelOuter = bvNone
      BorderWidth = 4
      Caption = 'Panel1'
      TabOrder = 7
      object Image1: TImage
        Left = 4
        Top = 4
        Width = 108
        Height = 316
        Align = alClient
      end
    end
  end
end