unitformbrowse.dfm

图象处理的一些相关内容 不是很难的,实现简单,希望对大家有帮助

object FormBrowse: TFormBrowse
  Left = 64
  Top = 108
  Width = 808
  Height = 580
  Caption = 'ImageSee 1.0 '#27983#35272#27169#24335
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 273
    Top = 29
    Width = 3
    Height = 486
    Cursor = crHSplit
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 515
    Width = 800
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Width = 170
      end
      item
        Width = 120
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 29
    Width = 273
    Height = 486
    Align = alLeft
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 0
      Top = 273
      Width = 269
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object ShellTreeView1: TShellTreeView
      Left = 0
      Top = 0
      Width = 269
      Height = 273
      ObjectTypes = [otFolders]
      Root = 'rfDesktop'
      UseShellImages = True
      Align = alTop
      AutoRefresh = False
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Indent = 19
      ParentColor = False
      ParentFont = False
      RightClickSelect = True
      ShowRoot = False
      TabOrder = 0
      OnKeyDown = ShellTreeView1KeyDown
      OnChange = ShellTreeView1Change
    end
    object Panel1: TPanel
      Left = 0
      Top = 276
      Width = 269
      Height = 206
      Align = alClient
      BorderStyle = bsSingle
      TabOrder = 1
      object Image1: TImage
        Left = 72
        Top = 64
        Width = 105
        Height = 105
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 29
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList3
    TabOrder = 2
    object ToolButtonFoldeTree: TToolButton
      Left = 0
      Top = 0
      Caption = 'ToolButtonFoldeTree'
      Down = True
      ImageIndex = 0
      Style = tbsCheck
      OnClick = ToolButtonFoldeTreeClick
    end
    object ToolButtonFileArea: TToolButton
      Left = 23
      Top = 0
      Caption = 'ToolButtonFileArea'
      Down = True
      ImageIndex = 1
      Style = tbsCheck
      OnClick = ToolButtonFileAreaClick
    end
    object ToolButtonPreArea: TToolButton
      Left = 46
      Top = 0
      Caption = 'ToolButtonPreArea'
      Down = True
      ImageIndex = 2
      Style = tbsCheck
      OnClick = ToolButtonPreAreaClick
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Caption = 'ToolButton4'
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object Edit1: TEdit
      Left = 92
      Top = 0
      Width = 701
      Height = 22
      TabOrder = 0
      Text = 'Edit1'
      OnKeyDown = Edit1KeyDown
    end
  end
  object Panel2: TPanel
    Left = 276
    Top = 29
    Width = 524
    Height = 486
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 3
    object Splitter3: TSplitter
      Left = 0
      Top = 341
      Width = 524
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object ListView1: TListView
      Left = 0
      Top = 0
      Width = 524
      Height = 341
      Align = alClient
      Color = clBtnFace
      Columns = <>
      LargeImages = ImageList1
      TabOrder = 0
      OnDblClick = ListView1DblClick
      OnKeyDown = ListView1KeyDown
      OnResize = ListView1Resize
      OnSelectItem = ListView1SelectItem
    end
    object ListView2: TListView
      Left = 0
      Top = 344
      Width = 524
      Height = 142
      Align = alBottom
      Columns = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      LargeImages = ImageList2
      ParentFont = False
      TabOrder = 1
      OnDblClick = ListView2DblClick
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList3
    Left = 336
    Top = 168
    object File1: TMenuItem
      Caption = #25991#20214
      OnClick = File1Click
      object MenuReturnViewMode: TMenuItem
        Caption = #22238#21040#35266#23519#27169#24335
        OnClick = MenuReturnViewModeClick
      end
      object Exit1: TMenuItem
        Caption = #36864#20986
        OnClick = Exit1Click
      end