home *** CD-ROM | disk | FTP | other *** search
- inherited StorageForm: TStorageForm
- Caption = 'Storage Options'
- ClientHeight = 258
- ClientWidth = 350
- OnCloseQuery = FormCloseQuery
- PixelsPerInch = 96
- TextHeight = 13
- inherited ButtonOk: TButton
- Left = 105
- Top = 228
- TabOrder = 2
- end
- inherited ButtonCancel: TButton
- Left = 185
- Top = 228
- TabOrder = 3
- end
- inherited ButtonHelp: THelpButton
- Left = 265
- Top = 228
- TabOrder = 4
- HelpKey = 'option_storage'
- end
- object SoundFolderBox: TGroupBox
- Left = 7
- Top = 4
- Width = 336
- Height = 91
- Caption = ' Sound Folder '
- TabOrder = 0
- object UseInitial: TRadioButton
- Left = 10
- Top = 37
- Width = 203
- Height = 17
- Caption = 'Always start with this folder:'
- TabOrder = 1
- OnClick = RadioChange
- end
- object UseLast: TRadioButton
- Left = 10
- Top = 19
- Width = 203
- Height = 17
- Caption = 'Remember folder used last session'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioChange
- end
- inline Source: TFolderFrame
- Left = 27
- Top = 55
- Width = 302
- TabOrder = 2
- inherited Folder: TEdit
- Width = 273
- end
- inherited Browse: TBitton
- Left = 279
- end
- end
- end
- object TemporaryStorageBox: TGroupBox
- Left = 7
- Top = 100
- Width = 336
- Height = 119
- Caption = ' Temporary Storage '
- TabOrder = 1
- object UseRAM: TRadioButton
- Left = 10
- Top = 19
- Width = 113
- Height = 17
- Caption = 'RAM'
- TabOrder = 0
- OnClick = RadioChange
- end
- object UseDisk: TRadioButton
- Left = 10
- Top = 37
- Width = 113
- Height = 17
- Caption = 'Hard drive:'
- Checked = True
- TabOrder = 1
- TabStop = True
- OnClick = RadioChange
- end
- inline Temporary: TFolderFrame
- Left = 27
- Top = 55
- Width = 302
- TabOrder = 2
- inherited Folder: TEdit
- Width = 273
- end
- inherited Browse: TBitton
- Left = 279
- end
- end
- object UndoLevels: TNumBox
- Left = 76
- Top = 89
- Width = 87
- Height = 21
- TabStop = True
- Max = 100000
- PageChange = 10
- LineChange = 1
- Label = 'Undo levels'
- DropDownCount = 10
- Items.Strings = (
- '0'
- '1'
- '5'
- '10'
- '50'
- '100'
- '1000'
- '10000'
- '100000')
- TabOrder = 4
- MaxLength = 7
- end
- object UndoLabel: TStaticText
- Left = 10
- Top = 91
- Width = 63
- Height = 17
- Alignment = taRightJustify
- Caption = 'Undo levels:'
- TabOrder = 3
- end
- end
- end
-