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