object EnvDialog: TEnvDialog Left = 241 Top = 106 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Environment Options' ClientHeight = 371 ClientWidth = 403 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PopupMenu = PopupMenu1 Position = poScreenCenter OnCreate = DialogCreate OnDestroy = DialogDestroy PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 336 Width = 403 Height = 35 Align = alBottom BevelOuter = bvNone TabOrder = 1 object HelpButton: TButton Left = 323 Top = 2 Width = 75 Height = 25 Caption = '&Help' TabOrder = 2 OnClick = HelpButtonClick end object OKButton: TButton Left = 161 Top = 2 Width = 75 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OKButtonClick end object Button2: TButton Left = 242 Top = 2 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end object Panel2: TPanel Left = 0 Top = 0 Width = 403 Height = 336 Align = alClient BevelOuter = bvNone BorderWidth = 5 TabOrder = 0 object PageControl: TPageControl Left = 5 Top = 5 Width = 393 Height = 326 ActivePage = PalPage Align = alClient TabOrder = 0 OnChange = TabControlClick OnChanging = TabControlChange object PrefPage: TTabSheet HelpContext = 1800 Caption = 'Preferences' object gbAutoSave: TGroupBox Left = 196 Top = 8 Width = 181 Height = 89 Caption = 'Autosave options:' TabOrder = 1 object cbASEditor: TCheckBox Left = 8 Top = 16 Width = 150 Height = 20 Caption = 'Editor &files' TabOrder = 0 end object cbASDesktop: TCheckBox Left = 8 Top = 36 Width = 150 Height = 20 TabStop = False Caption = 'Des&ktop' TabOrder = 1 end end object gbFormDesigner: TGroupBox Left = 8 Top = 106 Width = 370 Height = 82 Caption = 'Form designer:' TabOrder = 2 object lbGridX: TLabel Left = 180 Top = 19 Width = 70 Height = 17 AutoSize = False Caption = 'Grid size &X' FocusControl = ecGridSizeX end object lbGridY: TLabel Left = 180 Top = 39 Width = 70 Height = 17 AutoSize = False Caption = 'Grid size &Y' FocusControl = ecGridSizeY end object cbDisplayGrid: TCheckBox Left = 8 Top = 16 Width = 150 Height = 20 Caption = 'Display &grid' TabOrder = 0 end object cbSnapToGrid: TCheckBox Left = 8 Top = 36 Width = 150 Height = 20 TabStop = False Caption = 'Sna&p to grid' TabOrder = 1 end object ecGridSizeX: TEdit Left = 252 Top = 13 Width = 80 Height = 21 TabOrder = 3 end object ecGridSizeY: TEdit Left = 252 Top = 37 Width = 80 Height = 21 TabOrder = 4 end object cbShowComponentCaptions: TCheckBox Left = 8 Top = 56 Width = 150 Height = 17 TabStop = False Caption = 'Sho&w component captions' TabOrder = 2 end end object gbDebugging: TGroupBox Left = 8 Top = 194 Width = 370 Height = 87 Caption = 'Debugging:' TabOrder = 3 object Label2: TLabel Left = 8 Top = 56 Width = 85 Height = 17 AutoSize = False Caption = 'Path for &source:' FocusControl = ecPathForSource end object cbIntegratedDebugging: TCheckBox Left = 8 Top = 16 Width = 150 Height = 20 Caption = '&Integrated debugging' TabOrder = 0 end object cbBreakOnException: TCheckBox Left = 180 Top = 16 Width = 150 Height = 20 TabStop = False Caption = '&Break on exception' TabOrder = 2 end object cbMinimizeOnRun: TCheckBox Left = 180 Top = 36 Width = 169 Height = 17 TabStop = False Caption = '&Minimize on run' TabOrder = 3 end object cbHideDesigners: TCheckBox Left = 8 Top = 36 Width = 160 Height = 17 TabStop = False Caption = 'Hide d&esigners on run' TabOrder = 1 end object ecPathForSource: TEdit Left = 96 Top = 56 Width = 265 Height = 21 TabOrder = 4 end end object gbCompiling: TGroupBox Left = 8 Top = 8 Width = 185 Height = 89 Caption = 'Compiling:' TabOrder = 0 object cbShowProgress: TCheckBox Left = 8 Top = 16 Width = 165 Height = 20 Caption = 'Show &compiler progress' TabOrder = 0 end object cbCacheOnStartup: TCheckBox Left = 8 Top = 60 Width = 165 Height = 20 TabStop = False Caption = 'Cache &hdrs on startup' TabOrder = 2 end object cbCompileBeep: TCheckBox Left = 8 Top = 40 Width = 169 Height = 17 TabStop = False Caption = 'Beep on comp&letion' TabOrder = 1 end end end object LibPage: TTabSheet HelpContext = 1875 Caption = 'Library' object gbOptions: TGroupBox Left = 8 Top = 120 Width = 369 Height = 65 Caption = 'Options' TabOrder = 2 object cbLibDebugInfo: TCheckBox Left = 8 Top = 20 Width = 169 Height = 17 Caption = 'Build with de&bug info' TabOrder = 0 end object cbLibSaveSource: TCheckBox Left = 8 Top = 40 Width = 161 Height = 17 TabStop = False Caption = 'Sa&ve library source code' TabOrder = 1 end object cbUseIncLink: TCheckBox Left = 193 Top = 20 Width = 169 Height = 17 Caption = 'Use incremen&tal linker' TabOrder = 2 end object cbVclDebug: TCheckBox Left = 193 Top = 40 Width = 161 Height = 17 TabStop = False Caption = 'Link with deb&ug VCL' TabOrder = 3 end end object gbMapFile: TGroupBox Left = 8 Top = 8 Width = 177 Height = 101 Caption = 'Map file' TabOrder = 0 object rbMapFileOff: TRadioButton Left = 8 Top = 16 Width = 121 Height = 17 Caption = '&Off' TabOrder = 0 TabStop = True end object rbMapSegOnly: TRadioButton Left = 8 Top = 36 Width = 121 Height = 17 Caption = '&Segments' TabOrder = 1 end object rbMapSegPubs: TRadioButton Left = 8 Top = 56 Width = 121 Height = 17 Caption = '&Publics' TabOrder = 2 end object rbMapDetailed: TRadioButton Left = 8 Top = 76 Width = 121 Height = 17 Caption = '&Detailed' TabOrder = 3 end end object gbMessages: TGroupBox Left = 192 Top = 8 Width = 185 Height = 101 Caption = 'Messages' TabOrder = 1 object cbShowHints: TCheckBox Left = 8 Top = 16 Width = 121 Height = 17 Caption = 'Show hi&nts' TabOrder = 0 end object cbShowWarnings: TCheckBox Left = 8 Top = 36 Width = 121 Height = 17 TabStop = False Caption = 'Show &warnings' TabOrder = 1 end end object gbPath: TGroupBox Left = 8 Top = 196 Width = 369 Height = 85 Caption = 'Path' TabOrder = 3 object Label17: TLabel Left = 8 Top = 51 Width = 81 Height = 17 AutoSize = False Caption = '&Library path:' FocusControl = ecLibraryPath end object Label1: TLabel Left = 8 Top = 19 Width = 81 Height = 17 AutoSize = False Caption = '&Include path:' FocusControl = ecIncludePath end object ecLibraryPath: TComboBox Left = 96 Top = 48 Width = 257 Height = 21 ItemHeight = 0 TabOrder = 1 end object ecIncludePath: TComboBox Left = 96 Top = 16 Width = 257 Height = 21 ItemHeight = 0 TabOrder = 0 end end end object EditorPage: TTabSheet HelpContext = 1850 Caption = 'Editor' object lbUndo: TLabel Left = 224 Top = 218 Width = 74 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Undo &limit:' FocusControl = eoUndoLimit end object Label5: TLabel Left = 56 Top = 246 Width = 75 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '&Tab stops:' FocusControl = eoTabRack end object lbBlockInd: TLabel Left = 40 Top = 218 Width = 91 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Block i&ndent:' FocusControl = eoBlockIndent end object Label6: TLabel Left = 24 Top = 274 Width = 107 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'S&yntax extensions:' FocusControl = eoHighlightExts end object Label21: TLabel Left = 16 Top = 10 Width = 113 Height = 17 AutoSize = False Caption = 'Editor speed setting:' FocusControl = SpeedSetting end object GroupBox5: TGroupBox Left = 8 Top = 32 Width = 368 Height = 175 Caption = 'Editor options:' TabOrder = 1 object eoIndent: TCheckBox Left = 7 Top = 17 Width = 150 Height = 17 Caption = '&Auto indent mode' TabOrder = 0 end object eoInsert: TCheckBox Left = 7 Top = 34 Width = 150 Height = 17 TabStop = False Caption = '&Insert mode' TabOrder = 1 end object eoUseTabChar: TCheckBox Left = 7 Top = 51 Width = 150 Height = 17 TabStop = False Caption = 'Use tab cha&racter' TabOrder = 2 OnClick = eoUseTabCharClick end object eoOptimalFill: TCheckBox Left = 7 Top = 85 Width = 150 Height = 17 TabStop = False Caption = '&Optimal fill' TabOrder = 4 end object eoOutdent: TCheckBox Left = 7 Top = 102 Width = 150 Height = 17 TabStop = False Caption = 'Backspace &unindents' TabOrder = 5 end object eoCursorInTabs: TCheckBox Left = 7 Top = 119 Width = 150 Height = 17 TabStop = False Caption = '&Cursor through tabs' TabOrder = 6 end object eoGroupUndo: TCheckBox Left = 7 Top = 136 Width = 150 Height = 17 TabStop = False Caption = '&Group undo' TabOrder = 7 end object eoCursorBeyondEOF: TCheckBox Left = 7 Top = 153 Width = 150 Height = 17 TabStop = False Caption = 'Cursor beyond &EOF' TabOrder = 8 end object eoUndoAfterSave: TCheckBox Left = 177 Top = 17 Width = 150 Height = 17 TabStop = False Caption = 'Undo after sa&ve' TabOrder = 9 end object eoKeepTrailingBlanks: TCheckBox Left = 177 Top = 34 Width = 150 Height = 17 TabStop = False Caption = '&Keep trailing blanks' TabOrder = 10 end object eoBriefRegExp: TCheckBox Left = 177 Top = 51 Width = 174 Height = 17 TabStop = False Caption = '&BRIEF regular expressions' TabOrder = 11 end object eoPersistentBlocks: TCheckBox Left = 177 Top = 68 Width = 150 Height = 17 TabStop = False Caption = '&Persistent blocks' TabOrder = 12 end object eoOverwriteBlocks: TCheckBox Left = 177 Top = 85 Width = 150 Height = 17 TabStop = False Caption = 'Over&write blocks' TabOrder = 13 end object eoDoubleClickLine: TCheckBox Left = 177 Top = 102 Width = 150 Height = 17 TabStop = False Caption = '&Double click line' TabOrder = 14 end object eoFindTextAtCursor: TCheckBox Left = 177 Top = 119 Width = 150 Height = 17 TabStop = False Caption = 'Find te&xt at cursor' TabOrder = 15 end object eoHighlight: TCheckBox Left = 177 Top = 153 Width = 178 Height = 17 TabStop = False Caption = 'Use &syntax highlight' TabOrder = 17 end object eoForceCutCopyEnabled: TCheckBox Left = 177 Top = 136 Width = 182 Height = 17 TabStop = False Caption = '&Force cut and copy enabled' TabOrder = 16 end object eoSmartTab: TCheckBox Left = 7 Top = 68 Width = 150 Height = 17 TabStop = False Caption = 'S&mart tab' TabOrder = 3 OnClick = eoSmartTabClick end end object eoBlockIndent: TComboBox Left = 136 Top = 214 Width = 72 Height = 21 ItemHeight = 0 TabOrder = 2 OnKeyPress = NumbersOnly end object eoUndoLimit: TComboBox Left = 303 Top = 214 Width = 72 Height = 21 ItemHeight = 0 TabOrder = 3 OnKeyPress = NumbersOnly end object eoTabRack: TComboBox Left = 136 Top = 242 Width = 240 Height = 21 ItemHeight = 0 TabOrder = 4 OnKeyPress = NumsAndDelims end object eoHighlightExts: TComboBox Left = 136 Top = 270 Width = 240 Height = 21 ItemHeight = 0 TabOrder = 5 end object SpeedSetting: TComboBox Left = 136 Top = 6 Width = 240 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Default keymapping' 'IDE classic' 'BRIEF emulation' 'Epsilon emulation') TabOrder = 0 OnChange = EditorSpeedClick OnClick = EditorSpeedClick end end object EdDispPage: TTabSheet HelpContext = 2075 Caption = 'Display' object Label4: TLabel Left = 8 Top = 174 Width = 65 Height = 17 AutoSize = False Caption = 'Editor &font:' FocusControl = FontName end object Label7: TLabel Left = 278 Top = 174 Width = 33 Height = 17 AutoSize = False Caption = '&Size:' FocusControl = FontSize end object Label11: TLabel Left = 8 Top = 72 Width = 150 Height = 17 AutoSize = False Caption = '&Keystroke mapping:' FocusControl = eoBindingList end object Label16: TLabel Left = 8 Top = 195 Width = 38 Height = 13 Caption = 'Sample:' end object GroupBox11: TGroupBox Left = 196 Top = 72 Width = 180 Height = 85 TabOrder = 2 object lbRightMargin: TLabel Left = 10 Top = 41 Width = 79 Height = 17 AutoSize = False Caption = 'Right &margin:' FocusControl = eoRightMargin end object eoLineOnMargin: TCheckBox Left = 11 Top = 14 Width = 138 Height = 20 Caption = '&Visible right margin' TabOrder = 0 OnClick = LineOnMarginClick end object eoRightMargin: TComboBox Left = 94 Top = 38 Width = 63 Height = 21 ItemHeight = 0 TabOrder = 1 Text = 'eoRightMargin' end end object GroupBox10: TGroupBox Left = 8 Top = 8 Width = 368 Height = 57 Caption = 'Display and file options:' TabOrder = 0 object eoBriefCursors: TCheckBox Left = 7 Top = 16 Width = 150 Height = 17 Caption = 'BRIEF &cursor shapes' TabOrder = 0 end object eoCreateBackup: TCheckBox Left = 7 Top = 34 Width = 150 Height = 17 TabStop = False Caption = 'Create &backup file' TabOrder = 1 end object eoPreserveLineEnds: TCheckBox Left = 185 Top = 16 Width = 150 Height = 17 TabStop = False Caption = '&Preserve line ends' TabOrder = 2 end object eoFullZoom: TCheckBox Left = 185 Top = 34 Width = 150 Height = 17 TabStop = False Caption = '&Zoom to full screen' TabOrder = 3 end end object FontName: TComboBox Left = 78 Top = 170 Width = 186 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 3 OnClick = FontNameClicked end object FontSize: TComboBox Left = 312 Top = 170 Width = 63 Height = 21 ItemHeight = 0 TabOrder = 4 OnClick = FontSizeClicked end object eoBindingList: TListBox Left = 8 Top = 90 Width = 177 Height = 66 ItemHeight = 13 Items.Strings = ( 'Default' 'Classic' 'Brief' 'Epsilon') TabOrder = 1 end object FontSample: TPanel Left = 8 Top = 210 Width = 369 Height = 55 BevelOuter = bvLowered Caption = 'AbBbXxZz' TabOrder = 5 end end object EdColorPage: TTabSheet HelpContext = 1950 Caption = 'Colors' object Label8: TLabel Left = 8 Top = 32 Width = 73 Height = 17 AutoSize = False Caption = '&Element:' FocusControl = ElementList end object Label9: TLabel Left = 138 Top = 32 Width = 63 Height = 17 AutoSize = False Caption = '&Color:' FocusControl = ColorGrid end object EditControlHere: TLabel Left = 8 Top = 176 Width = 369 Height = 116 AutoSize = False OnClick = SampleClick end object Label22: TLabel Left = 16 Top = 10 Width = 113 Height = 17 AutoSize = False Caption = 'Color &speed setting:' FocusControl = ColorSpeedSetting end object ElementList: TListBox Left = 8 Top = 47 Width = 120 Height = 121 IntegralHeight = True ItemHeight = 13 Items.Strings = ( 'Whitespace' 'Comment' 'Reserved word' 'Identifier' 'Symbol' 'String' 'Integer' 'Float' 'Octal' 'Hex' 'Character' 'Preprocessor' 'Illegal Char' 'Plain text' 'Marked block' 'Search match' 'Execution point' 'Enabled break' 'Disabled break' 'Invalid break' 'Error line' 'Right margin') TabOrder = 1 OnClick = ElementListClick end object GroupBox6: TGroupBox Left = 263 Top = 31 Width = 114 Height = 72 Caption = 'Text attributes:' TabOrder = 2 object Bold: TCheckBox Left = 8 Top = 16 Width = 100 Height = 17 Caption = '&Bold' TabOrder = 0 OnClick = FontClick end object Italic: TCheckBox Left = 8 Top = 34 Width = 100 Height = 17 TabStop = False Caption = '&Italic' TabOrder = 1 OnClick = FontClick end object Underline: TCheckBox Left = 8 Top = 51 Width = 100 Height = 17 TabStop = False Caption = '&Underline' TabOrder = 2 OnClick = FontClick end end object GroupBox7: TGroupBox Left = 263 Top = 108 Width = 114 Height = 60 Caption = 'Use defaults for:' TabOrder = 3 object DefaultFore: TCheckBox Left = 8 Top = 15 Width = 90 Height = 17 Caption = '&Foreground' TabOrder = 0 OnClick = DefaultClick end object DefaultBack: TCheckBox Left = 8 Top = 35 Width = 90 Height = 17 TabStop = False Caption = 'Back&ground' TabOrder = 1 OnClick = DefaultClick end end object ColorSpeedSetting: TComboBox Left = 132 Top = 6 Width = 245 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Defaults' 'Classic' 'Twilight' 'Ocean') TabOrder = 0 OnClick = ColorSpeedClick end object ColorGrid: TColorGrid Left = 136 Top = 48 Width = 120 Height = 120 ClickEnablesColor = True TabOrder = 4 OnChange = ColorClick end end object PalPage: TTabSheet HelpContext = 2000 Caption = 'Palette' object PageLabel: TLabel Left = 10 Top = 12 Width = 63 Height = 17 AutoSize = False Caption = '&Pages:' FocusControl = PageListBox end object ToolLabel: TLabel Left = 222 Top = 12 Width = 105 Height = 17 AutoSize = False Caption = '&Components:' FocusControl = ToolListBox end object PageListBox: TListBox Left = 10 Top = 29 Width = 113 Height = 212 IntegralHeight = True ItemHeight = 13 TabOrder = 0 OnClick = PageClick OnDragDrop = PageDragDrop OnDragOver = PageDragOver OnEnter = PagesGotFocus OnKeyDown = ListKeyDown OnMouseDown = PageMouseDown end object MoveUp: TBitBtn Left = 144 Top = 36 Width = 23 Height = 23 TabOrder = 1 OnClick = MoveClick Glyph.Data = { 4A010000424D4A01000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333338888833333333334444483333333333CCCC483 333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC488 8333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333 33333333333C3333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000696420627265616B706F696E7420 0000000000000000000000000000} end object MoveDn: TBitBtn Left = 176 Top = 36 Width = 23 Height = 23 TabOrder = 2 OnClick = MoveClick Glyph.Data = { 4A010000424D4A01000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333833333333333333488333333333333CC4883333333333CCCC488 33333333CCCCCC488333333CCCCCC444333333333CCCC483333333333CCCC483 333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC433 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000003FB44444444444444FB0000000 0000000000000000000000000000} end object ToolListBox: TListBox Left = 222 Top = 28 Width = 152 Height = 214 IntegralHeight = True ItemHeight = 30 Style = lbOwnerDrawFixed TabOrder = 3 OnDragDrop = ToolDragDrop OnDragOver = ToolDragOver OnDrawItem = ToolDrawItem OnEnter = ToolsGotFocus OnKeyDown = ListKeyDown OnMouseDown = ToolMouseDown end object AddButton: TButton Left = 135 Top = 76 Width = 75 Height = 25 Caption = '&Add...' TabOrder = 4 OnClick = AddClick end object DeleteButton: TButton Left = 135 Top = 108 Width = 75 Height = 25 Caption = '&Delete' TabOrder = 5 OnClick = DeleteClick end object RenameButton: TButton Left = 135 Top = 140 Width = 75 Height = 25 Caption = '&Rename...' TabOrder = 6 OnClick = RenameClick end object ResetPaletteBtn: TButton Left = 112 Top = 255 Width = 125 Height = 25 Caption = 'Re&set defaults' TabOrder = 7 OnClick = ResetPalette end end end end object PopupMenu1: TPopupMenu AutoPopup = False Left = 24 Top = 336 object dNextPage: TMenuItem Caption = 'Next Page' ShortCut = 0 Visible = False OnClick = NextPageClick end object dPrevPage: TMenuItem Caption = 'Prev Page' ShortCut = 0 Visible = False OnClick = PreviousPageClick end end end