Chip Hitware 10/Chip_Hitware_Vol_10.iso/chiphit/multmedi/95visua/visua.exe/0/RCDATA/TEFFECTMANAGER/TEFFECTMANAGER.txt

Text File | 1997-12-09 | 63KB | 2,570 lines

object EffectManager: TEffectManager
  Left = 213
  Top = 182
  Width = 459
  Height = 273
  BorderIcons = []
  BorderStyle = bsSizeToolWin
  Caption = 'Visua Effects Manager'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CBG: TGauge
    Left = 0
    Top = 218
    Width = 451
    Height = 7
    Align = alBottom
    ShowText = False
    ForeColor = clRed
    Progress = 0
  end
  object ButtonPanel: TPanel
    Left = 344
    Top = 0
    Width = 107
    Height = 218
    Align = alRight
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clTeal
    TabOrder = 1
    object OKBtn: TBitBtn
      Left = 11
      Top = 12
      Width = 78
      Height = 27
      TabOrder = 0
      OnClick = OKBtnClick
      Kind = bkOK
      Margin = 2
      Style = bsNew
      Spacing = -1
      IsControl = True
    end
    object CancelBtn: TBitBtn
      Left = 11
      Top = 43
      Width = 78
      Height = 27
      TabOrder = 1
      OnClick = CancelBtnClick
      Kind = bkCancel
      Margin = 2
      Style = bsNew
      Spacing = -1
      IsControl = True
    end
    object DitherC: TCheckBox
      Left = 3
      Top = 195
      Width = 91
      Height = 17
      Caption = 'Dither Image'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Visible = False
      OnClick = DitherCClick
    end
    object Undo: TBitBtn
      Left = 11
      Top = 104
      Width = 78
      Height = 27
      Caption = 'Undo'
      TabOrder = 3
      OnClick = UndoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      Margin = 5
      NumGlyphs = 2
      Spacing = 5
    end
    object Button1: TBitBtn
      Left = 11
      Top = 73
      Width = 78
      Height = 27
      Caption = 'Reload'
      TabOrder = 4
      OnClick = Button1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      Margin = 5
      NumGlyphs = 2
    end
  end
  object TabSet: TTabSet
    Left = 0
    Top = 225
    Width = 451
    Height = 21
    Align = alBottom
    BackgroundColor = clInfoBk
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    SelectedColor = clAqua
    OnClick = TabSetClick
  end
  object Notebook: TNotebook
    Left = 0
    Top = 0
    Width = 344
    Height = 218
    Align = alClient
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    PageIndex = 4
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    OnPageChanged = NotebookPageChanged
    IsControl = True
    object TPage
      Left = 0
      Top = 0
      Caption = 'AutoContrast'
      object GroupBox28: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Automatic Contrast'
        TabOrder = 0
        IsControl = True
        object AutoContrast: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Enabled = False
          TabOrder = 0
          OnClick = AutoContrastClick
          Style = bsNew
        end
        object AUTOOK: TCheckBox
          Left = 209
          Top = 160
          Width = 96
          Height = 17
          Caption = 'Contrast on ok'
          TabOrder = 1
          OnClick = AUTOOKClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Bleed'
      object GroupBox19: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Bleed Image'
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        IsControl = True
        object Label27: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Bleed: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BleedClick
          Style = bsNew
        end
        object BleedBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 255
          Min = -255
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = BleedBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Blur'
      object GroupBox9: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Blur Image'
        TabOrder = 0
        IsControl = True
        object Label2: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Blur: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BlurClick
          Style = bsNew
        end
        object BlurBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = BlurBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Bright/Dark'
      IsControl = True
      object GroupBox2: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Bright / Dark'
        TabOrder = 0
        IsControl = True
        object Label7: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Bright: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BrightClick
          Style = bsNew
        end
        object BDIEdit: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 255
          Min = -255
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = BDIEditChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Color'
      object Label5: TLabel
        Left = 202
        Top = 192
        Width = 80
        Height = 13
        Caption = 'Number of colors'
      end
      object GroupBox7: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Color Reduction'
        TabOrder = 0
        IsControl = True
        object Reduce: TBitBtn
          Left = 206
          Top = 119
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = ReduceClick
          Style = bsNew
        end
        object R1: TRadioButton
          Left = 208
          Top = 60
          Width = 91
          Height = 17
          Hint = 'Dither Method'
          Caption = 'Bayer'
          Checked = True
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          TabStop = True
        end
        object R2: TRadioButton
          Left = 208
          Top = 88
          Width = 91
          Height = 17
          Hint = 'Dither Method'
          Caption = 'Burkes'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
        object R3: TRadioButton
          Left = 208
          Top = 74
          Width = 91
          Height = 17
          Hint = 'Dither Method'
          Caption = 'Floyed'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object R4: TRadioButton
          Left = 208
          Top = 102
          Width = 109
          Height = 17
          Hint = 'Dither Method'
          Caption = 'GrayScale'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = R4Click
        end
        object Numcolors: TScrollBar
          Left = 181
          Top = 156
          Width = 135
          Height = 17
          Hint = 'Number of colors'
          Max = 255
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnChange = NumcolorsChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Curl Page'
      object GroupBox21: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Curl Page Effect'
        TabOrder = 0
        IsControl = True
        object Curl: TBitBtn
          Left = 161
          Top = 135
          Width = 53
          Height = 43
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = CurlClick
          Style = bsNew
        end
        object GroupBox22: TGroupBox
          Left = 260
          Top = 130
          Width = 62
          Height = 48
          Caption = 'Location '
          TabOrder = 1
          object C_RT: TRadioButton
            Left = 36
            Top = 13
            Width = 20
            Height = 17
            Hint = 'Right Top'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
          end
          object C_LT: TRadioButton
            Left = 8
            Top = 13
            Width = 17
            Height = 17
            Hint = 'Left Top'
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = True
          end
          object C_LB: TRadioButton
            Left = 8
            Top = 29
            Width = 18
            Height = 17
            Hint = 'Left Bottom'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
          end
          object C_RB: TRadioButton
            Left = 36
            Top = 29
            Width = 17
            Height = 17
            Hint = 'Right Bottom'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
          end
        end
        object GroupBox23: TGroupBox
          Left = 214
          Top = 130
          Width = 46
          Height = 48
          Caption = 'Orient.'
          TabOrder = 2
          object C_OH: TRadioButton
            Left = 15
            Top = 13
            Width = 17
            Height = 17
            Hint = 'Horizonal Curl'
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            TabStop = True
          end
          object C_OV: TRadioButton
            Left = 15
            Top = 29
            Width = 18
            Height = 17
            Hint = 'Vertical Curl'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
        end
        object CurlBC: TBitBtn
          Left = 242
          Top = 100
          Width = 79
          Height = 31
          Caption = 'F-Color'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = CurlBCClick
          Style = bsNew
        end
        object CurlFC: TBitBtn
          Left = 161
          Top = 100
          Width = 79
          Height = 31
          Caption = 'B-Color'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = CurlFCClick
          Style = bsNew
        end
        object GroupBox24: TGroupBox
          Left = 161
          Top = 66
          Width = 77
          Height = 31
          Caption = 'Shading'
          TabOrder = 5
          object B_CUBC: TRadioButton
            Left = 51
            Top = 12
            Width = 17
            Height = 17
            Hint = 'Use Backgroun color'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
          end
          object B_CUFC: TRadioButton
            Left = 9
            Top = 12
            Width = 18
            Height = 17
            Hint = 'Use foreground color'
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = True
          end
        end
        object FCC: TGroupBox
          Left = 243
          Top = 66
          Width = 77
          Height = 31
          Caption = 'Background'
          TabOrder = 6
          object B_CFC: TRadioButton
            Left = 49
            Top = 12
            Width = 17
            Height = 17
            Hint = 'Use Backgroun color'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
          end
          object B_CBC: TRadioButton
            Left = 12
            Top = 12
            Width = 18
            Height = 17
            Hint = 'Use foreground color'
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = True
          end
        end
        object C_Trans: TCheckBox
          Left = 161
          Top = 48
          Width = 80
          Height = 17
          Hint = 'Keep Image'
          Caption = 'Keep Image'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object CShade: TCheckBox
          Left = 239
          Top = 48
          Width = 49
          Height = 17
          Hint = 'Shade Under Curl'
          Caption = 'Shade'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 8
        end
        object Value: TSpinEdit
          Left = 288
          Top = 46
          Width = 31
          Height = 22
          Hint = 'Shading transparancy'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 5
          MinValue = 1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          Value = 4
        end
      end
      object CONOK: TCheckBox
        Left = 167
        Top = 192
        Width = 89
        Height = 15
        Caption = 'Curl On OK'
        TabOrder = 1
        OnClick = CONOKClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Edge Detection'
      object GroupBox32: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Edge Detection'
        TabOrder = 0
        IsControl = True
        object Label32: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 1'
        end
        object Edgebtn: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = EdgebtnClick
          Style = bsNew
        end
        object EdgeBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Min = 1
          ParentShowHint = False
          Position = 1
          ShowHint = True
          TabOrder = 1
          OnChange = EdgeBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Engrave'
      object GroupBox10: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Engrave Image'
        TabOrder = 0
        IsControl = True
        object Label9: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Engrave: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = EngraveClick
          Style = bsNew
        end
        object EngBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 10
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = EngBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Enhance'
      object GroupBox15: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Enhance Image'
        TabOrder = 0
        IsControl = True
        object Label18: TLabel
          Left = 189
          Top = 47
          Width = 59
          Height = 13
          Caption = 'Gamma Red'
        end
        object Label20: TLabel
          Left = 251
          Top = 47
          Width = 68
          Height = 13
          Caption = 'Gamma Green'
        end
        object Label21: TLabel
          Left = 189
          Top = 82
          Width = 60
          Height = 13
          Caption = 'Gamma Blue'
        end
        object Label22: TLabel
          Left = 256
          Top = 83
          Width = 27
          Height = 13
          Caption = 'Brigth'
        end
        object Label23: TLabel
          Left = 193
          Top = 127
          Width = 39
          Height = 13
          Hint = 'gauss or uniform'
          Caption = 'Contrast'
        end
        object Enhance: TBitBtn
          Left = 193
          Top = 148
          Width = 89
          Height = 29
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = EnhanceClick
          Style = bsNew
        end
        object EnhRed: TSpinEdit
          Left = 192
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Value = 10
        end
        object EnhGreen: TSpinEdit
          Left = 256
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          TabOrder = 2
          Value = 10
        end
        object EnhBlue: TSpinEdit
          Left = 192
          Top = 96
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Value = 10
        end
        object EnhanceOk: TCheckBox
          Left = 288
          Top = 156
          Width = 26
          Height = 17
          Hint = 'Enhance on Ok'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = EnhanceOkClick
        end
        object EnhBright: TSpinEdit
          Left = 256
          Top = 96
          Width = 57
          Height = 22
          Hint = 'Color or Gray '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = -255
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          Value = 0
        end
        object EnhContrast: TSpinEdit
          Left = 256
          Top = 122
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = -255
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          Value = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Gray Area'
      object GroupBox17: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Gray Area'
        TabOrder = 0
        IsControl = True
        object Gray: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = GrayClick
          Style = bsNew
        end
        object GrayOk: TCheckBox
          Left = 211
          Top = 157
          Width = 82
          Height = 17
          Hint = 'Motion on Ok'
          Caption = 'Gray on OK'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = GrayOkClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Gamma'
      IsControl = True
      object GroupBox3: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Gamma Correction'
        TabOrder = 0
        IsControl = True
        object Label8: TLabel
          Left = 219
          Top = 72
          Width = 51
          Height = 13
          Caption = 'Value = 10'
        end
        object Gamma: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = GammaClick
          Style = bsNew
        end
        object GammaEdit: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 50
          Min = 10
          ParentShowHint = False
          Position = 10
          ShowHint = True
          TabOrder = 1
          OnChange = GammaEditChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Invert'
      object GroupBox6: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Invert Image'
        TabOrder = 0
        IsControl = True
        object InvertI: TCheckBox
          Left = 200
          Top = 128
          Width = 97
          Height = 17
          Caption = 'Invert Image'
          TabOrder = 0
          OnClick = InvertClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Jiggle'
      object GroupBox29: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Jiggle Image'
        TabOrder = 0
        IsControl = True
        object Label35: TLabel
          Left = 190
          Top = 46
          Width = 27
          Height = 13
          Caption = 'Value'
        end
        object Label36: TLabel
          Left = 254
          Top = 46
          Width = 21
          Height = 13
          Caption = 'Amp'
        end
        object Label39: TLabel
          Left = 229
          Top = 83
          Width = 31
          Height = 13
          Caption = 'Shape'
        end
        object JValue: TSpinEdit
          Left = 192
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 100
          MinValue = 1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          Value = 1
        end
        object JAmp: TSpinEdit
          Left = 256
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 360
          MinValue = 1
          ParentFont = False
          TabOrder = 1
          Value = 10
        end
        object Jiggle: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = JiggleClick
          Style = bsNew
        end
        object JShape: TSpinEdit
          Left = 223
          Top = 95
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1
          MinValue = 0
          ParentFont = False
          TabOrder = 3
          Value = 1
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Mirror'
      IsControl = True
      object GroupBox5: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Mirror Image'
        TabOrder = 0
        IsControl = True
        object Mirror: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = MirrorClick
          Style = bsNew
        end
        object HBox: TCheckBox
          Left = 210
          Top = 95
          Width = 97
          Height = 17
          Caption = 'Horizontal'
          TabOrder = 1
        end
        object VBox: TCheckBox
          Left = 210
          Top = 73
          Width = 97
          Height = 17
          Caption = 'Vertical'
          TabOrder = 2
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Mosaic'
      object GroupBox26: TGroupBox
        Left = 7
        Top = 10
        Width = 326
        Height = 181
        Caption = 'Mosaic Effect'
        TabOrder = 0
        IsControl = True
        object Label31: TLabel
          Left = 242
          Top = 62
          Width = 20
          Height = 13
          Caption = 'Size'
        end
        object labell: TLabel
          Left = 281
          Top = 62
          Width = 31
          Height = 13
          Caption = 'Height'
        end
        object labels: TLabel
          Left = 241
          Top = 97
          Width = 31
          Height = 13
          Caption = 'Space'
        end
        object Labels45: TLabel
          Left = 282
          Top = 97
          Width = 23
          Height = 13
          Caption = 'Light'
        end
        object Labels53: TLabel
          Left = 220
          Top = 142
          Width = 29
          Height = 13
          Caption = 'Rand.'
          ParentShowHint = False
          ShowHint = True
        end
        object Mosaic: TBitBtn
          Left = 165
          Top = 135
          Width = 54
          Height = 43
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = MosaicClick
          Style = bsNew
        end
        object MosFColor: TBitBtn
          Left = 252
          Top = 156
          Width = 69
          Height = 23
          Caption = 'F-Color'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = MosFColorClick
          Style = bsNew
        end
        object MosBColor: TBitBtn
          Left = 252
          Top = 133
          Width = 69
          Height = 22
          Caption = 'B-Color'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = MosBColorClick
          Style = bsNew
        end
        object GroupBox30: TGroupBox
          Left = 164
          Top = 48
          Width = 77
          Height = 31
          Caption = 'Polygons'
          TabOrder = 3
          object btnType2: TRadioButton
            Left = 49
            Top = 12
            Width = 17
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            TabStop = True
            OnClick = btnType2Click
          end
          object btnType: TRadioButton
            Left = 12
            Top = 12
            Width = 18
            Height = 17
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = btnTypeClick
          end
        end
        object MosAntiA: TCheckBox
          Left = 244
          Top = 47
          Width = 77
          Height = 17
          Hint = 'Anti-Aliasing'
          Caption = 'Anti-Aliasing'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 4
        end
        object MosSize: TSpinEdit
          Left = 243
          Top = 75
          Width = 43
          Height = 22
          Hint = 'Size of the mosiac'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          MaxValue = 20000
          MinValue = 1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          Value = 150
        end
        object MosHeight: TSpinEdit
          Left = 285
          Top = 75
          Width = 39
          Height = 22
          Hint = 'Height of the mosiac'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 20000
          MinValue = 1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          Value = 40
        end
        object MosLight: TSpinEdit
          Left = 285
          Top = 110
          Width = 40
          Height = 22
          Hint = 'Light degree'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 360
          MinValue = -360
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          Value = 30
        end
        object MosSpace: TSpinEdit
          Left = 244
          Top = 110
          Width = 42
          Height = 22
          Hint = 'Space between mosaics'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1000
          MinValue = 1
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          Value = 10
        end
        object MosRand: TSpinEdit
          Left = 219
          Top = 156
          Width = 32
          Height = 22
          Hint = 'Random'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 5
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          Value = 1
        end
        object GroupBox27: TGroupBox
          Left = 164
          Top = 96
          Width = 77
          Height = 31
          Caption = 'Smooth'
          TabOrder = 10
          object MosSur2: TRadioButton
            Left = 49
            Top = 12
            Width = 17
            Height = 17
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = MosSur2Click
          end
          object MosSur1: TRadioButton
            Left = 12
            Top = 12
            Width = 18
            Height = 17
            Checked = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = True
            OnClick = MosSur1Click
          end
        end
      end
      object MosOk: TCheckBox
        Left = 171
        Top = 192
        Width = 89
        Height = 15
        Caption = 'Mosaic On OK'
        TabOrder = 1
        OnClick = MosOkClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Motion'
      object GroupBox16: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Motion Image'
        TabOrder = 0
        IsControl = True
        object Label24: TLabel
          Left = 190
          Top = 47
          Width = 27
          Height = 13
          Caption = 'Value'
        end
        object Label25: TLabel
          Left = 254
          Top = 48
          Width = 27
          Height = 13
          Caption = 'Angle'
        end
        object Motion: TBitBtn
          Left = 193
          Top = 148
          Width = 89
          Height = 29
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = MotionClick
          Style = bsNew
        end
        object MotEdit: TSpinEdit
          Left = 192
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 5000
          MinValue = 5
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Value = 10
        end
        object MotAngleEdit: TSpinEdit
          Left = 256
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 360
          MinValue = 0
          ParentFont = False
          TabOrder = 2
          Value = 10
          Visible = False
        end
        object MotionZoom: TRadioButton
          Left = 192
          Top = 88
          Width = 113
          Height = 17
          Caption = 'Motion Zoom'
          Checked = True
          TabOrder = 3
          TabStop = True
          OnClick = Mtr
        end
        object MotionRotate: TRadioButton
          Left = 192
          Top = 107
          Width = 113
          Height = 17
          Caption = 'Motion Rotate'
          TabOrder = 4
          OnClick = Mtr
        end
        object MotionLine: TRadioButton
          Left = 192
          Top = 128
          Width = 113
          Height = 17
          Caption = 'Motion Line'
          TabOrder = 5
          OnClick = Mtr
        end
        object MotionOk: TCheckBox
          Left = 288
          Top = 156
          Width = 26
          Height = 17
          Hint = 'Motion on Ok'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = MotionOkClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Noisy'
      object GroupBox13: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Noisy Image'
        TabOrder = 0
        IsControl = True
        object Label13: TLabel
          Left = 192
          Top = 47
          Width = 20
          Height = 13
          Caption = 'Red'
        end
        object Label14: TLabel
          Left = 252
          Top = 47
          Width = 29
          Height = 13
          Caption = 'Green'
        end
        object Label33: TLabel
          Left = 192
          Top = 82
          Width = 21
          Height = 13
          Caption = 'Blue'
        end
        object Label15: TLabel
          Left = 256
          Top = 82
          Width = 22
          Height = 13
          Caption = 'Gray'
        end
        object Label16: TLabel
          Left = 193
          Top = 127
          Width = 36
          Height = 13
          Hint = 'gauss or uniform'
          Caption = 'Method'
        end
        object Noisy: TBitBtn
          Left = 193
          Top = 148
          Width = 89
          Height = 29
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = NoisyClick
          Style = bsNew
        end
        object sRed: TSpinEdit
          Left = 192
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Value = 20
        end
        object sGreen: TSpinEdit
          Left = 256
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          TabOrder = 2
          Value = 20
        end
        object sBlue: TSpinEdit
          Left = 192
          Top = 96
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 255
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Value = 20
        end
        object NoisyOk: TCheckBox
          Left = 288
          Top = 155
          Width = 26
          Height = 17
          Hint = 'Noisy on Ok'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = NoisyOkClick
        end
        object sGray: TSpinEdit
          Left = 256
          Top = 96
          Width = 57
          Height = 22
          Hint = 'Color or Gray '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          Value = 0
        end
        object NoisyValue: TSpinEdit
          Left = 257
          Top = 122
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          Value = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Oil Paint'
      object GroupBox8: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Oil Paint Image'
        TabOrder = 0
        IsControl = True
        object Label1: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object OilPaint: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = OilPaintClick
          Style = bsNew
        end
        object OPbar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = OPbarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Pinch Hole'
      object GroupBox14: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Pinch Hole in Image'
        TabOrder = 0
        IsControl = True
        object Label17: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Label19: TLabel
          Left = 172
          Top = 165
          Width = 3
          Height = 13
        end
        object BitBtn1: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BitBtn1Click
          Style = bsNew
        end
        object PinchBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 3
          Min = -20
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = PinchBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Pixel Fix'
      object GroupBox25: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Fill in missing pixels'
        TabOrder = 0
        IsControl = True
        object Label30: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object PxelFix: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = PxelFixClick
          Style = bsNew
        end
        object PFix: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Number of neighbour pixels to examine'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = PFixChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Polar'
      object GroupBox20: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Polar Image'
        TabOrder = 0
        IsControl = True
        object Label28: TLabel
          Left = 189
          Top = 60
          Width = 21
          Height = 13
          Caption = 'Vale'
        end
        object Label29: TLabel
          Left = 259
          Top = 60
          Width = 27
          Height = 13
          Caption = 'Angle'
        end
        object PolarBt: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = PolarBtClick
          Style = bsNew
        end
        object PolBack: TCheckBox
          Left = 247
          Top = 100
          Width = 71
          Height = 17
          Caption = 'Backwards'
          TabOrder = 1
        end
        object PolInv: TCheckBox
          Left = 189
          Top = 100
          Width = 57
          Height = 17
          Caption = 'Inverse'
          TabOrder = 2
        end
        object PolValue: TSpinEdit
          Left = 189
          Top = 75
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 0
          MinValue = 0
          ParentFont = False
          TabOrder = 3
          Value = 100
        end
        object PolAngle: TSpinEdit
          Left = 259
          Top = 75
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 0
          MinValue = 0
          ParentFont = False
          TabOrder = 4
          Value = 0
        end
        object PolOk: TCheckBox
          Left = 241
          Top = 158
          Width = 16
          Height = 17
          Hint = 'Polar on Ok'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnClick = PolOkClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Rotate'
      object Label6: TLabel
        Left = 230
        Top = 192
        Width = 45
        Height = 13
        Caption = 'Angle = 0'
      end
      object GroupBox4: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Rotate Image'
        TabOrder = 0
        IsControl = True
        object Rotate: TBitBtn
          Left = 206
          Top = 119
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = RotateClick
          Style = bsNew
        end
        object BackColor: TBitBtn
          Left = 207
          Top = 76
          Width = 89
          Height = 33
          Caption = 'Back Color'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BackColorClick
          Style = bsNew
        end
      end
      object RotEdit: TScrollBar
        Left = 190
        Top = 167
        Width = 135
        Height = 17
        Hint = 'Angle'
        Max = 360
        Min = -360
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnChange = RotEditChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Sharp'
      object GroupBox18: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'SharpImage'
        TabOrder = 0
        IsControl = True
        object Label26: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Sharp: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = SharpClick
          Style = bsNew
        end
        object SharpBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 9
          Min = -9
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = SharpBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Spray'
      object GroupBox31: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Spray Image'
        TabOrder = 0
        IsControl = True
        object Label37: TLabel
          Left = 190
          Top = 47
          Width = 27
          Height = 13
          Caption = 'Value'
        end
        object Label38: TLabel
          Left = 254
          Top = 48
          Width = 40
          Height = 13
          Caption = 'Random'
        end
        object SprayVal: TSpinEdit
          Left = 192
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1000
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          Value = 0
        end
        object SprayRand: TSpinEdit
          Left = 256
          Top = 60
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 360
          MinValue = 1
          ParentFont = False
          TabOrder = 1
          Value = 1
        end
        object Spray: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = SprayClick
          Style = bsNew
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Transitions'
      object GroupBox1: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Transition Effects'
        TabOrder = 0
        IsControl = True
        object Label3: TLabel
          Left = 178
          Top = 142
          Width = 27
          Height = 13
          Caption = 'Delay'
        end
        object Label4: TLabel
          Left = 269
          Top = 142
          Width = 49
          Height = 13
          Caption = 'Thickness'
        end
        object FXN: TRadioButton
          Left = 210
          Top = 50
          Width = 91
          Height = 17
          Caption = 'None'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = FXTest
        end
        object FXH: TRadioButton
          Left = 210
          Top = 65
          Width = 91
          Height = 17
          Caption = 'Horizontal'
          TabOrder = 1
          OnClick = FXTest
        end
        object FXV: TRadioButton
          Left = 210
          Top = 79
          Width = 91
          Height = 17
          Caption = 'Vertical'
          TabOrder = 2
          OnClick = FXTest
        end
        object FXD: TRadioButton
          Left = 210
          Top = 95
          Width = 91
          Height = 17
          Caption = 'Diagonal'
          TabOrder = 3
          OnClick = FXTest
        end
        object FXS: TRadioButton
          Left = 210
          Top = 111
          Width = 91
          Height = 17
          Caption = 'Squares'
          TabOrder = 4
          OnClick = FXTest
        end
        object FXR: TRadioButton
          Left = 210
          Top = 127
          Width = 91
          Height = 17
          Caption = 'Rectangle'
          TabOrder = 5
          OnClick = FXTest
        end
        object FXDelay: TSpinEdit
          Left = 177
          Top = 156
          Width = 41
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 100
          MinValue = 1
          ParentFont = False
          TabOrder = 6
          Value = 15
        end
        object FXRowCol: TSpinEdit
          Left = 272
          Top = 156
          Width = 41
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Increment = 2
          MaxValue = 20
          MinValue = 1
          ParentFont = False
          TabOrder = 7
          Value = 4
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Whirl Pool'
      object GroupBox11: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Whirl Pool Image'
        TabOrder = 0
        IsControl = True
        object Label10: TLabel
          Left = 219
          Top = 72
          Width = 45
          Height = 13
          Caption = 'Value = 0'
        end
        object Whir: TBitBtn
          Left = 206
          Top = 120
          Width = 89
          Height = 33
          Caption = 'Preview'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = WhirClick
          Style = bsNew
        end
        object WhirlBar: TScrollBar
          Left = 180
          Top = 92
          Width = 135
          Height = 17
          Hint = 'Value'
          Max = 1000
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnChange = WhirlBarChange
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Wave Image'
      object GroupBox12: TGroupBox
        Left = 7
        Top = 10
        Width = 323
        Height = 181
        Caption = 'Wave The Image'
        TabOrder = 0
        IsControl = True
        object Label111: TLabel
          Left = 192
          Top = 74
          Width = 30
          Height = 13
          Caption = 'Phase'
        end
        object Label11: TLabel
          Left = 252
          Top = 74
          Width = 61
          Height = 13
          Caption = 'Wave length'
        end
        object Label12: TLabel
          Left = 192
          Top = 109
          Width = 46
          Height = 13
          Caption = 'Amplitude'
        end
        object Wave: TBitBtn
          Left = 193
          Top = 148
          Width = 89
          Height = 29
          Caption = 'Preview'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = WaveClick
          Style = bsNew
        end
        object Phase: TSpinEdit
          Left = 192
          Top = 87
          Width = 57
          Height = 22
          Hint = 'How many phases'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 360
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Value = 0
        end
        object WaveL: TSpinEdit
          Left = 256
          Top = 87
          Width = 57
          Height = 22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 200
          MinValue = 0
          ParentFont = False
          TabOrder = 2
          Value = 20
        end
        object Amp: TSpinEdit
          Left = 192
          Top = 123
          Width = 57
          Height = 22
          Hint = 'Value of the amplitute'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 200
          MinValue = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Value = 50
        end
        object Refl: TCheckBox
          Left = 252
          Top = 115
          Width = 66
          Height = 17
          Hint = 'Reflective waves or just distorting'
          Caption = 'Reflection'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object Smear: TCheckBox
          Left = 252
          Top = 130
          Width = 56
          Height = 17
          Hint = 'Smear the edges out'
          Caption = 'Smear'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 5
        end
        object OnOk: TCheckBox
          Left = 288
          Top = 155
          Width = 26
          Height = 17
          Hint = 'Wave on Ok'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = OnOkClick
        end
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 290
    Top = 65535
  end
  object CD1: TColorDialog
    Ctl3D = True
    Color = clBtnFace
    Left = 317
    Top = 65535
  end
end