home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freesoft 1997 June
/
Freesoft_1997-06_cd.bin
/
nerecenz
/
programmers
/
SSW
/
SSW.EXE
/
0
/
RCDATA
/
TMACROEDITORFORM
/
TMACROEDITORFORM.txt
Wrap
Text File
|
1997-05-06
|
3KB
|
161 lines
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