Freelog Special Edition 9/FreelogHS09.iso/FractalExplo/FE.exe/0/RCDATA/TIMAGEPROCESSINGFORM/TIMAGEPROCESSINGFORM.txt

Text File | 2001-06-15 | 11KB | 442 lines

object ImageProcessingForm: TImageProcessingForm
  Left = 511
  Top = 106
  ActiveControl = ListBox1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Filters'
  ClientHeight = 301
  ClientWidth = 345
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poDefault
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 4
    Top = 200
    Width = 337
    Height = 65
    Shape = bsFrame
  end
  object Bevel1: TBevel
    Left = 4
    Top = 4
    Width = 337
    Height = 189
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 12
    Top = 12
    Width = 95
    Height = 13
    Caption = '&Transformations:'
    FocusControl = ListBox1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 152
    Top = 12
    Width = 78
    Height = 13
    Caption = 'Texturization:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 288
    Top = 28
    Width = 31
    Height = 14
    Caption = '&Alpha:'
    FocusControl = SpinEdit1
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 12
    Top = 212
    Width = 52
    Height = 13
    Caption = '&Brightness:'
    FocusControl = SpinEdit2
  end
  object Label4: TLabel
    Left = 12
    Top = 240
    Width = 42
    Height = 13
    Caption = '&Contrast:'
    FocusControl = SpinEdit3
  end
  object Label6: TLabel
    Left = 124
    Top = 240
    Width = 51
    Height = 13
    Caption = '&Saturation:'
    FocusControl = SpinEdit4
  end
  object Label7: TLabel
    Left = 124
    Top = 212
    Width = 43
    Height = 13
    Caption = 'S&harpen:'
    FocusControl = SpinEdit5
  end
  object Label8: TLabel
    Left = 236
    Top = 212
    Width = 21
    Height = 13
    Caption = 'B&lur:'
    FocusControl = SpinEdit6
  end
  object Label9: TLabel
    Left = 236
    Top = 240
    Width = 40
    Height = 13
    Caption = 'S&ponge:'
    FocusControl = SpinEdit7
  end
  object ListBox1: TListBox
    Left = 12
    Top = 28
    Width = 137
    Height = 157
    ItemHeight = 13
    Items.Strings = (
      '(None)'
      'Soften'
      'Soften (more)'
      'Soften (less)'
      'Smooth'
      'Edge detection'
      'Edge enhance (less)'
      'Edge enhance (more)'
      'Emboss'
      'Emboss (less)'
      'Emboss (more)'
      'Sharpen (low)'
      'Diagonal "shatter"'
      'Fire'
      'Blur'
      'Horizontal blur'
      'Gradient (low)'
      'Gradient (high)'
      'Find edges')
    TabOrder = 0
    OnDblClick = Button1Click
  end
  object Button1: TButton
    Left = 12
    Top = 272
    Width = 77
    Height = 25
    Hint = 'Execute selected filters'
    Caption = 'Apply'
    Default = True
    TabOrder = 12
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 256
    Top = 272
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Close'
    TabOrder = 14
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 96
    Top = 272
    Width = 77
    Height = 25
    Hint =
      'Restores the image received as result of the fractal calculation' +
      #39'.'
    Caption = '&Restore'
    TabOrder = 13
    OnClick = Button3Click
  end
  object ScrollBox1: TPanel
    Left = 152
    Top = 28
    Width = 132
    Height = 134
    BevelInner = bvLowered
    Color = clBlack
    TabOrder = 1
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 128
      Height = 130
      Hint = 'Click right mouse button to more options'
      Align = alClient
      Center = True
      PopupMenu = RxPopupMenu1
    end
  end
  object SpinEdit1: TSpinEdit
    Left = 288
    Top = 44
    Width = 45
    Height = 23
    Hint = 'Relative scale the texture'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Increment = 5
    MaxLength = 3
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    TabOrder = 2
    Value = 50
  end
  object BitBtn5: TBitBtn
    Left = 288
    Top = 80
    Width = 45
    Height = 25
    Hint =
      'Texture library...'#13#10'Required file TEXLIB.DLL which inqluded '#13#10'in' +
      'to Fractal Landscapes Library package.'
    TabOrder = 3
    OnClick = BitBtn5Click
    Glyph.Data = {
      72010000424D7201000000000000760000002800000016000000150000000100
      040000000000FC00000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777777770078000000000000000000070078FFFFFFFFFFFFF07777070078FF
      44444444FFF0F887070078FFFFFFFFFFFFF0F007070078FF444444444FF0FFF7
      070078FFFFFFFFFFFFF00000070078FF44444444FFF0F7F70700784444444444
      44407F7F07007844FFFFFFFFF440F7F7070078444444444444407F7F070078FF
      44444444FFF0F7F7070078FFFFFFFFFFFFF07F7F070078FF444444444FF0F7F7
      070078FFFFFFFFFFFFF00000070078FF44444444FFF07777070078FFFFFFFFFF
      FFF0F007070078FF444444444FF0F887070078FFFFFFFFFFFFF0FFF707007888
      88888888888000000700777777777777777777777700}
  end
  object BitBtn6: TBitBtn
    Left = 288
    Top = 108
    Width = 45
    Height = 25
    Hint = 'Load texture from disk'
    TabOrder = 4
    OnClick = BitBtn6Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object BitBtn7: TBitBtn
    Left = 288
    Top = 136
    Width = 45
    Height = 25
    Hint = 'Clear texture'
    TabOrder = 5
    OnClick = BitBtn7Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
      555557777F777555F55500000000555055557777777755F75555005500055055
      555577F5777F57555555005550055555555577FF577F5FF55555500550050055
      5555577FF77577FF555555005050110555555577F757777FF555555505099910
      555555FF75777777FF555005550999910555577F5F77777775F5500505509990
      3055577F75F77777575F55005055090B030555775755777575755555555550B0
      B03055555F555757575755550555550B0B335555755555757555555555555550
      BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
      50BB555555555555575F555555555555550B5555555555555575}
    NumGlyphs = 2
  end
  object SpinEdit2: TSpinEdit
    Tag = 1
    Left = 64
    Top = 208
    Width = 53
    Height = 22
    Hint = 'Accepted values: -255 to 255'
    Increment = 8
    MaxValue = 255
    MinValue = -255
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Value = 0
  end
  object SpinEdit3: TSpinEdit
    Tag = 2
    Left = 64
    Top = 236
    Width = 53
    Height = 22
    Hint = 'Accepted values: -255 to 255'
    Increment = 8
    MaxValue = 255
    MinValue = -255
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Value = 0
  end
  object SpinEdit4: TSpinEdit
    Tag = 3
    Left = 176
    Top = 236
    Width = 53
    Height = 22
    Hint =
      'Accepted values: 0 to 65535'#13#10'Also, -1 (default) provides no chan' +
      'gings.'
    Increment = 16
    MaxValue = 65535
    MinValue = -1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    Value = -1
  end
  object SpinEdit5: TSpinEdit
    Tag = 4
    Left = 176
    Top = 208
    Width = 53
    Height = 22
    Hint = 'Accepted values: -20 to 20'
    MaxValue = 20
    MinValue = -20
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    Value = 0
  end
  object SpinEdit6: TSpinEdit
    Tag = 5
    Left = 280
    Top = 208
    Width = 53
    Height = 22
    Hint = 'Accepted values: -128 to 128'
    MaxValue = 128
    MinValue = -128
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    Value = 0
  end
  object SpinEdit7: TSpinEdit
    Tag = 6
    Left = 280
    Top = 236
    Width = 53
    Height = 22
    Hint = 'Accepted values: 0 to 100'
    MaxValue = 100
    MinValue = 0
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    Value = 0
  end
  object CheckBox1: TCheckBox
    Left = 152
    Top = 168
    Width = 97
    Height = 17
    Caption = 'Infinity area only'
    State = cbChecked
    TabOrder = 15
  end
  object OpenTexDlg: TOpenPictureDialog
    Filter =
      'All (*.bmp;*.jpg;*.jpeg; *.gif)|*.bmp;*.jpg;*.jpeg;*.gif|Bitmaps' +
      ' (*.bmp)|*.bmp|JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF (*.gif)|*.gi' +
      #39'f'
    Options = [ofPathMustExist, ofFileMustExist]
    Title = 'Open sky texture...'
    Left = 252
    Top = 124
  end
  object RxPopupMenu1: TRxPopupMenu
    OnPopup = RxPopupMenu1Popup
    Left = 224
    Top = 124
    object Stretch1: TMenuItem
      Caption = 'Stretch...'
      OnClick = Stretch1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmn01: TMenuItem
      Caption = 'Open texture library...'
      OnClick = BitBtn5Click
    end
    object pmn02: TMenuItem
      Caption = 'Load texture from file...'
      OnClick = BitBtn6Click
    end
    object Clearthetexture1: TMenuItem
      Caption = 'Clear texture'
      OnClick = BitBtn7Click
    end
    object pmn04: TMenuItem
      Caption = '-'
    end
    object pmn05: TMenuItem
      Caption = 'Save texture to "FE_tex.bmp"'
      OnClick = pmn05Click
    end
    object pmn06: TMenuItem
      Caption = 'Edit texture...'
      Enabled = False
      Visible = False
    end
  end
end