object MacroEditorForm: TMacroEditorForm Left = 258 Top = 287 Width = 694 Height = 288 Caption = 'Edit Macro' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 686 Height = 41 Align = alTop TabOrder = 0 object Label2: TLabel Left = 206 Top = 12 Width = 30 Height = 13 Caption = '&Macro' end object Label1: TLabel Left = 12 Top = 12 Width = 19 Height = 13 Caption = 'Tab' end object Label3: TLabel Left = 416 Top = 16 Width = 59 Height = 13 Caption = 'Abbreviation' end object MacroName: TEdit Left = 246 Top = 12 Width = 150 Height = 21 TabOrder = 1 end object TabCaption: TEdit Left = 44 Top = 12 Width = 150 Height = 21 TabStop = False ParentColor = True ReadOnly = True TabOrder = 0 end object Abbreviation: TEdit Left = 486 Top = 12 Width = 73 Height = 21 TabOrder = 2 end end object Panel3: TPanel Left = 0 Top = 41 Width = 599 Height = 199 Align = alClient Caption = 'Panel3' TabOrder = 1 object MacroText: AxCodeEditor Left = 8 Top = 8 Width = 585 Height = 185 Font.Color = clBlack Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( '1234567890123456789012345678901234567890123456789012345678901234' + '5678901234567890' '') ParentFont = False ScrollBars = ssVertical TabOrder = 0 WantTabs = True WordWrap = False TabSize = 12 end end object Panel2: TPanel Left = 599 Top = 41 Width = 87 Height = 199 Align = alRight TabOrder = 2 object OkButton: TButton Left = 8 Top = 8 Width = 72 Height = 25 Caption = '&OK' TabOrder = 0 OnClick = OkButtonClick end object CancelButton: TButton Left = 8 Top = 40 Width = 72 Height = 25 Caption = '&Cancel' ModalResult = 2 TabOrder = 1 end object Button1: TButton Left = 8 Top = 88 Width = 72 Height = 25 Caption = '&File...' TabOrder = 2 OnClick = Button1Click end end object AxStatusBar1: AxStatusBar Left = 0 Top = 240 Width = 686 Height = 21 Align = alBottom Alignment = taLeftJustify Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 InfoColor = clBlack ErrorColor = clRed DefaultColor = clBlack BeepOnError = False InfoDelay = 0 ErrorDelay = 0 end object FileSearchDlg: TOpenDialog FileEditStyle = fsEdit Filter = 'Macro files (*.mac)|*.MAC|SQL scripts (*.sql)|*.SQL|Text files (' + '*.txt)|*.TXT|All files (*.*)|*.*' Options = [ofHideReadOnly, ofFileMustExist] Left = 631 Top = 185 end end