647 lines
16 KiB
Plaintext
647 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
|
||
|
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
|