6b8c455c52
Number of variant dependant code change so all changes can be done only in xform Test mode for new variant added
644 lines
16 KiB
Plaintext
644 lines
16 KiB
Plaintext
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
|
|
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>
|
|
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 = 0
|
|
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
|
|
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
|