unit2.dfm

一个简单的DELPHI编写的看图程序

object SBox: TSBox
  Left = 451
  Top = 386
  Width = 705
  Height = 469
  Caption = #27983#35272#30028#38754
  Color = clMenuText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 16
    Top = 32
    Width = 193
    Height = 297
  end
  object Bevel2: TBevel
    Left = 464
    Top = 32
    Width = 193
    Height = 297
  end
  object Bevel3: TBevel
    Left = 224
    Top = 56
    Width = 225
    Height = 193
  end
  object Bevel4: TBevel
    Left = 432
    Top = 344
    Width = 225
    Height = 65
  end
  object Bevel5: TBevel
    Left = 256
    Top = 264
    Width = 161
    Height = 65
  end
  object Image1: TImage
    Left = 232
    Top = 64
    Width = 209
    Height = 177
    Cursor = crNoDrop
    Stretch = True
  end
  object Label1: TLabel
    Left = 224
    Top = 32
    Width = 28
    Height = 14
    Caption = #39044#35272
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object FLBox: TFileListBox
    Left = 480
    Top = 80
    Width = 161
    Height = 201
    FileEdit = EdtFile
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    Mask = '*.jpg;*.ico;*.bmp'
    TabOrder = 0
    OnClick = FLBoxClick
  end
  object DCBox: TDriveComboBox
    Left = 32
    Top = 48
    Width = 161
    Height = 19
    DirList = DLBox
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 1
  end
  object FCBox: TFilterComboBox
    Left = 480
    Top = 48
    Width = 161
    Height = 21
    FileList = FLBox
    Filter = 
      '*.jpg,*.ico,*.bmp|*.jpg;*.ico;*.bmp|ico|*.ico|jpg|*.jpg|bmp|*.bm' +
      'p'
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 2
  end
  object DLBox: TDirectoryListBox
    Left = 32
    Top = 80
    Width = 161
    Height = 233
    FileList = FLBox
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 16
    TabOrder = 3
  end
  object Button1: TButton
    Left = 288
    Top = 280
    Width = 97
    Height = 33
    Cursor = crHandPoint
    Caption = #26174#31034#20840#22270
    Font.Charset = GB2312_CHARSET
    Font.Color = clSilver
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 448
    Top = 360
    Width = 89
    Height = 33
    Cursor = crHandPoint
    Caption = #36820#22238
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 560
    Top = 360
    Width = 83
    Height = 33
    Cursor = crHandPoint
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button3Click
  end
  object EdtFile: TEdit
    Left = 480
    Top = 296
    Width = 161
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 7
    Text = '*.jpg;*.ico;*.bmp'
    OnKeyPress = EdtFileKeyPress
  end
end