object EditForm: TEditForm
Left = 516
Top = 218
Width = 582
Height = 471
Caption = 'Editor'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Icon.Data = {
0000010001001010000000000000680300001600000028000000100000002000
0000010018000000000040030000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00000000000000000000000000000000000000FFFF000000
00000000000000000000000000000000000000000000FFFF0000000000000000
0000000000000000000000000000FFFF00000000000000000000000000000000
000000000000FFFF0000000000000000000000000000000000FF0000FF0000FF
00FFFF0000FF0000FF0000FF0000FF0000FF00000000FFFF0000000000000000
000000000000000000FF00000000000000000000FFFF0000000000000000FF00
000000000000FFFF0000000000000000000000000000000000FF000000000000
00000000000000FFFF0000FF00000000000000000000FFFF0000000000000000
000000000000000000FF0000000000000000000000000000FF00FFFF00000000
000000000000FFFF0000000000000000000000000000000000FF000000000000
0000000000FF00000000000000FFFF00000000000000FFFF0000000000000000
000000000000000000FF0000000000000000FF00000000000000000000000000
FFFF00000000FFFF0000000000000000000000000000000000FF0000000000FF
00000000000000000000000000000000000000FFFF00FFFF0000000000000000
000000000000000000FF0000FF00000000000000000000000000000000000000
000000000000FFFF0000000000000000000000000000000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
0000800100008001000080010000800100008001000080010000800100008001
0000800100008001000080010000800100008001000080010000FFFF0000}
KeyPreview = True
OldCreateOrder = True
Position = poDefaultPosOnly
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GrphPnl: TPanel
Left = 0
Top = 0
Width = 394
Height = 422
Align = alClient
BevelOuter = bvLowered
Color = clBlack
TabOrder = 0
object GraphImage: TImage
Left = 1
Top = 1
Width = 392
Height = 420
Align = alClient
PopupMenu = EditPopup
OnDblClick = GraphImageDblClick
OnMouseDown = GraphImageMouseDown
OnMouseMove = GraphImageMouseMove
OnMouseUp = GraphImageMouseUp
end
end
object StatusBar: TStatusBar
Left = 0
Top = 422
Width = 574
Height = 15
Panels = <
item
Width = 60
end
item
Width = 60
end
item
Width = 150
end>
SimplePanel = False
end
object ControlPanel: TPanel
Left = 394
Top = 0
Width = 180
Height = 422
Align = alRight
Alignment = taLeftJustify
BevelOuter = bvNone
TabOrder = 2
DesignSize = (
180
422)
object lblTransform: TLabel
Left = 10
Top = 128
Width = 59
Height = 13
Caption = 'Transform'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object PrevPnl: TPanel
Left = 10
Top = 0
Width = 162
Height = 122
BevelOuter = bvLowered
Caption = 'PrevPnl'
Color = clBlack
TabOrder = 0
object PreviewImage: TImage
Left = 1
Top = 1
Width = 160
Height = 120
Align = alClient
IncrementalDisplay = True
PopupMenu = QualityPopup
end
end
object cbTransforms: TComboBox
Left = 75
Top = 125
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = cbTransformsChange
end
object PageControl: TPageControl
Left = 10
Top = 148
Width = 167
Height = 277
ActivePage = TabSheet2
Anchors = [akLeft, akTop, akRight, akBottom]
MultiLine = True
TabIndex = 3
TabOrder = 2
TabStop = False
object TabSheet1: TTabSheet
Caption = 'Triangle'
object Label7: TLabel
Left = 9
Top = 12
Width = 17
Height = 13
Caption = 'Ax:'
end
object Label8: TLabel
Left = 9
Top = 36
Width = 17
Height = 13
Caption = 'Ay:'
end
object Label9: TLabel
Left = 9
Top = 60
Width = 16
Height = 13
Caption = 'Bx:'
end
object Label10: TLabel
Left = 9
Top = 84
Width = 16
Height = 13
Caption = 'By:'
end
object Label11: TLabel
Left = 9
Top = 108
Width = 17
Height = 13
Caption = 'Cx:'
end
object Label12: TLabel
Left = 9
Top = 132
Width = 17
Height = 13
Caption = 'Cy:'
end
object txtAx: TEdit
Left = 32
Top = 8
Width = 110
Height = 21
AutoSelect = False
TabOrder = 0
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object txtAy: TEdit
Left = 32
Top = 32
Width = 110
Height = 21
AutoSelect = False
TabOrder = 1
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object txtBx: TEdit
Left = 32
Top = 56
Width = 110
Height = 21
AutoSelect = False
TabOrder = 2
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object txtBy: TEdit
Left = 32
Top = 80
Width = 110
Height = 21
AutoSelect = False
TabOrder = 3
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object txtCx: TEdit
Left = 32
Top = 104
Width = 110
Height = 21
AutoSelect = False
TabOrder = 4
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object txtCy: TEdit
Left = 32
Top = 128
Width = 110
Height = 21
AutoSelect = False
TabOrder = 5
Text = '0'
OnExit = CornerEditExit
OnKeyPress = CornerEditKeyPress
end
object chkPreserve: TCheckBox
Left = 8
Top = 168
Width = 129
Height = 17
Caption = 'Preserve weights'
Checked = True
State = cbChecked
TabOrder = 6
end
end
object XForm: TTabSheet
Caption = 'Transform'
object lbla: TLabel
Left = 9
Top = 12
Width = 10
Height = 13
Caption = 'a:'
end
object Label1: TLabel
Left = 9
Top = 36
Width = 10
Height = 13
Caption = 'b:'
end
object Label2: TLabel
Left = 9
Top = 60
Width = 9
Height = 13
Caption = 'c:'
end
object Label3: TLabel
Left = 9
Top = 84
Width = 10
Height = 13
Caption = 'd:'
end
object Label4: TLabel
Left = 9
Top = 108
Width = 10
Height = 13
Caption = 'e:'
end
object Label5: TLabel
Left = 9
Top = 132
Width = 8
Height = 13
Caption = 'f:'
end
object Label6: TLabel
Left = 9
Top = 156
Width = 38
Height = 13
Caption = 'Weight:'
end
object Label29: TLabel
Left = 9
Top = 180
Width = 52
Height = 13
Caption = 'Symmetry:'
end
object txtA: TEdit
Left = 32
Top = 8
Width = 110
Height = 21
TabOrder = 0
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtB: TEdit
Left = 32
Top = 32
Width = 110
Height = 21
TabOrder = 1
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtC: TEdit
Left = 32
Top = 56
Width = 110
Height = 21
TabOrder = 2
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtD: TEdit
Left = 32
Top = 80
Width = 110
Height = 21
TabOrder = 3
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtE: TEdit
Left = 32
Top = 104
Width = 110
Height = 21
TabOrder = 4
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtF: TEdit
Left = 32
Top = 128
Width = 110
Height = 21
TabOrder = 5
Text = '0'
OnExit = CoefExit
OnKeyPress = CoefKeyPress
end
object txtP: TEdit
Left = 72
Top = 152
Width = 70
Height = 21
TabOrder = 6
Text = '0'
OnExit = txtPExit
OnKeyPress = txtPKeyPress
end
object txtSymmetry: TEdit
Left = 72
Top = 176
Width = 70
Height = 21
TabOrder = 7
Text = '0'
OnExit = txtSymmetryExit
OnKeyPress = txtSymmetryKeyPress
end
end
object TabSheet3: TTabSheet
Caption = 'Variations'
object VEVars: TValueListEditor
Left = 0
Top = 0
Width = 159
Height = 231
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
TitleCaptions.Strings = (
'Variation'
'Value')
OnExit = VEVarsExit
OnKeyPress = VEVarsKeyPress
OnValidate = VEVarsValidate
ColWidths = (
93
60)
end
end
object TabSheet2: TTabSheet
Caption = 'Colors'
ImageIndex = 3
object GroupBox1: TGroupBox
Left = 8
Top = 0
Width = 145
Height = 73
Caption = 'Transform color'
TabOrder = 0
object scrlXFormColor: TScrollBar
Left = 8
Top = 48
Width = 129
Height = 13
LargeChange = 10
PageSize = 0
TabOrder = 0
OnChange = scrlXFormColorChange
OnScroll = scrlXFormColorScroll
end
object pnlXFormColor: TPanel
Left = 8
Top = 16
Width = 65
Height = 25
BevelOuter = bvLowered
TabOrder = 1
end
object txtXFormColor: TEdit
Left = 80
Top = 16
Width = 57
Height = 21
TabOrder = 2
OnExit = txtXFormColorExit
OnKeyPress = txtXFormColorKeyPress
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 80
Width = 145
Height = 137
Caption = 'Graph'
TabOrder = 1
object Label20: TLabel
Left = 8
Top = 56
Width = 82
Height = 13
Caption = 'Background color'
end
object Label21: TLabel
Left = 8
Top = 96
Width = 89
Height = 13
Caption = 'Reference triangle'
end
object pnlBackColor: TPanel
Left = 8
Top = 72
Width = 129
Height = 17
BevelOuter = bvLowered
Color = clBlack
TabOrder = 0
OnClick = pnlBackColorClick
end
object chkUseXFormColor: TCheckBox
Left = 8
Top = 16
Width = 129
Height = 17
Caption = 'Use transform color'
TabOrder = 1
OnClick = chkUseXFormColorClick
end
object chkFlameBack: TCheckBox
Left = 8
Top = 36
Width = 129
Height = 17
Caption = 'Use flame background'
TabOrder = 2
OnClick = chkFlameBackClick
end
object pnlReference: TPanel
Left = 8
Top = 112
Width = 129
Height = 17
BevelOuter = bvLowered
Color = clGray
TabOrder = 3
OnClick = pnlReferenceClick
end
end
end
end
end
object EditPopup: TPopupMenu
Images = MainForm.Buttons
Left = 312
Top = 8
object mnuAutoZoom: TMenuItem
Caption = 'Auto Zoom'
Hint = 'Zooms the triangle display to the best fit.'
OnClick = mnuAutoZoomClick
end
object N1: TMenuItem
Caption = '-'
end
object mnuDelete: TMenuItem
Caption = 'Delete'
Hint = 'Deletes the selected triangle.'
ImageIndex = 9
OnClick = mnuDeleteClick
end
object mnuDuplicate: TMenuItem
Caption = 'Duplicate'
Hint = 'Duplicates the selected triangle.'
OnClick = mnuDupClick
end
object MenuItem2: TMenuItem
Caption = '-'
end
object mnuAdd: TMenuItem
Caption = 'Add'
Hint = 'Adds a new triangle.'
OnClick = mnuAddClick
end
object N4: TMenuItem
Caption = '-'
end
object mnuFlipVertical: TMenuItem
Caption = 'Flip Vertical'
OnClick = mnuFlipVerticalClick
end
object mnuFlipHorizontal: TMenuItem
Caption = 'Flip Horizontal'
OnClick = mnuFlipHorizontalClick
end
object N5: TMenuItem
Caption = '-'
end
object mnuVerticalFlipAll: TMenuItem
Caption = 'Flip All Vertical '
OnClick = mnuVerticalFlipAllClick
end
object mnuHorizintalFlipAll: TMenuItem
Caption = 'Flip All Horizontal'
OnClick = mnuHorizintalFlipAllClick
end
object MenuItem1: TMenuItem
Caption = '-'
end
object mnuLockSel: TMenuItem
Caption = 'Lock'
OnClick = mnuLockClick
end
object N6: TMenuItem
Caption = '-'
end
object mnuUndo: TMenuItem
Caption = 'Undo'
Enabled = False
ImageIndex = 4
ShortCut = 16474
OnClick = mnuUndoClick
end
object mnuRedo: TMenuItem
Caption = 'Redo'
Enabled = False
ImageIndex = 5
ShortCut = 16473
OnClick = mnuRedoClick
end
end
object QualityPopup: TPopupMenu
Images = MainForm.Buttons
Left = 344
Top = 8
object mnuLowQuality: TMenuItem
Caption = 'Low Quality'
RadioItem = True
OnClick = mnuLowQualityClick
end
object mnuMediumQuality: TMenuItem
Caption = 'Medium Quality'
Checked = True
RadioItem = True
OnClick = mnuMediumQualityClick
end
object mnuHighQuality: TMenuItem
Caption = 'High Quality'
RadioItem = True
OnClick = mnuHighQualityClick
end
object N3: TMenuItem
Caption = '-'
end
object mnuResetLocation: TMenuItem
Caption = 'Reset Location'
Checked = True
OnClick = mnuResetLocationClick
end
end
end