unit2.dfm

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

object Form2: TForm2
  Left = 231
  Top = 13
  BorderStyle = bsDialog
  Caption = 'Form2'
  ClientHeight = 464
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 425
    Height = 238
    TabOrder = 0
    object Label2: TLabel
      Left = 80
      Top = 208
      Width = 39
      Height = 16
      Caption = '调整前'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 305
      Top = 208
      Width = 39
      Height = 16
      Caption = '调整后'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel1: TPanel
      Left = 12
      Top = 16
      Width = 180
      Height = 180
      BevelOuter = bvLowered
      Caption = 'Panel1'
      TabOrder = 0
      object ImageBeforeChange: TImage
        Left = 40
        Top = 32
        Width = 105
        Height = 105
      end
    end
    object Panel2: TPanel
      Left = 232
      Top = 16
      Width = 180
      Height = 180
      BevelOuter = bvLowered
      Caption = 'Panel1'
      TabOrder = 1
      object ImageAfterChange: TImage
        Left = 40
        Top = 24
        Width = 105
        Height = 105
      end
    end
  end
  object GroupBoxRGBChange: TGroupBox
    Left = 8
    Top = 248
    Width = 425
    Height = 177
    Caption = 'RGB调整：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object LabelRedValue: TLabel
      Left = 100
      Top = 30
      Width = 7
      Height = 16
      Caption = '0'
    end
    object LabelGreenValue: TLabel
      Left = 100
      Top = 65
      Width = 7
      Height = 16
      Caption = '0'
    end
    object LabelBlueValue: TLabel
      Left = 100
      Top = 100
      Width = 7
      Height = 16
      Caption = '0'
    end
    object Label4: TLabel
      Left = 48
      Top = 65
      Width = 26
      Height = 16
      Caption = '绿：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 48
      Top = 99
      Width = 26
      Height = 16
      Caption = '蓝：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 48
      Top = 30
      Width = 26
      Height = 16
      Caption = '红：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object TrackBarRed: TTrackBar
      Left = 128
      Top = 24
      Width = 281
      Height = 33
      Max = 255
      Min = -255
      Orientation = trHorizontal
      Frequency = 10
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBarRGBChange
    end
    object TrackBarGreen: TTrackBar
      Left = 128
      Top = 60
      Width = 281
      Height = 25
      Max = 255
      Min = -255
      Orientation = trHorizontal
      Frequency = 10
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBarRGBChange
    end
    object TrackBarBlue: TTrackBar
      Left = 128
      Top = 96
      Width = 281
      Height = 33
      Max = 255
      Min = -255
      Orientation = trHorizontal
      Frequency = 10
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 2
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBarRGBChange
    end
    object ButtonOKRGBChange: TButton
      Left = 200
      Top = 144
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 3
      OnClick = ButtonOKRGBChangeClick
    end
    object ButtonCancel: TButton
      Left = 320
      Top = 144
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 4
      OnClick = ButtonCancelClick
    end
  end
  object GroupBoxBrightnessChange: TGroupBox
    Left = 8
    Top = 248
    Width = 425
    Height = 177
    Caption = '亮度调整：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
    object Label6: TLabel
      Left = 43
      Top = 72
      Width = 39
      Height = 16
      Caption = '亮度：'
    end
    object LabelBrightnessChange: TLabel
      Left = 89
      Top = 72
      Width = 3
      Height = 16
    end
    object TrackBarBrightnessChange: TTrackBar
      Left = 128
      Top = 64
      Width = 281
      Height = 33
      Max = 255
      Min = -255
      Orientation = trHorizontal
      Frequency = 10
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBarBrightnessChangeChange
    end
    object ButtonOKBrightnessChange: TButton
      Left = 200
      Top = 144
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 1
      OnClick = ButtonOKBrightnessChangeClick
    end
    object Button3: TButton
      Left = 320
      Top = 144
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 2
      OnClick = ButtonCancelClick
    end
  end
  object GroupBoxSaturationChange: TGroupBox
    Left = 8
    Top = 247
    Width = 425
    Height = 177
    Caption = '饱和度调整：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Visible = False
    object Label7: TLabel
      Left = 19
      Top = 72
      Width = 52
      Height = 16
      Caption = '饱和度：'
    end
    object Label8: TLabel
      Left = 89
      Top = 72
      Width = 3
      Height = 16
    end
    object Label9: TLabel
      Left = 80
      Top = 72
      Width = 21
      Height = 16
      Caption = '255'
    end
    object TrackBarSaturationChange: TTrackBar
      Left = 128
      Top = 64
      Width = 281
      Height = 33
      Max = 510
      Orientation = trHorizontal
      Frequency = 10
      Position = 255
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBarSaturationChangeChange
    end
    object ButtonOkSaturation: TButton
      Left = 200
      Top = 144
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 1
      OnClick = ButtonOkSaturationClick
    end
    object Button2: TButton
      Left = 320
      Top = 144
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 2
      OnClick = ButtonCancelClick
    end
  end
end