object frmConfigure: TfrmConfigure
Left = 233
Top = 492
HelpContext = 183
BorderStyle = bsDialog
Caption = 'Options'
ClientHeight = 386
ClientWidth = 422
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pgOptions: TPageControl
Left = 0
Top = 0
Width = 422
Height = 351
ActivePage = tsFont
Align = alClient
MultiLine = True
TabOrder = 0
object tsPref: TTabSheet
Caption = 'Preferences'
object bvlPref: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object gbShowToolbars: TGroupBox
Left = 8
Top = 136
Width = 201
Height = 161
Caption = 'Toolbar'
TabOrder = 1
object bvlToolbars: TBevel
Left = 8
Top = 20
Width = 185
Height = 95
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
ParentShowHint = False
ShowHint = True
end
object lblShow: TLabel
Left = 16
Top = 24
Width = 33
Height = 11
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
Caption = 'Show'
ParentShowHint = False
ShowHint = True
end
object chkToolbarDoc: TCheckBox
Left = 32
Top = 40
Width = 113
Height = 17
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
Caption = '&Document'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object chkToolbarUser: TCheckBox
Left = 32
Top = 76
Width = 113
Height = 17
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
Caption = '&User'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object chkToolbarMenu: TCheckBox
Left = 32
Top = 58
Width = 113
Height = 17
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
Caption = '&Menu'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object chkToolbarStatus: TCheckBox
Left = 32
Top = 94
Width = 113
Height = 17
Hint =
'What Toolbars should be visible? (Some toolbars will only be vis' +
'ible when at least one document is opened)'
Caption = '&Status'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object btnConfigToolbar: TButton
Left = 8
Top = 121
Width = 185
Height = 33
Hint = 'Change the User toolbar to include whatever buttons you want!'
Caption = '&Configure user toolbar'
ModalResult = 6
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object gbEditor: TGroupBox
Left = 8
Top = 8
Width = 401
Height = 125
Caption = 'Editor'
TabOrder = 0
object chkUseHighlighting: TCheckBox
Left = 208
Top = 96
Width = 153
Height = 17
Hint =
'Should WebEdit highlight the HTML tags a different color than th' +
'e text?'
Caption = 'Use syntax &highlighting'
ParentShowHint = False
ShowHint = True
TabOrder = 2
Visible = False
end
object chkOpenNewDoc: TCheckBox
Left = 208
Top = 72
Width = 169
Height = 17
Hint =
'Should WebEdit have a blank document open when it is first loade' +
'd?'
Caption = 'Open &new document at startup'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object rgFilesDragged: TRadioGroup
Left = 8
Top = 16
Width = 385
Height = 49
Hint =
'What action should WebEdit take when files are dragged onto it f' +
'rom the Windows desktop?'
Caption = 'Drag and Drop behavior'
Columns = 2
Items.Strings = (
'&Insert file as tag'
'&Open file as new document')
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object chkWordWrap: TCheckBox
Left = 8
Top = 96
Width = 129
Height = 15
Hint =
'Should lines longer than the width of the screen be '#39'wrapped'#39' on' +
'to the next line?'
Caption = '&Word Wrap'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object chkLowercaseFilenames: TCheckBox
Left = 8
Top = 72
Width = 137
Height = 17
Hint = 'Some versions of UNIX expect filenames to be in lower case'
Caption = '&Lowercase filenames'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object gbBrowsers: TGroupBox
Left = 216
Top = 136
Width = 193
Height = 161
Caption = 'Browsers'
TabOrder = 2
object btnAddBrowser: TButton
Left = 8
Top = 120
Width = 177
Height = 33
Hint =
'Add third-party browsers. This allows you to see what your docum' +
'ent looks like when viewed in multiple browsers.'
Caption = 'Add or Edit &Browser'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = btnAddBrowserClick
end
object rgIE: TRadioGroup
Left = 8
Top = 16
Width = 177
Height = 49
Hint =
'Each version of Internet Explorer accepts files in a different f' +
'ormat. Select which version you will be using,'
Caption = 'Internet Explorer version'
Columns = 2
ItemIndex = 0
Items.Strings = (
'2.0'
'3.0')
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
end
object tsColor: TTabSheet
Caption = 'Color'
object bvlColor: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object lblElement: TLabel
Left = 8
Top = 8
Width = 41
Height = 11
Caption = '&Element'
FocusControl = lbElement
end
object lblColor: TLabel
Left = 165
Top = 8
Width = 25
Height = 11
Caption = '&Color'
FocusControl = cgFontColor
end
object cgFontColor: TColorGrid
Left = 164
Top = 24
Width = 92
Height = 92
Hint =
'Left-click for foreground color, right-click for background colo' +
'r'
BackgroundEnabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnMouseDown = cgFontColorMouseDown
OnMouseUp = cgFontColorMouseUp
end
object lbElement: TListBox
Left = 8
Top = 24
Width = 105
Height = 97
Hint = 'What text do you wish to change the color of?'
ItemHeight = 13
Items.Strings = (
'Document Text'
'Document Tag'
'Previewer Text'
'Previewer HotSpot')
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = lbElementClick
end
object btnDefaultColors: TButton
Left = 288
Top = 24
Width = 111
Height = 25
Hint = 'Reset the text colors back to defaults'
Caption = '&Use Default Colors'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = btnDefaultColorsClick
end
object gbEditorText: TGroupBox
Left = 8
Top = 128
Width = 401
Height = 89
Caption = 'Editor Text'
Color = clBtnFace
ParentColor = False
TabOrder = 3
object pnlEditorText: TPanel
Left = 8
Top = 15
Width = 313
Height = 69
Hint = 'The color of the text in WebEdit'#39's document pane'
BevelOuter = bvNone
Color = clWindow
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = lblTag1Click
object lblTag1: TLabel
Left = 0
Top = 4
Width = 34
Height = 11
Hint = 'The color of the text in WebEdit'#39's document pane'
Caption = ''
ParentShowHint = False
ShowHint = True
OnClick = lblTag1Click
end
object lblExampleText2: TLabel
Left = 28
Top = 20
Width = 91
Height = 11
Hint = 'The color of the text in WebEdit'#39's document pane'
Caption = 'Kenn Nesbitt'#39's WebEdit'
ParentShowHint = False
ShowHint = True
OnClick = lblExampleText2Click
end
object lblExampleText3: TLabel
Left = 0
Top = 35
Width = 122
Height = 11
Hint = 'The color of the text in WebEdit'#39's document pane'
Caption = 'Find out more about WebEdit at'
ParentShowHint = False
ShowHint = True
OnClick = lblExampleText2Click
end
object lblExampleText4: TLabel
Left = 186
Top = 51
Width = 87
Height = 11
Caption = 'www.nesbitt.com'
OnClick = lblExampleText2Click
end
object lblTag2: TLabel
Left = 0
Top = 20
Width = 21
Height = 11
Caption = ''
OnClick = lblTag1Click
end
object lblTag3: TLabel
Left = 144
Top = 20
Width = 25
Height = 11
Caption = '
'
OnClick = lblTag1Click
end
object lblTag4: TLabel
Left = 0
Top = 51
Width = 150
Height = 11
Caption = ''
OnClick = lblTag1Click
end
object lblTag5: TLabel
Left = 270
Top = 51
Width = 19
Height = 11
Caption = ''
OnClick = lblTag1Click
end
end
end
object gbPreviewerText: TGroupBox
Left = 8
Top = 220
Width = 401
Height = 81
Caption = 'Previewer Text'
TabOrder = 4
object lblPreviewText1: TLabel
Left = 8
Top = 16
Width = 268
Height = 33
Hint = 'The color of the text in WebEdit'#39's quick preview pane'
Caption = 'Kenn Nesbitt'#39's WebEdit'
Font.Color = clBlack
Font.Height = -28
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = lblPreviewText1Click
end
object lblPreviewText2: TLabel
Left = 8
Top = 48
Width = 196
Height = 19
Hint = 'The color of the text in WebEdit'#39's quick preview pane'
Caption = 'Find out more about WebEdit at'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = lblPreviewText1Click
end
object lblPreviewText3: TLabel
Left = 208
Top = 48
Width = 106
Height = 19
Hint = 'The color of the text in WebEdit'#39's quick preview pane'
Caption = 'www.nesbitt.com'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = [fsUnderline]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = lblPreviewText3Click
end
end
end
object tsFont: TTabSheet
Caption = 'Font'
object bvlFont: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object lblSample: TLabel
Left = 8
Top = 152
Width = 48
Height = 11
Caption = 'Sample Text'
end
object lblFontName: TLabel
Left = 8
Top = 56
Width = 41
Height = 11
Caption = '&Name'
FocusControl = cmbFontName
end
object lblFontSize: TLabel
Left = 296
Top = 56
Width = 25
Height = 11
Caption = '&Size'
FocusControl = txtFontSize
end
object cmbFontName: TComboBox
Left = 8
Top = 72
Width = 281
Height = 21
Hint =
'Select the font WebEdit uses. This only applies to WebEdit - it ' +
'does NOT affect the font of your document when viewed in a brows' +
'er'
ItemHeight = 13
ParentShowHint = False
ShowHint = True
Sorted = True
TabOrder = 1
OnChange = cmbFontNameChange
OnKeyDown = cmbFontNameKeyDown
OnKeyPress = cmbFontNameKeyPress
end
object txtFontSize: TEdit
Left = 296
Top = 72
Width = 25
Height = 21
ReadOnly = True
TabOrder = 2
Text = '12'
OnChange = txtFontSizeChange
end
object rgSelectFont: TRadioGroup
Left = 8
Top = 8
Width = 401
Height = 41
Caption = 'Select Font'
Columns = 3
ItemIndex = 0
Items.Strings = (
'&Editor'
'&Previewer'
'P&rinter')
TabOrder = 0
OnClick = rgSelectFontClick
end
object memSample: TMemo
Left = 8
Top = 168
Width = 401
Height = 129
Hint = 'A preview of what the text will look like in WebEdit'
TabStop = False
Lines.Strings = (
'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
'abcdefghijklmnopqrstuvwxyz 1234567890'
'')
ParentShowHint = False
ShowHint = True
TabOrder = 5
WordWrap = False
end
object udFontSize: TUpDown
Left = 321
Top = 72
Width = 12
Height = 21
Associate = txtFontSize
Min = 3
Max = 200
Position = 12
TabOrder = 3
Thousands = False
Wrap = False
end
object gbStyle: TGroupBox
Left = 8
Top = 104
Width = 161
Height = 41
Caption = 'Style'
TabOrder = 4
object chkBold: TCheckBox
Left = 8
Top = 16
Width = 57
Height = 17
Caption = '&Bold'
TabOrder = 0
OnClick = chkBoldClick
end
object chkItalic: TCheckBox
Left = 80
Top = 16
Width = 65
Height = 17
Caption = '&Italic'
TabOrder = 1
OnClick = chkItalicClick
end
end
end
object tsFiles: TTabSheet
Caption = 'Files'
object bvlFiles: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object rgSaveDir: TGroupBox
Left = 5
Top = 6
Width = 404
Height = 239
Caption = 'Select a directory to store configuration files'
TabOrder = 0
object lblSaveDir: TLabel
Left = 8
Top = 16
Width = 134
Height = 13
Caption = 'E:\Programs\32Bit\WebEdit'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object dcbSaveDir: TDriveComboBox
Left = 8
Top = 211
Width = 387
Height = 19
TabOrder = 0
OnChange = dcbSaveDirChange
end
object dlbSaveDir: TDirectoryListBox
Left = 8
Top = 32
Width = 387
Height = 177
Hint =
'This is where files such as the ones holding all of the URLs tha' +
't have been entered while using WedEdit are stored'
Columns = 1
DirLabel = lblSaveDir
ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object rgDefExtension: TRadioGroup
Left = 5
Top = 248
Width = 404
Height = 49
Hint =
'Some versions of NT show each filename twice in the Open File bo' +
'x. If this happens select the HTML Only button'
Caption = 'Default extension for opening files'
Columns = 2
ItemIndex = 0
Items.Strings = (
'HTML && HTM'
'HTML Only')
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object tsPreviewer: TTabSheet
Caption = 'Previewer'
object bvlPreviewer: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object gbOrientation: TGroupBox
Left = 304
Top = 8
Width = 105
Height = 121
Caption = 'Orientation'
TabOrder = 1
object rbtnVertical: TRadioButton
Left = 8
Top = 32
Width = 89
Height = 17
Hint = 'Display the quick previewer with a tall-narrow effect'
Caption = '&Vertical'
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = True
OnClick = rbtnVerticalClick
end
object rbtnHorizontal: TRadioButton
Left = 8
Top = 72
Width = 89
Height = 17
Hint = 'Display the quick previewer with a short-wide effect'
Caption = '&Horizontal'
ParentShowHint = False
ShowHint = True
TabOrder = 1
TabStop = True
OnClick = rbtnHorizontalClick
end
end
object gbPreviewSettings: TGroupBox
Left = 8
Top = 8
Width = 289
Height = 121
Caption = 'Settings'
TabOrder = 0
object chkDisplayPreview: TCheckBox
Left = 8
Top = 24
Width = 265
Height = 17
Hint =
'Show the quick previewer. (You can also use the yellow lightning' +
' symbol)'
Caption = '&Display Preview'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object chkFullWindowPreview: TCheckBox
Left = 8
Top = 48
Width = 273
Height = 17
Hint = 'Display the quick previewer full screen'
Caption = '&Full Window Preview'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object chkAutoUpdate: TCheckBox
Left = 8
Top = 72
Width = 265
Height = 17
Hint =
'This updates the quick previewer with each keystroke. There may ' +
'be quite a lag if a document with many graphics is being edited'
Caption = '&Automatically Update Previewer'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object chkShowPictures: TCheckBox
Left = 8
Top = 96
Width = 265
Height = 17
Hint =
'Show pictures or placeholders in the quick previewer. Turn this ' +
'off for faster redraws of the quick previewer'
Caption = '&Show Pictures'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
end
end
object tsCR: TTabSheet
Hint =
'This selects whether a carriage return should be automatically p' +
'laced before or after a tag.'
Caption = 'Carriage Returns'
ParentShowHint = False
ShowHint = True
object bvlTags: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object lblInsertReturns: TLabel
Left = 8
Top = 4
Width = 393
Height = 25
Caption = 'Select whether to start a new line before or after each tag type'
WordWrap = True
end
object gbDocumentTags: TGroupBox
Left = 4
Top = 32
Width = 118
Height = 65
Caption = 'Page Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object chkDocBegin: TCheckBox
Left = 8
Top = 18
Width = 57
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkDocEnd: TCheckBox
Left = 8
Top = 42
Width = 57
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbBlockTags: TGroupBox
Left = 4
Top = 99
Width = 118
Height = 65
Caption = 'Block Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object chkBlockBegin: TCheckBox
Left = 8
Top = 18
Width = 57
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkBlockEnd: TCheckBox
Left = 8
Top = 42
Width = 57
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbLogical: TGroupBox
Left = 4
Top = 165
Width = 118
Height = 65
Caption = 'Logical Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
object chkLogicalBegin: TCheckBox
Left = 8
Top = 18
Width = 65
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkLogicalEnd: TCheckBox
Left = 8
Top = 42
Width = 57
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbPhysical: TGroupBox
Left = 4
Top = 232
Width = 118
Height = 65
Caption = 'Physical Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
object chkPhysicalBegin: TCheckBox
Left = 8
Top = 18
Width = 57
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkPhysicalEnd: TCheckBox
Left = 8
Top = 42
Width = 65
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbHeadings: TGroupBox
Left = 128
Top = 32
Width = 118
Height = 65
Caption = 'Headings'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object chkHeadingBegin: TCheckBox
Left = 8
Top = 18
Width = 81
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkHeadingEnd: TCheckBox
Left = 8
Top = 42
Width = 81
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbListTags: TGroupBox
Left = 252
Top = 165
Width = 157
Height = 65
Caption = 'List Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
object chkListBegin: TCheckBox
Left = 8
Top = 18
Width = 61
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkListEnd: TCheckBox
Left = 8
Top = 42
Width = 97
Height = 17
Caption = 'End'
TabOrder = 1
end
object chkListItem: TCheckBox
Left = 80
Top = 18
Width = 65
Height = 17
Caption = 'List Item'
TabOrder = 2
end
end
object gbFormTags: TGroupBox
Left = 128
Top = 165
Width = 118
Height = 65
Caption = 'Form Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
object chkFormBegin: TCheckBox
Left = 8
Top = 18
Width = 73
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkFormEnd: TCheckBox
Left = 8
Top = 42
Width = 65
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbTable: TGroupBox
Left = 128
Top = 232
Width = 118
Height = 65
Caption = 'Table Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
object chkTableBegin: TCheckBox
Left = 8
Top = 18
Width = 81
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkTableEnd: TCheckBox
Left = 8
Top = 42
Width = 73
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbUserDefined: TGroupBox
Left = 252
Top = 99
Width = 157
Height = 65
Caption = 'User-defined Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
object chkCustomBegin: TCheckBox
Left = 8
Top = 18
Width = 97
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkCustomEnd: TCheckBox
Left = 8
Top = 42
Width = 97
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbAnchors: TGroupBox
Left = 128
Top = 99
Width = 118
Height = 65
Caption = 'Anchors / Links'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
object chkLinkBegin: TCheckBox
Left = 8
Top = 18
Width = 73
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkLinkEnd: TCheckBox
Left = 8
Top = 42
Width = 73
Height = 17
Caption = 'End'
TabOrder = 1
end
end
object gbOther: TGroupBox
Left = 252
Top = 232
Width = 157
Height = 65
Caption = 'Other'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
object chkInsertion: TCheckBox
Left = 8
Top = 18
Width = 120
Height = 17
Caption = 'After Insertion Tags'
TabOrder = 0
end
object chkSpecialChar: TCheckBox
Left = 8
Top = 42
Width = 120
Height = 17
Caption = 'After Special Chars'
TabOrder = 1
end
end
object gbMathTags: TGroupBox
Left = 252
Top = 32
Width = 157
Height = 65
Caption = 'Math Tags'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object chkMathBegin: TCheckBox
Left = 8
Top = 18
Width = 97
Height = 17
Caption = 'Begin'
TabOrder = 0
end
object chkMathEnd: TCheckBox
Left = 8
Top = 42
Width = 97
Height = 17
Caption = 'End'
TabOrder = 1
end
end
end
object tsPaths: TTabSheet
Caption = 'Tags && Paths'
object bvlTagsPaths: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object gbTags: TGroupBox
Left = 8
Top = 8
Width = 401
Height = 89
Caption = 'Tags'
TabOrder = 0
object gbTagCase: TGroupBox
Left = 96
Top = 24
Width = 209
Height = 41
Hint = 'Should tags be added to the document in UPPERCASE or lowercase?'
Caption = 'Tag case'
ParentShowHint = False
ShowHint = True
TabOrder = 0
object rbUppercase: TRadioButton
Left = 8
Top = 16
Width = 89
Height = 17
Hint = 'Should tags be added to the document in UPPERCASE or lowercase?'
Caption = 'U&ppercase'
TabOrder = 1
end
object rbLowercase: TRadioButton
Left = 112
Top = 16
Width = 81
Height = 17
Hint = 'Should tags be added to the document in UPPERCASE or lowercase?'
Caption = 'Low&ercase'
TabOrder = 0
end
end
end
object gbPathing: TGroupBox
Left = 8
Top = 104
Width = 401
Height = 193
Caption = 'Pathing'
TabOrder = 1
object lblFixedDirectory: TLabel
Left = 8
Top = 144
Width = 113
Height = 17
Caption = 'F&ixed directory'
FocusControl = txtFixed
end
object rgPath: TRadioGroup
Left = 8
Top = 16
Width = 209
Height = 113
Hint =
'The type of path to be used in all file references. See the help' +
' file for a complete description'
Caption = 'Path'
Items.Strings = (
'&None'
'&Absolute'
'&Relative'
'Relative to a &fixed directory')
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = rgPathClick
end
object chkFlipSlashes: TCheckBox
Left = 240
Top = 16
Width = 105
Height = 25
Hint = 'Use Unix style slashes '#39'/'#39' instead of DOS style slashes '#39'\'#39
Caption = 'Reverse &Slashes'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object txtFixed: TEdit
Left = 8
Top = 160
Width = 230
Height = 21
Hint = 'The directory to which all file references are relative to'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object bbtnBrowse: TBitBtn
Left = 244
Top = 159
Width = 77
Height = 25
Hint = 'Search for directory'
Caption = '&Browse'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = bbtnBrowseClick
Glyph.Data = {
12040000424D1204000000000000760000002800000054000000150000000100
0400000000009C03000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777700007777777777777777777777777777777777777777777777777777
77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777
7777777777777777777777777777777777777777777777777777777700007777
777777777777777777777FFFFFFFFFFFF77777777777777777777777777F7F7F
7F7F7F7F7F7F7F7F00007780000000000000777777778888888888888F777777
8000000000000077777778000000000000077777000077007B7B7B7B7B7B0777
77788F777777777778F77777007B7B7B7B7B7B07777F7007B7B7B7B7B7B07F7F
0000770F07B7B7B7B7B707777778F8F77777777778F777770707B7B7B7B7B7B0
777770707B7B7B7B7B7B07770000770B0B7B7B7B7B7B07777778F8F777777777
778F77770BB07B7B7B7B7B7B077F70BB07B7B7B7B7B7B07F0000770F0BB7B7B7
B7B7B0777778F78F77777777778F777707BF000007B7B7B7B077707B7000007B
7B7B7B070000770BF07B7B7B7B7B70777778F78FFFFF77777778F7770BFBFBFB
F0000000077F70B7BF0FFF000000007F0000770FB0B7B7B7B7B7B0777778F778
8888FFFFFFF8F77707BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770B
F07B7B7B7B7B7B077778F77777778888888777770BFBFBFBFBFBF077777F70B7
BF0FFFFFFFF07F7F0000770FBF000000B7B7B7077778F777777777778F777777
07BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770BFBFBFBF000000077
7778F7777FFFFFFF8F7777770BFBFBFBFBFBF077777F70B7BF0FFFFFFFF07F7F
0000770FBFBF0000000777777778FFFFF88888887777777707BFBF0000000777
7777707B7B0FFFFFFFF077770000777000007777777777777777888887777777
777777777000007777777777777F7F00000FFFFF00007F7F0000777777777777
77777777777777777777777777777777777777777777777777777777770FFFFF
0F07777700007777777777777777777777777777777777777777777777777777
77777777777F7F7F7F0FFFFF007F7F7F00007777777777777777777777777777
7777777777777777777777777777777777777777770000000777777700007777
77777777777777777777777777777777777777777777777777777777777F7F7F
7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777
77777777777777777777777777777777777777770000}
NumGlyphs = 4
end
end
end
object tsProject: TTabSheet
Caption = 'Project Manager'
object bvlProject: TBevel
Left = 0
Top = 0
Width = 414
Height = 305
Align = alClient
end
object gbProjectSettings: TGroupBox
Left = 8
Top = 8
Width = 393
Height = 121
Caption = 'Settings'
TabOrder = 0
object chkCloseOnShutdown: TCheckBox
Left = 32
Top = 48
Width = 273
Height = 17
Hint =
'When the Project Manager is shut down, should all open documents' +
' that belong to the project be closed?'
Caption = '&Close open documents on Project Manager shutdown'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object chkProjectManagerExtendedFunctionality: TCheckBox
Left = 32
Top = 24
Width = 137
Height = 17
Hint =
'With this turned on the Project manager can keep track of what f' +
'iles are loaded, what files have been modified, and what files e' +
'xist. There is a performance hit when using these features so us' +
'ers with slower machines might want to turn this off.'
Caption = '&Extended Functionality'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object chkPMStayOnTop: TCheckBox
Left = 32
Top = 72
Width = 97
Height = 17
Hint =
'When selected, the Project Manager will stay on top of all other' +
' windows.'
Caption = 'Stay on top'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
end
end
end
object pnlOptions: TPanel
Left = 0
Top = 351
Width = 422
Height = 35
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btnOk: TButton
Left = 178
Top = 6
Width = 75
Height = 25
Caption = 'Ok'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = btnOkClick
end
object btnCancel: TButton
Left = 261
Top = 6
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
OnClick = btnCancelClick
end
object btnHelp: TBitBtn
Left = 344
Top = 6
Width = 77
Height = 25
Caption = '&Help'
TabOrder = 2
OnClick = btnHelpClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end
end