main.dfm

一个功能增强的Delphi TListView组件TSmartListView + 增加排序功能,带小箭头的那种：） + 增加SaveToExcelFile、SaveToHTMLFile方法

object MainFrm: TMainFrm
  Left = 216
  Top = 103
  Width = 653
  Height = 545
  Caption = 'SmartListView Demo'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  DesignSize = (
    645
    518)
  PixelsPerInch = 96
  TextHeight = 13
  object lvDemo: TSmartListView
    Left = 8
    Top = 8
    Width = 629
    Height = 469
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Caption = 'File name'
        Tag = 1
        Width = 250
      end
      item
        Alignment = taRightJustify
        Caption = 'File size'
        Width = 100
      end
      item
        Caption = 'Created time'
        Width = 130
      end
      item
        Caption = 'Modified time'
        Width = 130
      end>
    HideSelection = False
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    Msg1 = 'File "%s" does not exist!'
    Msg2 = '"%s" is not a ListView file!'
    ColumnSearch = True
    Copyright = 'Copyright(C) 2006 by [e-mail] '
  end
  object btnSave: TButton
    Left = 484
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Save As'
    Enabled = False
    TabOrder = 1
    OnClick = btnSaveClick
  end
  object btnClose: TButton
    Left = 563
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object btnGetDirFiles: TButton
    Left = 10
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'GetDirFiles'
    TabOrder = 3
    OnClick = btnGetDirFilesClick
  end
  object btnLoadFromFile: TButton
    Left = 89
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'LoadFromFile'
    Enabled = False
    TabOrder = 4
    OnClick = btnLoadFromFileClick
  end
  object btnSaveToFile: TButton
    Left = 168
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'SaveToFile'
    Enabled = False
    TabOrder = 5
    OnClick = btnSaveToFileClick
  end
  object btnClear: TButton
    Left = 247
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'Clear'
    Enabled = False
    TabOrder = 6
    OnClick = btnClearClick
  end
  object btnBackground: TButton
    Left = 326
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'Background'
    TabOrder = 7
    OnClick = btnBackgroundClick
  end
  object btnAbout: TButton
    Left = 407
    Top = 485
    Width = 75
    Height = 21
    Anchors = [akLeft, akBottom]
    Caption = 'About'
    TabOrder = 8
    OnClick = btnAboutClick
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.xls'
    Filter = 'Microsoft Excel File(*.xls)|*.xls|HTML File(*.html)|*.html'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 93
    Top = 128
  end
  object dlgOpenPic: TOpenPictureDialog
    Left = 152
    Top = 128
  end
end