object MainForm: TMainForm
Left = 0
Height = 540
Top = 0
Width = 480
AllowDropFiles = True
Caption = 'Продвинутый векторный транслятор'
ClientHeight = 540
ClientWidth = 480
Constraints.MinHeight = 540
Constraints.MinWidth = 480
OnDropFiles = FormDropFiles
Position = poDefaultPosOnly
LCLVersion = '1.6.4.0'
object targetProcessor: TGroupBox
Left = 4
Height = 72
Top = 4
Width = 472
Anchors = [akTop, akLeft, akRight]
Caption = 'Целевой процессор'
ClientHeight = 54
ClientWidth = 468
TabOrder = 0
object targetProcessorBitsLabel: TLabel
Left = 8
Height = 13
Top = 4
Width = 93
Caption = 'Разрядность кода:'
ParentColor = False
end
object targetProcessorBits: TComboBox
Left = 8
Height = 21
Top = 20
Width = 128
ItemHeight = 13
ItemIndex = 2
Items.Strings = (
'16 бит'
'32 бита'
'64 бита'
)
OnChange = targetProcessorBitsChange
Style = csDropDownList
TabOrder = 0
Text = '64 бита'
end
object targetProcessorInstructionSetLabel: TLabel
Left = 140
Height = 13
Top = 4
Width = 103
Caption = 'Наборы инструкций:'
ParentColor = False
end
object targetProcessorInstructionSet: TComboBox
Left = 140
Height = 21
Top = 20
Width = 320
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'FPU|SSE|SSE2|SSE3'
'FPU|SSE|SSE2|SSE3|SSSE3'
'FPU|SSE|SSE2|SSE3|SSSE3|SSE4.1'
)
Style = csDropDownList
TabOrder = 1
Text = 'FPU|SSE|SSE2|SSE3'
end
end
object source: TGroupBox
Left = 4
Height = 124
Top = 76
Width = 472
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Файлы исходного кода в порядке компиляции (кодировка ‒ только UTF-8)'
ClientHeight = 106
ClientWidth = 468
TabOrder = 1
object sourceFileList: TListBox
Left = 8
Height = 92
Top = 4
Width = 320
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True
OnSelectionChange = sourceFileListSelectionChange
ScrollWidth = 1
TabOrder = 0
end
object sourceAdd: TButton
Left = 332
Height = 20
Top = 4
Width = 128
Anchors = [akTop, akRight]
Caption = 'Добавить…'
OnClick = sourceAddClick
TabOrder = 1
end
object sourceExpell: TButton
Left = 332
Height = 20
Top = 28
Width = 128
Anchors = [akTop, akRight]
Caption = 'Убрать выбранные'
Enabled = False
OnClick = sourceExpellClick
TabOrder = 2
end
object sourceMoveUp: TButton
Left = 332
Height = 20
Top = 52
Width = 128
Anchors = [akTop, akRight]
Caption = 'Переместить вверх'
Enabled = False
OnClick = sourceMoveUpClick
TabOrder = 3
end
object sourceMoveDown: TButton
Left = 332
Height = 20
Top = 76
Width = 128
Anchors = [akTop, akRight]
Caption = 'Переместить вниз'
Enabled = False
OnClick = sourceMoveDownClick
TabOrder = 4
end
end
object platform: TGroupBox
Left = 4
Height = 116
Top = 200
Width = 472
Anchors = [akLeft, akRight, akBottom]
Caption = 'Целевая платформа'
ClientHeight = 98
ClientWidth = 468
TabOrder = 2
object platformExecutableTypeLabel: TLabel
Left = 8
Height = 13
Top = 4
Width = 131
Caption = 'Тип исполняемого файла:'
ParentColor = False
end
object platformExecutableType: TComboBox
Left = 8
Height = 21
Top = 20
Width = 320
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
OnChange = platformExecutableTypeChange
Style = csDropDownList
TabOrder = 0
end
object platformExitInstructionLabel: TLabel
Left = 8
Height = 13
Top = 48
Width = 103
Caption = 'Инструкция выхода:'
ParentColor = False
end
object platformExitInstruction: TComboBox
Left = 8
Height = 21
Top = 64
Width = 320
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'ret <размер аргументов>'
'retf <размер аргументов>'
'call System.exit'
)
Style = csDropDownList
TabOrder = 1
Text = 'ret <размер аргументов>'
end
object platformHeapSizeLabel: TLabel
Left = 336
Height = 13
Top = 4
Width = 121
Anchors = [akTop, akRight]
Caption = 'Размер кучи (в байтах):'
ParentColor = False
end
object platformHeapSize: TEdit
Left = 332
Height = 21
Top = 20
Width = 128
Alignment = taRightJustify
Anchors = [akTop, akRight]
NumbersOnly = True
TabOrder = 2
end
object platformStackSizeLabel: TLabel
Left = 338
Height = 13
Top = 48
Width = 125
Anchors = [akTop, akRight]
Caption = 'Размер стека (в байтах):'
ParentColor = False
end
object platformStackSize: TEdit
Left = 332
Height = 21
Top = 64
Width = 128
Alignment = taRightJustify
Anchors = [akTop, akRight]
NumbersOnly = True
TabOrder = 3
end
end
object destination: TGroupBox
Left = 4
Height = 52
Top = 316
Width = 472
Anchors = [akLeft, akRight, akBottom]
Caption = 'Целевой файл исходного кода на языке flat assembler'
ClientHeight = 34
ClientWidth = 468
TabOrder = 3
object destinationFileName: TEdit
Left = 8
Height = 21
Top = 4
Width = 320
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
end
object destinationSelect: TButton
Left = 332
Height = 20
Top = 4
Width = 128
Anchors = [akTop, akRight]
Caption = 'Выбрать имя файла…'
OnClick = destinationSelectClick
TabOrder = 1
end
end
object fasm: TGroupBox
Left = 4
Height = 136
Top = 368
Width = 472
Anchors = [akLeft, akRight, akBottom]
Caption = 'flat assembler'
ClientHeight = 118
ClientWidth = 468
TabOrder = 4
object fasmAlsoBuild: TCheckBox
Left = 8
Height = 20
Top = 4
Width = 452
Anchors = [akTop, akLeft, akRight]
AutoSize = False
Caption = 'Так же скомпилировать целевой файл с помощью flat assembler'
OnClick = fasmAlsoBuildClick
TabOrder = 0
end
object fasmExePathLabel: TLabel
Left = 8
Height = 13
Top = 28
Width = 159
Caption = 'Путь к fasm.exe (обязательно):'
Enabled = False
ParentColor = False
end
object fasmExePath: TEdit
Left = 8
Height = 21
Top = 44
Width = 320
Anchors = [akTop, akLeft, akRight]
Color = clBtnFace
Enabled = False
TabOrder = 1
end
object fasmExePathSearch: TButton
Left = 332
Height = 20
Top = 44
Width = 128
Anchors = [akTop, akRight]
Caption = 'Найти fasm.exe…'
Enabled = False
OnClick = fasmExePathSearchClick
TabOrder = 2
end
object fasmDestinationLabel: TLabel
Left = 8
Height = 13
Top = 72
Width = 254
Caption = 'Генерируемый исполняемый файл (обязательно):'
Enabled = False
ParentColor = False
end
object fasmDestination: TEdit
Left = 8
Height = 21
Top = 88
Width = 320
Anchors = [akTop, akLeft, akRight]
Color = clBtnFace
Enabled = False
TabOrder = 3
end
object fasmDestinationSelect: TButton
Left = 332
Height = 20
Top = 88
Width = 128
Anchors = [akTop, akRight]
Caption = 'Выбрать имя файла…'
Enabled = False
OnClick = fasmDestinationSelectClick
TabOrder = 4
end
end
object buttonsPanel: TPanel
Left = 4
Height = 20
Top = 512
Width = 472
Anchors = [akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 20
ClientWidth = 472
TabOrder = 5
object loadProject: TButton
Left = 0
Height = 20
Top = 0
Width = 88
Caption = 'Загрузить…'
OnClick = loadProjectClick
TabOrder = 0
end
object saveProject: TButton
Left = 92
Height = 20
Top = 0
Width = 88
Caption = 'Сохранить…'
OnClick = saveProjectClick
TabOrder = 1
end
object buildProject: TButton
Left = 184
Height = 20
Top = 0
Width = 104
Caption = 'Компилировать'
Default = True
OnClick = buildProjectClick
TabOrder = 2
end
object aboutAVT: TButton
Left = 292
Height = 20
Top = 0
Width = 88
Caption = 'О программе…'
OnClick = aboutAVTClick
TabOrder = 3
end
object closeAVT: TButton
Left = 384
Height = 20
Top = 0
Width = 88
Caption = 'Закрыть'
OnClick = closeAVTClick
TabOrder = 4
end
end
object sourceAddDialog: TOpenDialog
Title = 'Добавить файлы исходного кода'
DefaultExt = '.avt'
Filter = 'Исходный код ПВТ (.avt)|*.avt|Все файлы|*.*'
Options = [ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent, ofViewDetail]
left = 64
top = 4
end
object destinationSelectDialog: TSaveDialog
Title = 'Выбрать имя целевого файла исходного кода на языке flat assembler'
DefaultExt = '.asm'
Filter = 'Исходный код на языке flat assembler (.asm)|*.asm'
Options = [ofOverwritePrompt, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent, ofViewDetail]
left = 64
top = 52
end
object fasmExePathSearchDialog: TOpenDialog
Title = 'Найти fasm.exe'
Filter = 'fasm.exe|fasm.exe'
Options = [ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent, ofViewDetail]
left = 64
top = 100
end
object fasmDestinationSelectDialog: TSaveDialog
Title = 'Выбрать имя генерируемого исполняемого файла'
Filter = 'Все файлы|*.*'
Options = [ofOverwritePrompt, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent, ofViewDetail]
left = 64
top = 148
end
object loadProjectDialog: TOpenDialog
Title = 'Загрузить проект'
Filter = 'Проект ПВТ (.avtproj)|*.avtproj'
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 64
top = 196
end
object saveProjectDialog: TSaveDialog
Title = 'Сохранить проект'
DefaultExt = '.avtproj'
Filter = 'Проект ПВТ (.avtproj)|*.avtproj'
Options = [ofOverwritePrompt, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
left = 64
top = 244
end
end
