new version 2.02h
This commit is contained in:
ronaldhordijk
646
2.10/Source/Editor.dfm
Normal file
646
2.10/Source/Editor.dfm
Normal file
@ -0,0 +1,646 @@
|
||||
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
|
||||
Reference in New Issue
Block a user