mainunit.dfm

Delphi7编程80例(完全版)

object MainForm: TMainForm
  Left = 203
  Top = 132
  BorderStyle = bsDialog
  Caption = '图片浏览器'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Image1: TImage
    Left = 240
    Top = 32
    Width = 409
    Height = 361
    Center = True
    Stretch = True
  end
  object Button1: TButton
    Left = 48
    Top = 392
    Width = 113
    Height = 25
    Caption = '设置为壁纸'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object DriveComboBox1: TDriveComboBox
    Left = 16
    Top = 16
    Width = 185
    Height = 20
    DirList = DirectoryListBox1
    TabOrder = 1
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 16
    Top = 48
    Width = 185
    Height = 177
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 2
  end
  object FileListBox1: TFileListBox
    Left = 16
    Top = 240
    Width = 185
    Height = 121
    ItemHeight = 16
    Mask = '*.bmp;*.jpg;*.jpeg'
    ShowGlyphs = True
    TabOrder = 3
    OnClick = FileListBox1Click
  end
end