object OptionsDialog: TOptionsDialog Left = 161 Top = 108 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Editor options' ClientHeight = 389 ClientWidth = 442 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown 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 = OptionsPage Align = alClient TabOrder = 1 object OptionsPage: TTabSheet Caption = 'Options' object Label15: TLabel Left = 7 Top = 253 Width = 104 Height = 13 Caption = 'Block Indent step size' end object Label16: TLabel Left = 7 Top = 276 Width = 89 Height = 13 Caption = 'Word wrap column' end object Label11: TLabel Left = 178 Top = 253 Width = 62 Height = 13 Alignment = taRightJustify Caption = 'Tab Columns' end object DefTabStopLabel: TLabel Left = 178 Top = 276 Width = 79 Height = 13 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.Charset = DEFAULT_CHARSET 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.Charset = DEFAULT_CHARSET 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 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 = 157 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 = 10 Top = 176 Width = 21 Height = 13 Caption = 'Font' end object FontSizeLabel: TLabel Left = 295 Top = 176 Width = 20 Height = 13 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 LangNameBox: TEdit Left = 120 Top = 3 Width = 297 Height = 21 TabStop = False Enabled = False TabOrder = 0 Text = 'LangNameBox' end object GroupBox1: TGroupBox Left = 280 Top = 33 Width = 137 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 = 125 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 ActiveParser = 1 Align = alClient ClipCopyFormats = [smTEXT, smRTF] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] HyperCursor = crDefault IndentStep = 1 Margin = 2 Lines.Strings = ( 'FEditor') Modified = False Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack] ReadOnly = True RightMargin = 80 SaveFormat = sfTEXT SelStart = 0 SelLength = 0 SelTextColor = clWhite SelTextBack = clTeal TabDefault = 4 TabOrder = 0 TabStop = False Version = '(I)1.09.00' VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES] WrapAtColumn = 0 OnMouseDown = EditorMouseDown end end object FontSizeBox: TComboBox Left = 345 Top = 172 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 = 60 Top = 172 Width = 225 Height = 21 ItemHeight = 0 TabOrder = 5 Text = 'FontNameBox' OnChange = FontNameBoxChange end object DefCheckBox: TGroupBox Left = 280 Top = 105 Width = 138 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 end object KeyMappingsPage: TTabSheet Caption = 'Key Assignments' object Panel3: TPanel Left = 0 Top = 0 Width = 0 Height = 0 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 2 TabOrder = 0 object CommandsLabel: TLabel Left = 16 Top = 16 Width = 61 Height = 13 Caption = 'Commands' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object UsesKeysLabel: TLabel Left = 245 Top = 16 Width = 60 Height = 13 Caption = 'Uses Keys' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Key1Label: TLabel Left = 245 Top = 171 Width = 29 Height = 13 Caption = 'Key1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Key2Label: TLabel Left = 245 Top = 194 Width = 29 Height = 13 Caption = 'Key2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] 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 = 305 Top = 218 Width = 45 Height = 21 Caption = 'Add...' TabOrder = 2 OnClick = AddButtonClick end object DeleteButton: TButton Left = 355 Top = 218 Width = 45 Height = 21 Caption = 'Delete' TabOrder = 3 OnClick = DeleteButtonClick end object Key1Box: THotKey Left = 304 Top = 168 Width = 121 Height = 19 HotKey = 65 InvalidKeys = [hcNone, hcShift] Modifiers = [hkExt] TabOrder = 4 OnEnter = Key1BoxEnter OnExit = Key1BoxExit end object Key2Box: THotKey Left = 304 Top = 194 Width = 121 Height = 19 HotKey = 65 InvalidKeys = [hcNone, hcShift] Modifiers = [hkExt] TabOrder = 5 OnEnter = Key2BoxEnter OnExit = Key2BoxExit end end end object AutoCorrectPage: TTabSheet Caption = 'Auto correct' object Panel4: TPanel Left = 0 Top = 0 Width = 434 Height = 320 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 2 TabOrder = 0 object ReplaceLabel: TLabel Left = 16 Top = 16 Width = 48 Height = 13 Caption = 'Replace' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object WithLabel: TLabel Left = 160 Top = 16 Width = 27 Height = 13 Caption = 'With' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ActKeysLabel: TLabel Left = 195 Top = 281 Width = 58 Height = 13 Caption = 'Act key(s)' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] 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.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' 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 = 21 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnChange = ReplaceBoxChange end object WithBox: TEdit Left = 153 Top = 246 Width = 264 Height = 21 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' 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 BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 2 TabOrder = 0 object NameLabel: TLabel Left = 16 Top = 16 Width = 33 Height = 13 Caption = 'Name' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DescLabel: TLabel Left = 160 Top = 16 Width = 65 Height = 13 Caption = 'Description' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object HotKeyLabel: TLabel Left = 240 Top = 292 Width = 41 Height = 13 Caption = 'Hotkey' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object TemplateValueLabel: TLabel Left = 16 Top = 136 Width = 82 Height = 13 Caption = 'Code template' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object cteListBox: TListBox Left = 16 Top = 32 Width = 401 Height = 73 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' 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 = 21 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'cteNameBox' OnChange = cteNameBoxChange end object cteDescBox: TEdit Left = 146 Top = 106 Width = 271 Height = 21 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' 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 ActiveParser = 1 Align = alClient ClipCopyFormats = [smTEXT, smRTF] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] HyperCursor = crDefault IndentStep = 1 Margin = 2 Modified = False Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack] ReadOnly = False RightMargin = 80 SaveFormat = sfTEXT SelStart = 0 SelLength = 0 SelTextColor = clWhite SelTextBack = clTeal TabDefault = 4 TabOrder = 0 Version = '(I)1.09.00' VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES] WrapAtColumn = 0 OnChange = SyntaxMemo1Change OnDataDrop = SyntaxMemo1DataDrop 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 end end end end end