unit1.dfm

来自「Delphi实效编程百例的随书源代码 这是其中的操作系统部分」· DFM 代码 · 共 110 行

object Form1: TForm1
  Left = 260
  Top = 149
  Width = 445
  Height = 309
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 437
    Height = 105
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object Label1: TLabel
      Left = 0
      Top = 8
      Width = 130
      Height = 13
      Caption = '选择背景图片作为墙纸'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 224
      Top = 8
      Width = 96
      Height = 13
      Caption = '选择屏幕保护程序'
    end
    object FileListBox1: TFileListBox
      Left = 217
      Top = 32
      Width = 145
      Height = 72
      ItemHeight = 13
      Mask = '*.scr'
      TabOrder = 0
      OnClick = FileListBox1Click
      OnDblClick = FileListBox1DblClick
    end
    object FileListBox2: TFileListBox
      Left = 0
      Top = 32
      Width = 145
      Height = 73
      ItemHeight = 13
      Mask = '*.bmp'
      TabOrder = 1
      OnClick = FileListBox2Click
    end
    object Button1: TButton
      Left = 144
      Top = 80
      Width = 49
      Height = 25
      Caption = '确定'
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 360
      Top = 80
      Width = 49
      Height = 25
      Caption = '确定'
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 216
    Top = 105
    Width = 221
    Height = 177
    Align = alRight
    Caption = 'Panel2'
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 0
    Top = 105
    Width = 216
    Height = 177
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object Image1: TImage
      Left = 56
      Top = 40
      Width = 105
      Height = 105
    end
  end
end