Mastering Visual Basic 5/MasteringVisualBasic5.iso/olympus/ik32_15t/delphi2.shr/UMATRIX.DFM/UMATRIX.txt

Text File | 1996-08-01 | 14.3 KB | 664 lines

object Form1: TForm1
  Left = 282
  Top = 163
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Matrix Filter'
  ClientHeight = 257
  ClientWidth = 602
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Bevel1: TBevel
    Left = 5
    Top = 7
    Width = 229
    Height = 244
    Shape = bsFrame
  end
  object Process: TSpeedButton
    Left = 240
    Top = 188
    Width = 109
    Height = 30
    Hint =
      'Apply the Visible Matrix or Blur the Image - Choose Which Option' +
      ' above'
    Caption = 'Process'
    ParentShowHint = False
    ShowHint = True
    OnClick = ProcessClick
  end
  object Undo: TSpeedButton
    Left = 240
    Top = 220
    Width = 109
    Height = 30
    Hint = 'Restore Original Image'
    Caption = 'Undo'
    ParentShowHint = False
    ShowHint = True
    OnClick = UndoClick
  end
  object PicbufVisible: TPicbuf
    Left = 11
    Top = 13
    Width = 217
    Height = 231
    Hint = 'Visible Image'
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    ControlData = {
      00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
      CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
      6966000001000000000000000000000000000001000000000000010000000000
      00000000000000000000000000FF000000000000000000000000010001000000
      0001000A0000000000000000000000000000000000000000}
  end
  object MatrixPage: TTabbedNotebook
    Left = 355
    Top = 8
    Width = 239
    Height = 243
    Hint =
      'Matrix Input Screen - The Visible Matrix size is the one Applied' +
      ' to the Image [-100 to 100 values]'
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object TTabPage
      Left = 4
      Top = 25
      Caption = '3 * 3'
      object Element00: TSpinEdit
        Left = 13
        Top = 19
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 0
        Value = 1
      end
      object Element10: TSpinEdit
        Left = 13
        Top = 60
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 1
        Value = 1
      end
      object Element11: TSpinEdit
        Left = 87
        Top = 61
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 2
        Value = 1
      end
      object Element20: TSpinEdit
        Left = 13
        Top = 100
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 3
        Value = 1
      end
      object Element21: TSpinEdit
        Left = 87
        Top = 100
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 4
        Value = 1
      end
      object Element22: TSpinEdit
        Left = 160
        Top = 100
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 5
        Value = 1
      end
      object Element01: TSpinEdit
        Left = 87
        Top = 19
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 6
        Value = 1
      end
      object Element02: TSpinEdit
        Left = 160
        Top = 19
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 7
        Value = 1
      end
      object Element12: TSpinEdit
        Left = 160
        Top = 60
        Width = 59
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 8
        Value = 1
      end
      object Scale: TSpinEdit
        Left = 13
        Top = 164
        Width = 45
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 9
        Value = 1
      end
      object Norm: TSpinEdit
        Left = 87
        Top = 164
        Width = 41
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 10
        Value = 4
      end
      object Offset: TSpinEdit
        Left = 160
        Top = 164
        Width = 45
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 11
        Value = 1
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = '5 * 5'
      object Label1: TLabel
        Left = 6
        Top = 169
        Width = 37
        Height = 14
        Caption = 'Scale:- '
      end
      object Label2: TLabel
        Left = 87
        Top = 169
        Width = 35
        Height = 14
        Caption = 'Norm:- '
      end
      object Label3: TLabel
        Left = 166
        Top = 169
        Width = 41
        Height = 14
        Caption = 'Offset:- '
      end
      object Element500: TSpinEdit
        Left = 6
        Top = 9
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 0
        Value = 1
      end
      object Element510: TSpinEdit
        Left = 6
        Top = 40
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 1
        Value = 1
      end
      object Element514: TSpinEdit
        Left = 186
        Top = 40
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 2
        Value = 1
      end
      object Element521: TSpinEdit
        Left = 51
        Top = 72
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 3
        Value = 1
      end
      object Element523: TSpinEdit
        Left = 141
        Top = 72
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 4
        Value = 1
      end
      object Element530: TSpinEdit
        Left = 6
        Top = 103
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 5
        Value = 1
      end
      object Element502: TSpinEdit
        Left = 96
        Top = 9
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 6
        Value = 1
      end
      object Element503: TSpinEdit
        Left = 141
        Top = 9
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 7
        Value = 1
      end
      object Element512: TSpinEdit
        Left = 96
        Top = 40
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 8
        Value = 1
      end
      object Element513: TSpinEdit
        Left = 141
        Top = 40
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 9
        Value = 1
      end
      object Element504: TSpinEdit
        Left = 186
        Top = 9
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 10
        Value = 1
      end
      object Element524: TSpinEdit
        Left = 186
        Top = 72
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 11
        Value = 1
      end
      object Element532: TSpinEdit
        Left = 96
        Top = 103
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 12
        Value = 1
      end
      object Element531: TSpinEdit
        Left = 51
        Top = 103
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 13
        Value = 1
      end
      object Element522: TSpinEdit
        Left = 96
        Top = 72
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 14
        Value = 1
      end
      object Element520: TSpinEdit
        Left = 6
        Top = 72
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 15
        Value = 1
      end
      object Element511: TSpinEdit
        Left = 51
        Top = 40
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 16
        Value = 1
      end
      object Element501: TSpinEdit
        Left = 51
        Top = 9
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 17
        Value = 1
      end
      object Element533: TSpinEdit
        Left = 141
        Top = 103
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 18
        Value = 1
      end
      object Element534: TSpinEdit
        Left = 186
        Top = 103
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 19
        Value = 1
      end
      object Element540: TSpinEdit
        Left = 6
        Top = 134
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 20
        Value = 1
      end
      object Element541: TSpinEdit
        Left = 51
        Top = 134
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 21
        Value = 1
      end
      object Element544: TSpinEdit
        Left = 186
        Top = 134
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 22
        Value = 1
      end
      object Element542: TSpinEdit
        Left = 96
        Top = 134
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 23
        Value = 1
      end
      object Element543: TSpinEdit
        Left = 141
        Top = 134
        Width = 39
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 24
        Value = 1
      end
      object Scale5: TSpinEdit
        Left = 6
        Top = 188
        Width = 58
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 25
        Value = 1
      end
      object Norm5: TSpinEdit
        Left = 87
        Top = 188
        Width = 58
        Height = 23
        Color = clAqua
        MaxValue = 100
        MinValue = -100
        TabOrder = 26
        Value = 9
      end
      object Offset5: TSpinEdit
        Left = 167
        Top = 188
        Width = 58
        Height = 23
        Color = clAqua
        MaxLength = 100
        MaxValue = 100
        MinValue = -100
        TabOrder = 27
        Value = 1
      end
    end
  end
  object RadioGroup: TRadioGroup
    Left = 240
    Top = 2
    Width = 108
    Height = 157
    Hint =
      'Choose Function - for Blur or Matrix use '#39'Process'#39' to Apply effe' +
      'ct, otherwise use the ScrollBar '
    Caption = ' Function '
    ItemIndex = 4
    Items.Strings = (
      'Soften'
      'Sharpen'
      'Blur'
      'Edge'
      'Matrix')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = RadioGroupClick
  end
  object ScrollBar: TScrollBar
    Left = 241
    Top = 164
    Width = 107
    Height = 17
    Hint = 'Apply Soften, Sharpen or Edge Depending on Option Selected Above'
    Enabled = False
    Max = 10
    Min = 1
    ParentShowHint = False
    Position = 1
    ShowHint = True
    TabOrder = 3
    OnChange = ScrollBarChange
  end
  object PicbufEdit: TPicbuf
    Left = 474
    Top = -1
    Width = 20
    Height = 18
    ParentColor = False
    ParentFont = False
    TabOrder = 4
    Visible = False
    OnChange = PicbufEditChange
    ControlData = {
      00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
      CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
      6966000001000000000000000000000000000001000000000000010000000000
      00000000000000000000000000FF000000000000000000000000010001000000
      0001000A0000000000000000000000000000000000000000}
  end
  object PicbufOriginal: TPicbuf
    Left = 498
    Top = 0
    Width = 18
    Height = 16
    ParentColor = False
    ParentFont = False
    TabOrder = 5
    Visible = False
    OnChange = PicbufOriginalChange
    ControlData = {
      00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
      CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
      6966000001000000000000000000000000000001000000000000010000000000
      00000000000000000000000000FF000000000000000000000000010001000000
      0001000A0000000000000000000000000000000000000000}
  end
  object MainMenu1: TMainMenu
    Left = 42
    Top = 15
    object File1: TMenuItem
      Caption = 'File'
      ShortCut = 0
      object LoadImage: TMenuItem
        Caption = 'Load Image'
        ShortCut = 0
        OnClick = LoadImageClick
      end
      object SaveImageAs1: TMenuItem
        Caption = 'Save Image As....'
        ShortCut = 0
        OnClick = SaveImageAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ShortCut = 16472
        OnClick = Exit1Click
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      '*.TIF|*.tif|*.TGA|*.tga|*.BMP|*.bmp|*.GIF|*.gif|*.DIB|*.dib|*.PC' +
      'X|*.pcx|*.JPG|*.jpg|*.MSP|*.msp|*.FIF|*.fif|*.PNG|*.png'
    Title = 'Disk Control'
    Left = 13
    Top = 15
  end
end