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

Text File | 2001-06-15 | 4KB | 195 lines

object TexLibForm: TTexLibForm
  Left = 358
  Top = 136
  ActiveControl = ListBox1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Texture Library'
  ClientHeight = 253
  ClientWidth = 286
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 152
    Top = 28
    Width = 130
    Height = 130
    BevelOuter = bvLowered
    TabOrder = 2
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 128
      Height = 128
      Hint = 'Texture preview area'
      Align = alClient
      Center = True
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = True
    end
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 196
    Width = 130
    Height = 25
    Caption = 'Ok'
    Default = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
    NumGlyphs = 2
    Spacing = 8
  end
  object BitBtn2: TBitBtn
    Left = 152
    Top = 224
    Width = 130
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 5
    NumGlyphs = 2
    Spacing = 8
  end
  object ListBox1: TListBox
    Left = 4
    Top = 4
    Width = 137
    Height = 245
    Hint = 'Select texture from list'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 0
    OnClick = ListBox1Click
  end
  object ComboBox1: TComboBox
    Left = 152
    Top = 4
    Width = 130
    Height = 21
    Hint = 'Select texture type'
    Style = csDropDownList
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'All'
      'Terrain'
      'Sky'
      'Water')
    ParentFont = False
    TabOrder = 1
    OnChange = ComboBox1Change
  end
  object BitBtn3: TBitBtn
    Left = 152
    Top = 168
    Width = 130
    Height = 25
    Hint = 'Click right mouse button to more options...'
    Caption = 'Generate clouds...'
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ShowHint = True
    TabOrder = 3
    OnClick = BitBtn3Click
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 256
    Top = 168
    object Color1: TMenuItem
      Caption = 'Color...'
      OnClick = Color1Click
    end
    object Density1: TMenuItem
      Caption = 'Density...'
      OnClick = Density1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnGen1: TMenuItem
      Tag = 1
      Caption = 'Noise 1'
      GroupIndex = 10
      RadioItem = True
      OnClick = mnGen5Click
    end
    object mnGen2: TMenuItem
      Tag = 2
      Caption = 'Noise 2'
      GroupIndex = 10
      RadioItem = True
      OnClick = mnGen5Click
    end
    object mnGen3: TMenuItem
      Tag = 3
      Caption = 'Turbulence'
      Checked = True
      GroupIndex = 10
      RadioItem = True
      OnClick = mnGen5Click
    end
    object mnGen4: TMenuItem
      Tag = 4
      Caption = 'Marble 1'
      GroupIndex = 10
      RadioItem = True
      OnClick = mnGen5Click
    end
    object mnGen5: TMenuItem
      Tag = 5
      Caption = 'Marble 2'
      GroupIndex = 10
      RadioItem = True
      OnClick = mnGen5Click
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 252
    Top = 224
  end
  object PopupMenu2: TPopupMenu
    Left = 156
    Top = 32
    object Stretch1: TMenuItem
      Caption = 'Stretch...'
      OnClick = Stretch1Click
    end
  end
end