imagefm.~dfm

利用delphi编程工具编写的图片浏览工具

object ImageForm: TImageForm
  Left = 216
  Top = 122
  ActiveControl = EdtFile
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22270#29255#27983#35272#22120
  ClientHeight = 315
  ClientWidth = 502
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 316
    Top = 5
    Width = 171
    Height = 121
  end
  object Bevel2: TBevel
    Left = 317
    Top = 132
    Width = 170
    Height = 177
  end
  object Label1: TLabel
    Left = 325
    Top = 11
    Width = 147
    Height = 13
    AutoSize = False
    Caption = #39044#35272
  end
  object Label2: TLabel
    Left = 324
    Top = 290
    Width = 99
    Height = 13
    Caption = #32553#30053#22270#20998#21106#20010#25968#65306' '
  end
  object DLBox: TDirectoryListBox
    Left = 8
    Top = 12
    Width = 148
    Height = 260
    FileList = FLBox
    IntegralHeight = True
    ItemHeight = 16
    TabOrder = 1
  end
  object DCBox: TDriveComboBox
    Left = 9
    Top = 277
    Width = 148
    Height = 19
    DirList = DLBox
    TabOrder = 3
  end
  object EdtFile: TEdit
    Left = 166
    Top = 13
    Width = 139
    Height = 21
    TabOrder = 0
    Text = '*.bmp;*.ico'
    OnKeyPress = EdtFileKeyPress
  end
  object GBUpDown: TGroupBox
    Left = 323
    Top = 158
    Width = 154
    Height = 60
    Caption = #21487#29992#26102
    TabOrder = 5
    object SBtnEnable: TSpeedButton
      Left = 116
      Top = 26
      Width = 25
      Height = 25
      AllowAllUp = True
      GroupIndex = 1
    end
    object BBtnEnable: TBitBtn
      Left = 12
      Top = 18
      Width = 92
      Height = 33
      Caption = #21487#29992
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 324
    Top = 27
    Width = 153
    Height = 68
    BevelInner = bvLowered
    TabOrder = 7
    object Image: TImage
      Left = 2
      Top = 2
      Width = 149
      Height = 64
      Align = alClient
    end
  end
  object FLBox: TFileListBox
    Left = 166
    Top = 41
    Width = 139
    Height = 227
    FileEdit = EdtFile
    ItemHeight = 13
    Mask = '*.bmp;*.ico'
    TabOrder = 2
    OnClick = FLBoxClick
  end
  object BtnView: TBitBtn
    Left = 325
    Top = 98
    Width = 63
    Height = 24
    Caption = #26174#31034#20840#22270
    TabOrder = 6
    OnClick = BtnViewClick
  end
  object FCBox: TFilterComboBox
    Left = 166
    Top = 275
    Width = 140
    Height = 21
    FileList = FLBox
    Filter = 
      #22270#20687#25991#20214' (*.bmp, *.ico)|*.bmp;*.ico|'#20301#22270#25991#20214'(*.bmp)|*.bmp|'#22270#26631#25991#20214' (*.ico)|*' +
      '.ico|JPEG'#25991#20214'(*.jpeg,*.jpg)|*.jpeg;*.jpg|'#25152#26377#25991#20214'(*.*)|*.*'
    TabOrder = 4
  end
  object CBGlyph: TCheckBox
    Left = 327
    Top = 137
    Width = 104
    Height = 17
    Caption = #26174#31034#32553#30053#22270
    TabOrder = 8
    OnClick = CBGlyphClick
  end
  object CBStretch: TCheckBox
    Left = 408
    Top = 102
    Width = 68
    Height = 17
    Caption = #25918#32553#26174#31034
    TabOrder = 10
    OnClick = CBStretchClick
  end
  object EdtUpDown: TEdit
    Left = 439
    Top = 286
    Width = 24
    Height = 21
    TabOrder = 9
    Text = '1'
    OnChange = EdtUpDownChange
  end
  object UpDown: TUpDown
    Left = 463
    Top = 286
    Width = 15
    Height = 21
    Associate = EdtUpDown
    Min = 1
    Max = 4
    Position = 1
    TabOrder = 11
  end
  object DisabledGrp: TGroupBox
    Left = 323
    Top = 220
    Width = 154
    Height = 60
    Caption = #19981#21487#29992#26102
    TabOrder = 12
    object SBtnUnable: TSpeedButton
      Left = 116
      Top = 25
      Width = 25
      Height = 25
      Enabled = False
    end
    object BBtnUnable: TBitBtn
      Left = 12
      Top = 18
      Width = 92
      Height = 33
      Caption = #19981#21487#29992
      Enabled = False
      TabOrder = 0
    end
  end
end