unit1.dfm

一个经典的图像浏览实例

object Form1: TForm1
  Left = 108
  Top = 115
  Width = 690
  Height = 594
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  DesignSize = (
    682
    560)
  PixelsPerInch = 96
  TextHeight = 13
  object selectall: TButton
    Left = 0
    Top = 240
    Width = 145
    Height = 25
    Caption = 'Select all'
    TabOrder = 0
    OnClick = selectallClick
  end
  object refresh: TButton
    Left = 128
    Top = 0
    Width = 65
    Height = 25
    Caption = 'Reflash'
    TabOrder = 1
    OnClick = refreshClick
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 0
    Top = 48
    Width = 145
    Height = 193
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 2
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 0
    Top = 264
    Width = 145
    Height = 289
    Anchors = [akLeft, akTop, akBottom]
    ItemHeight = 13
    Mask = '*.bmp'
    TabOrder = 3
    OnDblClick = FileListBox1DblClick
  end
  object DriveComboBox1: TDriveComboBox
    Left = 0
    Top = 24
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 4
  end
  object FilterComboBox1: TFilterComboBox
    Left = 208
    Top = 0
    Width = 145
    Height = 21
    FileList = FileListBox1
    Filter = 'BMP'#25991#20214'|*.bmp'
    TabOrder = 5
    Visible = False
  end
  object rename: TButton
    Left = 64
    Top = 0
    Width = 57
    Height = 25
    Caption = 'Rename'
    TabOrder = 6
    OnClick = renameClick
  end
  object delete: TButton
    Left = 0
    Top = 0
    Width = 57
    Height = 25
    Caption = 'Delete'
    TabOrder = 7
    OnClick = deleteClick
  end
  object ScrollBox1: TScrollBox
    Left = 152
    Top = 24
    Width = 527
    Height = 533
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 8
  end
end