home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 December
/
12_02.iso
/
games
/
top
/
files
/
ut2003-demo.exe
/
System
/
dinterface.dll
/
0
/
RCDATA
/
TOPTIONSDIALOG
/
TOPTIONSDIALOG.txt
Wrap
Text File
|
2002-08-12
|
27KB
|
1,045 lines
object OptionsDialog: TOptionsDialog
Left = 584
Top = 108
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Editor options'
ClientHeight = 389
ClientWidth = 442
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 348
Width = 442
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object OKButton: TButton
Left = 245
Top = 8
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = OKButtonClick
end
object CancelButton: TButton
Left = 333
Top = 8
Width = 75
Height = 25
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 442
Height = 348
ActivePage = AutoCorrectPage
Align = alClient
TabOrder = 1
object OptionsPage: TTabSheet
Caption = 'Options'
object Label15: TLabel
Left = 7
Top = 253
Width = 104
Height = 13
Alignment = taRightJustify
Caption = 'Block Indent step size'
end
object Label16: TLabel
Left = 22
Top = 276
Width = 89
Height = 13
Alignment = taRightJustify
Caption = 'Word wrap column'
end
object Label11: TLabel
Left = 196
Top = 253
Width = 62
Height = 13
Alignment = taRightJustify
Caption = 'Tab Columns'
end
object DefTabStopLabel: TLabel
Left = 179
Top = 276
Width = 79
Height = 13
Alignment = taRightJustify
Caption = 'Default Tab stop'
end
object GroupBox4: TGroupBox
Left = 8
Top = 8
Width = 417
Height = 171
Caption = 'Options'
TabOrder = 0
object Label13: TLabel
Left = 12
Top = 21
Width = 72
Height = 13
Caption = 'Print options'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 134
Top = 21
Width = 90
Height = 13
Caption = 'General options'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object WrapLineBox: TCheckBox
Left = 16
Top = 35
Width = 110
Height = 17
Caption = 'Wrap long lines'
TabOrder = 0
OnClick = SHIFTSelectBoxClick
end
object LineNosBox: TCheckBox
Left = 16
Top = 51
Width = 110
Height = 17
Caption = 'Line numbers'
TabOrder = 1
OnClick = SHIFTSelectBoxClick
end
object FileNamBox: TCheckBox
Left = 16
Top = 67
Width = 110
Height = 17
Caption = 'Title in header'
TabOrder = 2
OnClick = SHIFTSelectBoxClick
end
object DateBox: TCheckBox
Left = 16
Top = 83
Width = 110
Height = 17
Caption = 'Date in header'
TabOrder = 3
OnClick = SHIFTSelectBoxClick
end
object PageNosBox: TCheckBox
Left = 16
Top = 99
Width = 110
Height = 17
Caption = 'Page numbers'
TabOrder = 4
OnClick = SHIFTSelectBoxClick
end
object DispWrapBox: TCheckBox
Left = 138
Top = 35
Width = 130
Height = 17
Caption = 'Word wrap'
TabOrder = 5
OnClick = SHIFTSelectBoxClick
end
object Panel6: TPanel
Left = 128
Top = 12
Width = 2
Height = 151
BevelOuter = bvLowered
Caption = 'Panel6'
TabOrder = 6
end
object AutoIndentBox: TCheckBox
Left = 138
Top = 67
Width = 130
Height = 17
Caption = 'Auto-indent'
TabOrder = 7
OnClick = SHIFTSelectBoxClick
end
object TabColBox: TCheckBox
Left = 138
Top = 83
Width = 130
Height = 17
Caption = 'Smart tabs'
TabOrder = 8
OnClick = SHIFTSelectBoxClick
end
object WrapOverrideBox: TCheckBox
Left = 138
Top = 51
Width = 130
Height = 17
Caption = 'Override wrapping'
TabOrder = 9
OnClick = SHIFTSelectBoxClick
end
object WordSelectBox: TCheckBox
Left = 270
Top = 83
Width = 145
Height = 17
Caption = 'Word select'
TabOrder = 10
OnClick = SHIFTSelectBoxClick
end
object PrnSynHighlightBox: TCheckBox
Left = 270
Top = 99
Width = 145
Height = 17
Caption = 'Syntax highlighting'
TabOrder = 11
OnClick = SHIFTSelectBoxClick
end
object TitleAsFilenameBox: TCheckBox
Left = 270
Top = 51
Width = 145
Height = 17
Caption = 'Title as filename'
TabOrder = 12
OnClick = SHIFTSelectBoxClick
end
object BlockCursorBox: TCheckBox
Left = 270
Top = 67
Width = 145
Height = 17
Caption = 'Block cursor for Overwrite'
TabOrder = 13
OnClick = SHIFTSelectBoxClick
end
object MarkWrapBox: TCheckBox
Left = 270
Top = 35
Width = 145
Height = 17
Caption = 'Mark wrapped lines'
TabOrder = 14
OnClick = SHIFTSelectBoxClick
end
object SmartFillBox: TCheckBox
Left = 138
Top = 99
Width = 130
Height = 17
Caption = 'Smart fill'
TabOrder = 15
OnClick = SHIFTSelectBoxClick
end
object UseTabBox: TCheckBox
Left = 138
Top = 115
Width = 130
Height = 17
Caption = 'Use TAB character'
TabOrder = 16
OnClick = SHIFTSelectBoxClick
end
object CursorAfterEOLBox: TCheckBox
Left = 270
Top = 115
Width = 145
Height = 17
Caption = 'Cursor beyond EOL'
TabOrder = 17
OnClick = SHIFTSelectBoxClick
end
object EdLineNosBox: TCheckBox
Left = 138
Top = 131
Width = 130
Height = 17
Caption = 'Line numbers in gutter'
TabOrder = 18
OnClick = SHIFTSelectBoxClick
end
object ShowAllCharsBox: TCheckBox
Left = 270
Top = 131
Width = 145
Height = 17
Caption = 'Show all characters'
TabOrder = 19
OnClick = SHIFTSelectBoxClick
end
end
object WrapColumnBox: TEdit
Left = 118
Top = 272
Width = 25
Height = 21
TabOrder = 1
Text = 'WrapColumnBox'
OnExit = WrapColumnBoxExit
OnKeyDown = WrapColumnBoxKeyDown
end
object IndentStepBox: TEdit
Left = 118
Top = 249
Width = 25
Height = 21
TabOrder = 2
Text = 'IndentStepBox'
OnExit = IndentStepBoxExit
OnKeyDown = WrapColumnBoxKeyDown
end
object GroupBox2: TGroupBox
Left = 8
Top = 182
Width = 417
Height = 59
TabOrder = 3
object Label7: TLabel
Left = 16
Top = 36
Width = 59
Height = 13
Caption = 'Right margin'
end
object Label9: TLabel
Left = 184
Top = 36
Width = 57
Height = 13
Caption = 'Gutter width'
end
object VisRMarginBox: TCheckBox
Left = 16
Top = 12
Width = 121
Height = 17
Caption = 'Visible Right margin'
TabOrder = 0
OnClick = SHIFTSelectBoxClick
end
object RightMarginWidthBox: TEdit
Tag = 2
Left = 83
Top = 32
Width = 45
Height = 21
MaxLength = 3
TabOrder = 1
Text = '1'
OnChange = LeftBorderWidthBoxChange
OnKeyDown = LeftBorderWidthBoxKeyDown
end
object VisGutterBox: TCheckBox
Left = 184
Top = 12
Width = 97
Height = 17
Caption = 'Visible Gutter'
TabOrder = 2
OnClick = SHIFTSelectBoxClick
end
object LeftBorderWidthBox: TEdit
Tag = 1
Left = 247
Top = 32
Width = 45
Height = 21
MaxLength = 3
TabOrder = 3
Text = '1'
OnChange = LeftBorderWidthBoxChange
OnKeyDown = LeftBorderWidthBoxKeyDown
end
end
object ShowWrapColumnBox: TCheckBox
Left = 6
Top = 296
Width = 137
Height = 17
Alignment = taLeftJustify
Caption = 'Show word-wrap column'
TabOrder = 4
OnClick = SHIFTSelectBoxClick
end
object TabColumnsBox: TEdit
Left = 264
Top = 249
Width = 160
Height = 21
TabOrder = 5
Text = 'TabColumnsBox'
OnExit = TabColumnsBoxExit
end
object DeftabBox: TEdit
Left = 264
Top = 272
Width = 25
Height = 21
TabOrder = 6
Text = 'DeftabBox'
OnExit = DeftabBoxExit
end
end
object HighlightingPage: TTabSheet
Caption = 'Highlighting'
object Label3: TLabel
Left = 10
Top = 7
Width = 105
Height = 13
Caption = 'Current language style'
end
object ElementLabel: TLabel
Left = 10
Top = 24
Width = 38
Height = 13
Caption = 'Element'
end
object FontNameLabel: TLabel
Left = 9
Top = 150
Width = 21
Height = 13
Alignment = taRightJustify
Caption = 'Font'
end
object FontSizeLabel: TLabel
Left = 214
Top = 150
Width = 20
Height = 13
Alignment = taRightJustify
Caption = 'Size'
end
object FGLabel: TLabel
Left = 136
Top = 37
Width = 54
Height = 13
Caption = 'Foreground'
end
object BGLabel: TLabel
Left = 136
Top = 88
Width = 58
Height = 13
Caption = 'Background'
end
object Label1: TLabel
Left = 8
Top = 176
Width = 36
Height = 13
Alignment = taRightJustify
Caption = 'Charset'
end
object LangNameBox: TEdit
Left = 120
Top = 3
Width = 297
Height = 21
TabStop = False
Enabled = False
TabOrder = 0
Text = 'LangNameBox'
end
object GroupBox1: TGroupBox
Left = 304
Top = 33
Width = 113
Height = 65
Caption = 'Text attributes'
TabOrder = 1
object UseBoldBox: TCheckBox
Tag = 1
Left = 10
Top = 13
Width = 97
Height = 17
Caption = '&Bold'
TabOrder = 0
OnClick = UseBoldBoxClick
end
object UseItalicBox: TCheckBox
Tag = 2
Left = 10
Top = 29
Width = 97
Height = 17
Caption = '&Italic'
TabOrder = 1
OnClick = UseBoldBoxClick
end
object UseUnderlineBox: TCheckBox
Tag = 3
Left = 10
Top = 45
Width = 97
Height = 17
Caption = '&Underline'
TabOrder = 2
OnClick = UseBoldBoxClick
end
end
object SynElementsBox: TListBox
Left = 8
Top = 38
Width = 121
Height = 99
ItemHeight = 13
TabOrder = 2
OnClick = SynElementsBoxClick
end
object Panel1: TPanel
Left = 8
Top = 204
Width = 417
Height = 113
BevelOuter = bvNone
TabOrder = 3
object FEditor: TSyntaxMemo
Tag = 2
Left = 0
Top = 0
Width = 417
Height = 113
Align = alClient
ClipCopyFormats = [smTEXT, smRTF]
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
GutterFont.Color = clWindowText
GutterFont.Height = -11
GutterFont.Name = 'MS Sans Serif'
GutterFont.Style = []
HyperCursor = crDefault
IndentStep = 1
Lines.Strings = (
'FEditor')
Margin = 2
Modified = False
MonoPrint = True
Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack]
ReadOnly = True
RightMargin = 80
SaveFormat = sfTEXT
ScrollBars = ssBoth
SelLineStyle = lsLF
SelStart = 0
SelLength = 0
SelTextColor = clWhite
SelTextBack = clTeal
TabDefault = 4
TabOrder = 0
TabStop = False
Version = '3.00.36_alr'
VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES]
WrapAtColumn = 0
OnMouseDown = EditorMouseDown
ActiveParser = 1
end
end
object FontSizeBox: TComboBox
Left = 242
Top = 146
Width = 55
Height = 21
ItemHeight = 13
Items.Strings = (
'8'
'9'
'10'
'11'
'12'
'14'
'16'
'18'
'20'
'22'
'24'
'26'
'30')
TabOrder = 4
Text = 'FontSizeBox'
OnChange = FontSizeBoxChange
end
object FontNameBox: TComboBox
Left = 53
Top = 146
Width = 150
Height = 21
ItemHeight = 0
TabOrder = 5
Text = 'FontNameBox'
OnChange = FontNameBoxChange
end
object DefCheckBox: TGroupBox
Left = 304
Top = 110
Width = 114
Height = 56
Caption = 'Use defaults for'
TabOrder = 6
object UseDefForeBox: TCheckBox
Tag = 1
Left = 8
Top = 16
Width = 97
Height = 17
Caption = 'Foreground'
TabOrder = 0
OnClick = UseDefForeBoxClick
end
object UseDefBackBox: TCheckBox
Left = 8
Top = 33
Width = 97
Height = 17
Caption = 'Background'
TabOrder = 1
OnClick = UseDefForeBoxClick
end
end
object FontFamilyBox: TComboBox
Left = 53
Top = 171
Width = 150
Height = 21
ItemHeight = 0
TabOrder = 7
Text = 'FontFamilyBox'
OnChange = FontFamilyBoxChange
end
end
object KeyMappingsPage: TTabSheet
Caption = 'Key Assignments'
object Panel3: TPanel
Left = 0
Top = 0
Width = 434
Height = 320
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 0
object CommandsLabel: TLabel
Left = 16
Top = 16
Width = 52
Height = 13
Caption = 'Commands'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object UsesKeysLabel: TLabel
Left = 245
Top = 16
Width = 50
Height = 13
Caption = 'Uses Keys'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object CommandDescListBox: TListBox
Left = 16
Top = 32
Width = 209
Height = 273
ExtendedSelect = False
ItemHeight = 13
TabOrder = 0
OnClick = CommandDescListBoxClick
end
object CommandKeysListBox: TListBox
Left = 241
Top = 32
Width = 185
Height = 130
ExtendedSelect = False
ItemHeight = 13
TabOrder = 1
OnClick = CommandKeysListBoxClick
OnExit = CommandKeysListBoxExit
end
object AddButton: TButton
Left = 279
Top = 170
Width = 45
Height = 21
Caption = 'Add'
TabOrder = 2
OnClick = AddButtonClick
end
object DeleteButton: TButton
Left = 379
Top = 170
Width = 45
Height = 21
Caption = 'Delete'
TabOrder = 3
OnClick = DeleteButtonClick
end
object EditButton: TButton
Left = 329
Top = 170
Width = 45
Height = 21
Caption = 'Edit'
TabOrder = 4
OnClick = EditButtonClick
end
end
end
object AutoCorrectPage: TTabSheet
Caption = 'Auto Correct'
object Panel4: TPanel
Left = 0
Top = 0
Width = 434
Height = 320
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 0
object ReplaceLabel: TLabel
Left = 16
Top = 16
Width = 40
Height = 13
Caption = 'Replace'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object WithLabel: TLabel
Left = 160
Top = 16
Width = 22
Height = 13
Caption = 'With'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ActKeysLabel: TLabel
Left = 195
Top = 281
Width = 47
Height = 13
Caption = 'Act key(s)'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object AutoReplButton1: TButton
Left = 16
Top = 278
Width = 65
Height = 19
Caption = 'Add'
TabOrder = 0
OnClick = AutoReplButton1Click
end
object AutoReplButton2: TButton
Left = 104
Top = 278
Width = 65
Height = 19
Caption = 'Replace'
TabOrder = 1
OnClick = AutoReplButton2Click
end
object AutoReplBox: TListBox
Left = 16
Top = 32
Width = 401
Height = 213
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 16
Items.Strings = (
'one'
'three'
'two')
ParentFont = False
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 2
OnClick = AutoReplBoxClick
OnDrawItem = AutoReplBoxDrawItem
OnMeasureItem = AutoReplBoxMeasureItem
end
object ReplaceBox: TEdit
Left = 16
Top = 246
Width = 137
Height = 22
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 3
OnChange = ReplaceBoxChange
end
object WithBox: TEdit
Left = 153
Top = 246
Width = 264
Height = 22
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 4
OnChange = WithBoxChange
end
object AutoReplActBox: TEdit
Left = 256
Top = 277
Width = 161
Height = 21
TabOrder = 5
Text = 'AutoReplActBox'
OnExit = AutoReplActBoxExit
end
end
end
object TemplatesPage: TTabSheet
Caption = 'Code Templates'
object Panel5: TPanel
Left = 0
Top = 0
Width = 434
Height = 320
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 0
object NameLabel: TLabel
Left = 16
Top = 16
Width = 28
Height = 13
Caption = 'Name'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DescLabel: TLabel
Left = 160
Top = 16
Width = 53
Height = 13
Caption = 'Description'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object HotKeyLabel: TLabel
Left = 240
Top = 292
Width = 34
Height = 13
Caption = 'Hotkey'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TemplateValueLabel: TLabel
Left = 16
Top = 136
Width = 68
Height = 13
Caption = 'Code template'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object cteListBox: TListBox
Left = 16
Top = 32
Width = 401
Height = 73
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 16
Items.Strings = (
'one'
'three'
'two')
ParentFont = False
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 0
OnClick = cteListBoxClick
OnDrawItem = AutoReplBoxDrawItem
OnMeasureItem = AutoReplBoxMeasureItem
end
object cteNameBox: TEdit
Left = 16
Top = 106
Width = 131
Height = 22
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = 'cteNameBox'
OnChange = cteNameBoxChange
end
object cteDescBox: TEdit
Left = 146
Top = 106
Width = 271
Height = 22
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'cteDescBox'
OnChange = cteDescBoxChange
end
object cteSynMemoPanel: TPanel
Left = 16
Top = 151
Width = 401
Height = 129
BevelOuter = bvNone
TabOrder = 3
object SyntaxMemo1: TSyntaxMemo
Left = 0
Top = 0
Width = 401
Height = 129
Align = alClient
ClipCopyFormats = [smTEXT, smRTF]
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
GutterFont.Color = clWindowText
GutterFont.Height = -11
GutterFont.Name = 'MS Sans Serif'
GutterFont.Style = []
HyperCursor = crDefault
IndentStep = 1
Margin = 2
Modified = False
MonoPrint = True
Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack]
ReadOnly = False
RightMargin = 80
SaveFormat = sfTEXT
ScrollBars = ssBoth
SelLineStyle = lsLF
SelStart = 0
SelLength = 0
SelTextColor = clWhite
SelTextBack = clTeal
TabDefault = 4
TabOrder = 0
Version = '3.00.36_alr'
VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES]
WrapAtColumn = 0
OnChange = SyntaxMemo1Change
OnDataDrop = SyntaxMemo1DataDrop
ActiveParser = 1
end
end
object CodeTemplateButton1: TButton
Left = 16
Top = 291
Width = 65
Height = 19
Caption = 'Add'
TabOrder = 4
OnClick = CodeTemplateButton1Click
end
object CodeTemplateButton2: TButton
Left = 104
Top = 291
Width = 65
Height = 19
Caption = 'Replace'
TabOrder = 5
OnClick = CodeTemplateButton2Click
end
object cteHotkey: THotKey
Left = 296
Top = 288
Width = 121
Height = 19
HotKey = 32833
InvalidKeys = [hcNone, hcShift]
Modifiers = [hkAlt]
TabOrder = 6
OnExit = cteHotkeyExit
end
end
end
end
end